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REVISION HiSTOftr 
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ABSTRACT 

5fQ oOOt 

This proaram is designed to be a comprehensive check of the 
POP-li/70 CPU cluster. The program executes each instruction 
in all address modes and includes tests for traps, interrupts, 
the Mapping box, memory management, memory, the Unibus, and 
the Mass Bus. If NOT DESELECTED, the program relocates the 
test code throughout memory (0-2m). Also, if SELECTED, 
the program will relocate using available disks 
(RP03,foc05,RP(K,RS03/4). See section 9.5 for a description of 
relocation. 

The main differences between revision A and revision B are 
routines to use the UBE and fQT (manufacturing only), worst 
cast testing occurs with all switches down, standard SYSMAC 
macros, and floating point processor tests. 

Also, the disk driver was rewritten to make each device have a 
modular driver and to cause I/O to occur concurrently on the 
available disks, (see section 9.5.4 for a description of disk 
drivers) 

PRECAUTIONS must be taken to ensure the protection of user 
disks. Refer to section 7.0 for a description of warnings and 
exceptions. 

2.0 REOUIREMENTS 



2.1 Equipment 



PDP-11/70 (KB11-e/C ) Central Processor with 16< of memory, a line clock, 
and an LA30 (or equivalent) console. 

NOTE: THIS DIAGNOSTIC SUPPORTS THE PDP-11/74, AN IN-HOUSE, EXPERIMENTAL 
PROCESSOR. 

P.1.1 Optional Equipment Used 

1 . Unibus Exerciser 

2. Mass Bus Tester 

3. RPn/RP03, RK11/RK05, RH70/RP04, RH70/RS03/RS04 

4. FP11-e, FP11-C 

2.2 Storage 



The program loads into the first 1?K of memory and runs in all 
memory (exclusive of the XXDP monitor if running in chain 
mode). 
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Pre I intinary Progr«ns 

Although this program is a test of the CPU cluster, it is 



advisable that the CPU cluster (and floating point) 
diagnostics run first. These consist ot; 

OEKBA DEKBf 

OEKBS DEKBG 

DEKSC OEnjA • 

0EK8D DEFPA 

OEKBE OEFPe 

LOADING PROCEDURE 



Method 



The program is supplied on the diagnostic media. Refer to the 
XXOP operating manual for further information. 

STARTING PROCEDURE 

Console Switch Settings 

See Section 5.1 
Starting Addresses 



The starting address tor the exerciser is 200. 

By starting at address 210, the switch register and display 
lights can be checked. This routine just moves the switches 
to the display register allowing the operator to toggle the 
switches and see the corresponding lights in the display 
register. 

By starting at address 2U, the micro-break register can be 
checked. This test requires a maintenance card. See Section 
9.0 for further details. 

START AT ADDRESS 230 AS AN AID TO CUTTING THE JIJ>¥»ERS FOR THE 
PROCESSOR ID REGISTER. 

Program and Operator Action 



1. Load program into memory (See Section 3) 

2. Check for any system disk packs or configuration 
exceptions as described in section 7.0. 

3. Load address 200 

A. Set switches (See Section 5.1) 
5. Press Start 
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6. The program will 'oop and messages will be typed at the 
end of each sub-pass and each pass, (see section 8.3 for 
a description of the messages) 
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5.0 OPERATING PROCEDURE 

5.1 Operational Switch Settings 
SWT 5 HALT ON ERROR 



SU74 
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SWT1 



LOOP ON TEST 



INHIBIT ERROR 
TYPE OUT 

INHIBIT USE 



INHIBIT SUB- 
TEST ITERATION 



SW10 



SW9 



RING BELL 
ON ERROR 



LOOP ON ERROR 



SW8 



RELOCATE WITH 
DISK 



This switch when set will halt 
the processor when an error is 
detected. Pressing continue 
will cause an error message to 
be typed and the processor 
will again halt. Pressing 
continue again will rescne 
testing. 

This switch when set will 
cause the program to loop on 
the current subtest. 

This switch when set inhibits 
the error typeout. 

This switch when set inhibits 
the initialization of the 
Unibus Exerciser. See section 
9.2 for a description of the 
UBE function. 

This switch when set inhibits 
subtest iteration after the 
first pass. Each subtest is 
executed 10 times before the 
next subtest is run. Setting 
SW11 causes each test to be 
executed once before starting 
the next subtest. 

This switch when set will ring 
the bell when an error is 
detected. 

This switch when set will 
cause the program to loop on 
the first failure even if the 
failure is intermittant. See 
section 6.1 for a descriptico 
of looping on relocation 
errors. 

This switch when set will 
CAUSE RELOCATION TO BE DONE BY 
A DISK INSTEAD OF THE CPU. 
See section 9.5 for a 
description of relocation. 



SW7 



INHlBn SVSTEM 
SIZE TVPECXiT 



SW6 



SW5 



SW4 



SW3 



INHIBIT RELOCATION 



INHIBIT ROUND 
ROBIN 



INHIBIT RANDOM 
DISK ADDRESS 



INHIBIT MBT 



SW2-SW0 DEVICE CODES 



NOTE 
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This switch when set will in- 
hibit the typeout of the 
switch definitions and the 
disks that will be used for 
relocation. (Typeout only 
occurs when the program is 
dunped) 

This switch when set will 
inhibit all relocation. Do 
not change this switch while 
the program is running. 

This switch when set will only 
relocate using the device 
selected by switches <2:0> 
rather than all available 
devices. 

This switch when set will 
cause relocation to always 
start at address 0 on the 
disk(s). 

This switch when set inhibits 
the initialization of the Mass 
Bus Tester. See section 9.3 
for a description of the MBT 
function. 

These switches (along with 
SW5) cause the program to 
relocate the test code using 
the device specified below: 
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VALUE 



3 
4 
5 
6 
7 



DEVICE 

RP11/rp03 
RK05 

Not used 
Not used 
RH70/RP04 
RH70/RS03/RS04 
Not used 
Not used 



When relocating via a specific device, 
set in the value (SW<2:0» to select the 
device then set switch 5. 



Unit 0 of the load device is marked not 
present if program was loaded in chain 



mode, arui therefore Mi l I not be used to 
relocate. 

Display Register 



While the program is running, the low byte of the display 
register contains the subtest nonber and the high byte 
contains bits <U:7> of KERNEL PARC, These bits, of kernel 
P«r0, correspond to bits <20:13> of the physical address of 
the relocated code. When an error is detected and loop on 
error is selected, the high byte contains the error count. 

S.^ Operator Action 



When the program is loaded* and started with switch 7 on a 
ztro the proaram will t:^peout the disks and unit numbers that 
will be used ror relocation and then wait for the operator to 
type a character. This is to allow the operator to write 
protect any drive that is not to be used. If there are no 
devices available for relocation, operator action is not 
required. 

If the program is loaded via ACTil in QV or AA or with XXDP in 
chain mode no operator action is required and all disks not 
write protected (except for the XXDP media) will be used for 
relocation. 

'Except chain mode, QV (manufacturing only), or Auto Accept 
(manufacturing only) 

6.0 ERRORS 



6.1 Error Halts and Description 



If an error is detected, the program will trap to the error 
handling routine (SERROfi). If halt on error is enabled, the 
processor will halt, pi-essing continue will cause an error 
message to be typed '^nd the processor will halt again. 

There are many different types of errors. No matter which 
type occurs a minimLin set of information is typed as follows: 

HHH:ff1:SS 

ERRORPC PHYSC PC PSW MAINT TEST NO SUB-PASS CNT 
UUUUUU VVVVVVVV UWWUWW XXXXXX yyVYYV SSSSSS PPPPPP 

where: 

UUJUUU = Virtual PC of the error call. 

VVVVyVVV = Physical PC of the error call. 

WUUUUU = PSW at the time of the error call. 



XXXXXX = Contents of the maintenance reg isterd 7777750) . 

yvvrrv = Test nunber. 

SSSSSS = Sub-pass count (0 thru 5> 

PPPPPP = Pass count 



HHH:W:SS Represents the elapsed run time of the program. since 
the most previous start, where: HHH = hours, Hn = minutes, 
ano SS = seconds. 

The Virtual PC is the 16 bit word that was pushed on the stack 
when the error call was made. The physical PC is calculated 
in one cf two ways: 

1. If memory management is off the contents of location 
•TACTOfi is subtracted from the Virtual PC. This 
generates the corresponding PC for the non-relocated code. 

2. If memory management is on the contents of the appropriate 
PM is shifted and added to the Virtual PC to generate a 
physical 22 bit address. In this case the virtual PC 
corresponds to th« non-relocated code. 

The contents of the maintenance register will indicate what 
memory margin was being performed when the error occurred. 

Depending on the type of error additional information is typed 
as described below. 

6.1.1 Unexpected Trap to 4 

PCOFTP PHYSPC PSW CPUERR 

vvvvvv pppppppp YYYvyy zznzz 

VVVVVV = Virtual PC that was pushed on the stack when the 
trap occurred. 

PPPPPPPP = Physical PC calculated as described above. 

YYYYYY = PSW that was pushed on the stack. 

ZZZZZZ = Contents of the CPU error register (17777766). 

6.1.? Unexpected Trap to 114 

PCOFTP PHYSPC PSW ERRREG ERR ADR REG 

VVVVVV PPPPPPPP YYYYYY ZZZZZZ EEEEEEEE 

V, P, and Y = are the same as described in 6.1.1. 
ZZZZZZ - Contents of the memory error register {.7777iti^) . 

EEEEEEEE = Contents of the error address registers combined 
into a 22 bit address (7777^,0 g 7777^2). 



6.1.5 Parity Error During Data Check 

This error can only occur during the data check that is made 
on the relocated test code before it is executed. This check 
is made by comparing the inrelocated code with the relocated 
code. The source data refers to the unrelocated code and the 



destination data to the relocated code. 

SRCADA DSTADR EADRftEG MEM ERR REG 
SSSSSS ODDDDODD EEEEEEEE 2ZIIZZ 

SSSSSS = virtual address of the source data. 

DODDDOOO = Physical address of the destination data. 

EEEEEEEE = Contents of the error address registers. 

221221 = Contents of menwry error register (777744). 

6.1.4 Error During Data Check-Reloc was by CP 

This error is similar to 6.1.3 except instead of a parity 
error, it is a data conparfson error. Refer to section 9.5.3 
for a description of CP relocation. 

Loop on error (SW<9» has the following effect: 

1. Memory Management Off- if switch<9> is set, looping 
will be performed on the section relocation (see 
section 9.5.1). If SW<9> is not set. execution will 
continue at the beginning of the next section. 

2. Memory Management On- If SW<9> is set, looping will be 
performed on the program relocation (see section 
9.5.2) to the same memory space that failed. If SW<9> 
is not set, program relocation will be retried in the 
same memory space. 

6.1.5 Error During Data Check-Reloc was by I/O 

This error is the same as 6.1.4 except relocation was 
performed via a disk rather than the CP. The error printout 
will, identify which device and drive nunber transferred the 
parncular word that failed. Refer to section 9.5.4 for a 
description of I/O relocation. 

Loop on error (SW<9» has the following effect; 

1. If SW<9> is set, the device that relocated the word 
(that caused the data check error) is initiated to do 
the same transfer with the same disk address and 
memory addresses. This transfer will continually be 
initiated and checked until SU<9> is not set. 

6.1.6 Device Error 

This error occurs if a device error occurs while the device is 
doing a transfer. The device and drive ntmber are identified 
and the contents of the device registers are typed. 



wh«n SW<9> (loop on error) is set, the device that failed is 
continually restarted with the same disk address, 
address, and function that caused the error. 

If S«<9> is not set. relocation is restarted. 
6 J. 7 Unibus Exerciser Failed 

CC BUSADR CR2 CR1 PHYS BUS ADA 

XXXXXX WWW MMWUU YYVYVY ZZ21ZZ12 

XXXXXX = Cycle count. 

VWWV = Virtual bus address that the UBE failed at 

U AAAArf = Control register nunber 2 

YYYYYY = Control register ntmber 1 

ZZZZZZZZ = Physical memory address that the UBE failed at 

The physical memor:^ address is calculated by adding the 
approoriate map register to the virtual bus address, forming a 
real 22 bit memory address. 

6.1.8 UBE Non-Existant Memory Error 

This error only occurs when the 'NO SLAVE SYNC" error occurs 
in the unibus exerciser. Only the physical address that timed 
out is typed. This error might indicate that there is a hole 
in memory or that the size register (777760) is set wrong. 

6.1.9 Mass Bus Tester Failed 



CS1 WRDCNT BUSADR BADREX MR? CS2 ST 

AAAAAA BBBBBB CCCCCC ODDDDD EEEEEE FFFFFF GG6GGG 

ER CS3 

HHHHHH JJJJJJ 

AAAAAA = Control and status register #1 (760100). 

BBBBBB = Word count register (760102). 

CCCCCC = Bus address register (760104). 

DDDDDO = Bus address extended register (760174). 

EEEEEE = Maintenance register M2 (760106). 

FfffFF = Control and status register #2 (760110). 

GGGGGG = Status register (7601T2). 

HHHHHH = Error register (760114). 

JJJJJJ = Control and status register #3 (760176). 



6.1.10 WT Non-Existant Memory Error 

This is the same as 6.1.7 except that it is detected by the 
^€XM bit in CS2 of the MBT. 

6.1.11 Floating Point Error 

This error will only occur if the left and right hand sides of 
the floating point identities do not agree within the expected 
tolerance. The value of the calculations are typed out. 

This error should only be a function of the Floating Point 
Processor and the FPP diagnostics (DEFPA DEFP8) should be used 
to isolate the problem. 
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6.1.12 D«vk« Ming 

This error will occur if a device does not finish its 
relocation fcncrion within 2 seconds after its initiation. If 
a line clock is '>n installed, a hung device will hang the 
program. Ref«fr to section 9.5.4.4 to determine which device 
and drive is hang. 

6.2 Error Recovery 



Different type$ of errors recover in different ways as 
describMl beloW. 

6.2.1 Errors Within Subtests 

Execution starts with the instruction following the error 
call. 

6.2.2 Relocation with Memory ngmt. Off 

Execution starts at the beginning of the next section. 
6.2.5 Device Error or CP Relocation with Memory Mgmt. On 
Relocation is restarted. 

6.2.4 Unexpected Traps Except Parity (4,10,250) 

Execution starts at the address pointed to by Location 
'ILPERR". This location contains the address+2 of the most 
recently executed "SCOPE" instruction. 

6.2.5 Unexpected Parity Error 

It the parity error is fatal (Bit 2 or 3 set in error reg) the 
program types a restart message at restarts. Otherwise, 
execution starts as in 6.2.4. 

7.0 WARNINGS AND EXCEPTIONS 



/.l Warnings 



Any drive that is not 'Wite protected" will be written on 
(except unit 0 of the XXDP load device in chain mode). 

When the program is dumped (see section 5.3) and SW<7> is set, 
the devices and drives that are not write protected will be 
identified on the terminal. Before typing a character to 
continue, a drive can be write protected without causing an 
error because, the system is sized again. 



7.2 



8.0 
8.1 



Exceptions 
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If any of the devkes is located at a non-standard address 
(see belOM), the device register address tables (in "cornnon 
tags ') should be changed to the correct acfdresses. FjUowing 
is the default address of the control and status register of 
each device: 

RP03 1767U 

RIC05 1774(K 

RP04 176700 

RS03/4~1720A0 



If the system has both an RP03 and an RP04, the branch 
insfuction at 100$, in the "size routine" must be replaced by 
a nop (240) for both devices to be used. This branch is 



approximately at address 4552, 
MISCELLANEOUS 

Execution Time 



The execution time is dependent on the amount of memory on the 
system. Following are two typical run times: 

1. Manufacturing Basic Line'-32K memory, U8E. MBT, and no 
disks— 3 minutes. 

2. System-128K memory, 2 RK05's, RP04, and 2 RS04's 
—-9 minutes. 



8.2 Stack Pointer 



8.3 



The stack pointer is set to 700. 

NOTE 



When the program is running in either 
user or supervisor mode, the 
user/supervisor stack pointer is set to 
700 and the Kernel stack pointer is set 
to 1200. The Kernel stack pointer is 
used only for the Error and Interrupt 
Service routines, routines. 



Pass Count 



There are two words used for effective pass count. Location 
"SUBPASS" and 'VASS". Subpass contains the ASCII 
representation of the subpass count. This is used to index 
the PSW table and margin table (see section 8.7). 

Six subpasses are executed for each pass. This allows all 
margins and PSW combinations to be tested before reporting end 
of pass. 
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At the ertd of each stjbpass the subpass rxjnber (that is being 

started) is typed followed by "THE QUICK BROUN FOX JUMPED OVE« SEO 0O'<. 

THE LAZY DOGS BACK 012345678V", If running on ACT11 OV or AA. 
only the sub-pass nutiber is typed. At the end of each pass 
the elapsed run time and the message 'CND PASS X TOTAL ERRORS 
SINCE LAST REPORT Y" is typed. 

8.^ Iterations 



Sub-test iterations are not performed until the pass count 
(tPASS) is non-2ero. This makes a OV pass as short as 
possible. 

After the first pass, full 10 octal iterations are performed 
on each subtest. 

8.5 T-eit Trapping 



T bit trapping is controlled by the PSW table. The default 
condition 's to run with the T-eit on during subpasses 2, A, 
and 6. 

8.6 ACT-11 Compatability 

The program is fully ACT-II compatable. 

8.7 PSW and Margin Tables 



At the end of the program, just before the messages, are the 
PSW and margin tables. These tables control what mode and 
register set and which memory margin will be executed on a 
subpass. Refer to section 9.5.2 for a description of how 
these tables are used by the program. These tables may be 
modified if desired. 

8.8 I/O Device Address Modification 



To modify the program address of the I/O devices patch the 
appropriate device table (in the convnon tags area) to the 
desired addresses. 

If you are patching the RP03 or RP04 see section 7.2. 
8.9 Power Fail 



If a power fail occurs (followed by a power up), the word 
'T^'JwER" IS typed on the terminal and the program restarts. 
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PftOGR^ DESCRIPTION 



C 2 



The Qroqrm is divided into 9 sections of position independent 
relocatable test code. Each section is approximate 



SCO 0015 



long. 



approximately Ik words 



When the program is initially loaded and started it will 
Identify itself and type the function of the switch register 
and the devices and drives that will be used for relocation. 

•JLx^r^^- i^«Si4«.*^59. options available 

indicator word (OPT. CP). The contents of OPT. CP contain the 
following indicators: 



Bit15 

BitU 

Biti 3=1/0 

Bit12 

Bitll 

Bit10=1/0 

Bit09=1/0 

Bit08=1/0 

Bit07=l/0 

Bits06-00 



Not used 
Not used 

FPP available/not available 
Not used 
Not used 

MST available/not available 
KW11-L available/not available 
Console tty available/not available 
UBE available/not available 
Not used 



Following is a brief description of each section: 



Section 0 



Section 1 



Section 2 



Section 3 



Section 4 



Section 5 



This section causes a 256 word 3 Xor 9 test 
pattern to be relocated throughout memory 0 - 28K. 



NOTE: This should not be construed 
complete memory test. 



to be a 



This section tests the unary instruction set 
executing each unary instruction in each address 
mode (excluding unary instructions using address 
mode 7). 

This section tests the unary instructions using 
address, mode 7 and binaries in all address modes 
(excluding binary byte ops using address mode 7). 

This section tests binary byte ops using address 
mode 7, j«p, JSR and program trap (lOT. TRAP, and 
EMT) instruction. 

This section checks that each bit in the processor 
status word (PSW) can be set cleared, reserved 
instructions, and odd address traps. 

checks the SXT, XOR, SOS, MARK. RTT 
and RTT instructions. 



Section 6 



This section checks the ASH. ASHC. MUL. DIV, SPL 
instructions and the program interrupt reauest 
(PIRO) logic. M 



section 7 This section checks the stack limit register 
mtmory nanagenent abort logic, the mtmory 
management registers. and the maping box 
registers. 

Section 8 This section checks the floating point option, 
(FPIl-e or FP11-C) if available. 

Following section 8 are two routines to check the teletype 
printer logic and a routine to start the KWll-L clock. If tne 
KU11-L is available the priority arbitration logic is tested. 

9.1 Nicro-ereak Test 



The micro-break test is used to test the micro break 

comparators and the stop on micro match function of the 

maintenance card. To run this test the operator must have a 

maintenance card installed and start the program at address 

The program asks the operator to turn on the stop on micro 
match switch. It then checks certain bit patterns in the 
micro break register to ensure the processor does not stop 
when it is not supposed to. 

The processor will then stop with zero in the micro address 
liahts. The operator then hits continue, and the processor 
will stop with one (1) in the lights. This sequence continues 
with 2. 4, 10, 20. 40. and 200 appearing in the lights. The 
program types done when it is finished. 

9.2 unibus Exerciser (UBE) 

Any one of 4 UBE's will be used. The progrm looks for a UBE 
at addresses 17770004. 17770024, 17770034. and 17770044. 

Test 77 will initiate the unibus exerciser if it is present. 
This is only done on pass 1 - subpass T, since from that point 
on. the service routine takes care of restarting it. 

The UBE is Set up with a bus address of 0. The 

function that is loaded is 'DATA IH PAUSE-DATA OUT BYTE". The 

word count is set for ABOUT 1.3IC WORDS. It is also set to interrupt 

on level 5. 

When an interrupt occurs a check is made to see if it was 
caused by an error. If there was no error, 0 is loaded as 
the bus address and the UBE is started again. 

When an error occurs a check is made to see if it was caused 
by a memory timeout. If it was, the address in the UBE bus 
address register is compared with the address in the system 
size, registers. If they are the same (no holes in memory) the 
UBE IS restarted at address 0 and the above sequence is 
repeated. If the addresses are not the s«ne a memory-hole 
error is reported. 



It the error was not due to a ti/neout a USE error is reported. 

SfO 0017 

'.^ Klass Bus rester(Wr) 



Any one of 4 HBT's will be used. The program looks for an MBT 
at addresses 17770100. 17770200. 17770300. and 17770400. If 
an HBT is foi#id. the drive tjfpe reoister (17770x26) is checked 
to make sure that it really is an nBT. 

Test 77 also initiates the mass bus tester. Again, this is 
only done on Pass 1 - subpass 1 since the service routine 
keeps it running. 

The bus address register is initiaU;^ set to 0. the word count 
to 2K words, and a read function is initiated. 

When an interrupt occurs an error check is made. This error 
check is the same as that described for the UBE. If there was 
no error, the word count is reloaded and the function is 
issued. The bus address reoister is not changed so it will 
continue from where it left off. 

9.4 Line ClCKk Initialization 



Test 76 turns on the line clock. Two locations in "convnon 
tags" keep track of the elapsed run time of the program. When 
the clock interrupts, the low byte of location "lticks"is 
incremented. When this byte gets to 60(decimal) it is cleared 
and the high byte is incremented(seconds) . When the second 
count gets to 60(decimal) location 'Witicks*' is incremented and 
I ticks is cleared. This gives the timer a 64K decimal minute 
range. 

NOTE 

For the UBE . MBT. and Line Clock, when 
an interrupt occurs, program execution 
returns to Kernel mode and the Kernel 
PAR'S are mapped down to the 0-1 2K bank 
of memory. Upon returning from the 
interrupt the PAR's are mapped back to 
where they were and the previous 
processor mode is restored. 



9.5 Relocation Algorithm 



9. S.I Section Relocation 

As each section is entered the virtual start address is saved 
in location 'TRSTAO" and the relocation factor (byte offset 
from non-relocated code) is calculated and saved in location 
"TACTOR". The test code is then executed. 



F 2 

At the eod of each section, control is transtered to the 
"relocation routine". If SW<8> is CLEAR, this routine will 
relocate the section via the CP (see 9.5.3). If SW<8> is 
set, the length of the section is calculated, saved as a word 
coiTM, and control is transtered to the "I/O monitor" (see 
section 9.5.4) which relocates the section by using a disk. 

Each section is initially relocated to the end address of the 
program. Subseouent relocations start at the end of the 
previous relocation. For example: if section 0 is 1000 bytes 
long and the end address of the program is 60000. the first 
relocation starts at address 60000. the second at 61000. the 
third at 62000. etc. This continues until 28K has beei' 
reached at which time execution goes to the start of the next 
section and the process repeats with the new section. 

Each section is written in position independent code so that 
it can be relocated and executed without the use of memory 
management. 

9.S.2 Program Relocation 

When all nine sections have been relocated and executed thru 
26k (see section 9.5.1). memory management is setup according 
to the value in location 'flEXPAP". This value is initialized 
to 600 (or ^600 if running under the XXDP monitor), making 
relocation start at address 60000 (or 160000). The "I/O 
monitor" is then entered (see section 9.5. A) to relocate the 
program. When the I/O monitor completes the relocation, 
execution is transtered to the start of the program at the 
relocated position. 

Each section is executed only once with memory management on. 
At the end of section 8, 77 is added to "NEXPAR" and 
relocation is performed again. This causes the next 
relocation to move up by 7700 bytes. For example: If 
nexpar=1600 the first relocation starts at address 160000. the 
second at address 167700. the third at 177600. etc. 

This continues until the end of memory is reached and 
constitutes a sub-pass. The PSW and maintenance register (for 
memory margins) are then setup for the next sub-pass and the 
program restarts. 

The value for the PSU and maintenance registers is taken from 



the tables (see section 8.7). The particular entry that is 
used is obtained by indexing the table by the sub-pass number 
(see section 8.3). For example, sub-pass 3 uses word 3 (the 
first word is counted as zero) of each table. Therefore, to 
change the value in the PSW or maintenance register only 
requires changing the value in the appropriate table. 

The completion of 6 sub-passes constitutes a pass and an end 
of pass message is typed. The program then restarts in pass 
?, sub-pass 0. 



^.^ Relocation VIA CP 

It SW<8> is CLEAR, both section and program relocation (see 
sections 9.$.1 and 9.5.2), are performed by an instruction 
move loop rather than a disk. For e«afnple: 

If: MOV (R0)*,(R2)» 
CMP R0.R3 
BNE IS 

where RO is the address of the code being moved, R2 is the 
address that it is be^ng moved to, and R3 is the last address 
that Is to be moved. 

When thfs is finished, the relocated data is checked by an 
instruction compare loop to ensure that the relocation was 
performed correctly. 

9.5.4 Relocation VIA I/O 

If SW<8> is set, both section and program relocation (see 
section 9.5.1 and 9.5.2), are performed by writing the data to 
a disk and reading it back to the relocated position. This 
relocation is controlled by the "I/O Monitor". 

9.5.4.1 Section Relocation 

When the I/O monitor is entered from the "relocation routine" 
(see section 9.5.1) a device is selected (see 9.5.4.3). the 
memory addresses (from and to) and word count are passed to 
the device handler (see section 9.5.4.4), and the handler is 
called. When the handler finishes, the I/O monitor checks the 
relocated data with an instruction compare loop to ensure the 
relocated data is correct, and returns to tne "relocation 
routine" (see 9.5.1). 

9.5.4.2 Program Relocation 

When the I/O monitor is entered for program relocation (see 
section 9.5.2) the base address for the relocation is 
calculated from the contents of kernel par3 which was set up 
with memory management (see 9.5.2). If SW<8> is CLEAR, 
relocation is performed VIA the CP (see section 9.5.3). 



If SW<8> is set, a device is selected (see 9.5.4.3). the 
word count is set to 2K. and the memory addresses (from and 
to) and word count are passed to the device handler (see 
9.5.4.4), and the handler is called. The I/O monitor then 
adds 2K to the memory addresses, selects another device, 
passes the addresses to the device handler, and calls the 
handler. This continues until all 12k has been relocated. 
The relocated data is then checked with an instruction compare 
loop. The relocated program is then executed as described in 



D#wic* Selection 



It SW<5> is not set< an index is picked up from location 
'T)EVIN0X", rhis index is used to index the system size table. 
The systfltr. size table consists of 8 words (one for each device 
type). Bits <7:0> of each word are used to indicate the drive 
ncinbcrs that are available on the device, and are initialized 
in the size routine. Bits <15:8> of each word are used to 
indicate whether the drive has been used for a data transfer 
(unit used bit). 

The S)fStem size table is then searched, using the index 
described above, for a drive that has not been used. When a 
drive is found, the "unit used bit" is set, the current index 
is put back in location DEVINDX, and execution continues as 
described in 9.5.4.1 or 9. 5. A. 2. 

If an unused unit is not found, all the 'bnit used" bits are 
cleared and the search is restarted. If the search finds the 
system size table empty (no devices on the system), the 
message '>C I/O DEVICES" is typed and relocation is performed 
via the CP as described in 9.5.3. 

If SW<5> is set, SWs<2:0> are used to index the system size 
table. In this case only one word of the table is used 
correspondina to the device being selected by SU's<2:0> (see 
section S.1T. In this mode, a round robin selection is 
performed on the drives of the selected device. 

9.5.4.4 Device Handlers 

Each device that is used for relocation has a handler. These 
handlers are functionally the same. 

The handler is called by the I/O Monitor (see section 9.5.4). 
It first clears the done bit (bit 7) in the handler status 
word. This prevents the monitor from calling this handler 
again before it is finished. 

If a "device hung" error (see section 6.1.12) is detected, the 
handler status words can be examined to determine which device 
did not finish (set bit 7). The drive can then be determined 
by looking in the "device handler unit nunber" table. The 
handler status words and device handler unit nunber tables. 



are located in the "common tags" area of the listing. 

Then the handler calculates a disk address. This address is 
either generated from a random ntwber (SW4=0; or is set to 
zero (SW?=1). The device 10, unit nunber, and cylinder 
address are combined and placed in the "Mi TABLE" (RLMTBL). 
The position in the run table corresponds to which 2K block of 
the program is being transfered (i.e. the first 2K block is 
'dentified by word 1, the second 2K by word 2, etc.). The bit 
configuration of each word in the run table is as follows: 



SfC 0020 



<15:15> = Device ID 

<12:10> = Unit Number 

<9> = not used 

<.8:0> = Cylinder Address 

The track-sector address of the transfer is saved in the 'I^UN 
TRACK TASLE" (RlWTRAK). The position in this table is as 
described above. The bit configuration of each word is the 
same as that for the disk address register for the particular 
device. Bit IS is used to indicate a device error. It is set 
b/ the device service routine. (see section 9.5.4.5) 

The handler then initializes the device registers with all the 
appropriate information and starts a write function. 
Execution then returns to the I/O Monitor at the point where 
the handler was called. 

9.5.4.5 Device Service Routines 

Each device that is used for relocation has a service routine. 
These routines are all functionally the s*i»e. 

The routine is entered by a device interrupt. The device is 
checked for any errors. If no error occurred the device 
reaisters are loaded and the next function to perform is 
initiated. Three functions are executed: Write, Write Check, 
and Read. All the necessary bus address information is 
calculated by the I/O Monitor, so the service routine just 
takes care of the device. 

When the read function has been completed successfully, the 
done bit (bit 7) in the handler status word is set. 

Upon initiation of a function, or completion of all three 
functions, the service routine returns execution to where it 
was when it was interrupted. 

If an error is detected, the function that failed is retried 
two more times. If the error is still present the done bit 
and the error bit (bit 15) is set in the handler status word 
along with bit 15, in the appropriate entry, in the RUN TRACK 
TABLE, and the routine exits as described above. 
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S8TTL OPERATIONAL SWITCH SETTINGS 



* 
• 
• 


SWI TCH 






• 

USE 


• 


15 






HALT ON ERROR 


* 


K 






LOOP ON TEST 




13 






INHIBIT ERROR TVPEOUTS 


• 


12 






INHIBIT USE 


* 


11 






INHIBIT ITERATIONS 


* 


10 






BELL ON ERROR 


• 


9 






LOOP ON ERROR 


* 


8 






ALLOW RELOCATION VIA I/O DEVICE 


* 


7 






INHIBIT SYSTEM SIZE TYPEOUT 


* 


6 






INHIBIT RELOCATION 


* 


5 






INHIBIT ROUND ROBIN 


* 


4 






INHIBIT RANDOM DISK ADDRESS 


* 


3 






INHIBIT MBT 


* 


2 






THESE THREE SWITCHES 


• 


1 






ARE ENCODED TO SELECT RELOCATION 


* 


0 






ON THE FOLLOWING DEVICES: 


* 




0. 


..fiP11/RP03 


* 




1. 


..RKH/RKOS 


* 




2. 
3. 


..NOT 


USED 


* 




..NOT 


USED 


* 




4. 


. .RH70/RP04 


• 




5. 


. .RH70/RS04 


* 




6. 


..NOT 


USED 


* 




7. 


..NOT 


USED 
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5373 

(1) .S8TTL BASIC DEFINITIONS 

(1) 

(1) ;*INITIAL ADDRESS OF THE STACK POINTER 1200 

(1) 001200 STACKS 1200 ; .-FIRST ADDRESS OF THE STACK 

(1) 001200 KERSTK= STACK ;; KERNEL STACK 

<1) 000700 SUPSTK= STACK-300 ;; SUPERVISOR STACK 

(1) 000600 USESTK= STACK-400 ;;USER STACK 

n) .EQUIV EMT, ERROR ;;BASIC DEFINITION OF ERROR CALL 

(1) .EOUIV lOT.SCOPE ;;BASIC DEFINITION OF SCOPE CALL 

(1) 177776 PS= 177776 .-PROCESSOR STATUS WORD 

(1) .EQUIV PS.PSW 

(1) ^7777^, STKLMT- \7777l, ;; STACK LIMIT REGISTER 

(1) ^77772 PIRQ= y77772 ;, -PROGRAM INTERRUPT REQUEST REGISTER 

(1) 177570 SWR= 177570 ;; SWITCH REGISTER 

(1) 177570 DISPLAr=SWR 

(1) 

(1) .-•MISCELLANEOUS DEFINITIONS 

(1) 000011 HT= 11 ;;CODE FOR HORIZONTAL TAB 

(1) 000012 LF= 12 ;;CODE LINE FEED 

(1> 000015 CR= 15 ;;COOE CARRIAGE RETURN 

(1) 000200 CRLF= 200 ;;COOE FOR CARRIAGE RETURN-LINE FEED 

(1) 

M) .••GENERAL PURPOSE REGISTER DEFINITIONS 

(1) 000000 R0= XO ; .-GENERAL REGISTER 

(1) 000001 R1= XI ;.- GENERAL REGISTER 

(1) 000002 R2= X2 .-.-GENERAL REGISTER 

n> 000003 R3- X3 ;; GENERAL REGISTER 

(1) 000004 R4= X4 ;;GEN£RAL REGISTER 

(1) 000005 R5- X5 ;; GENERAL REGISTER 

(1) 000006 R6- X6 .-.-GENERAL REGISTER 

(1) 000007 R7= X7 ;; GENERAL REGISTER 

(1) .EQUIV R0.R10 .-.-GENERAL REGISTER 

(1) .EQUIV R1.R11 ;;6ENERAL REGISTER 

M) .EQUIV R2,R12 ;;GENeRAL REGISTER 

(1) .EQUIV R3,R13 ; ."GENERAL REGISTER 

n) .EQUIV R4,RU .•;GENERAL REGISTER 

M) .EQUIV R5,R15 : .'GENERAL REGISTER 

( 1 ) 000006 SP=X6 

(1) .EQUIV SP.KSP ;;KERNEL STACK POINTER 

M) .EQUIV SP.SSP .-.-SUPERVISOR STACK POINTER 

(1) .EQUIV SP.USP .-.-USER STACK POINTER 

(1) 000007 PC=X7 

(1) 

(1) ;*PRIORITY LEVEL DEFINITIONS 

(1) 000000 PRO= 0 .-.-PRIORITY LEVEL 0 

(1) OOOOAO PR1= 40 .-.-PRIORITY LEVEL 1 

U) 000100 PR2= 100 ;; PRIORITY LEVEL 2 

<1' OOOUO PR3= UO .-.-PRIORITY LEVEL 3 

(1) 000200 PR4= 200 ;. -PRIORITY LEVEL 4 

M) 000240 PR5= 240 ;; PRIORITY LEVEL 5 

'D 000300 PR6= 300 .-.-PRIORITY LEVEL 6 

<1) 000340 PR7= 340 .-.'PRIORITY LEVEL 7 

( ' ) 

.-•"SWITCH REGISTER" SWI TH DEFINITIONS 

100000 SWI 5= 100000 
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'.D 040000 SUK= 40000 

(1) 020000 SW13= 20000 

(1) 010000 SW12= 10000 

(1) 004000 SU11= 4000 

(1) 002000 SU10= 2000 

(^) 001000 SW09= 1000 

{') 000400 SU08= 400 

(1) 000200 SW07= 200 

H) 000100 SU06= 100 

(1) 000040 SUOS= 40 

(1) 000020 SW04= 20 

(1) 000010 SW03= 10 

(1) 000004 SW02= 4 

(1) 000002 SW01= 2 

(P 000001 SW00= 1 

(1) .EOUIV SW09.SW9 

(1) .EOUIV SU08.SW8 

(1) .EOUIV SUI07,SW7 

(1) .EOUIV $W06.SU6 

(1) .EOUIV SW05.SW5 

(1) .EOUIV SU04,SW4 

(1) .EOUIV SW03,SW3 

(1) .EOUIV SW02.SW2 

(1) .EOUIV SWOnSWl 

(1) .EOUIV SWOO.SUO 
(1) 

(1) ;*DATA BIT DEFINITIONS (81 TOO TO BIT15) 

(1) 100000 BIT15= 100000 

(1) 040000 BIT14= 40000 

(1) 020000 BIT13= 20000 

(1) 010000 BIT12= 10000 

(1) 004000 BIT11= 4000 

(1) 0C2000 BIT10= 2000 

(1) 001000 BIT09= 1000 

(1) 000400 BIT08= 400 

(1) 000200 BIT07= 200 

(1) 000100 BIT06= 100 

(1) 000040 BIT05= 40 

H) 000020 BIT04= 20 

(1) 000010 BIT03= 10 

(1) 000004 BIT02= 4 

(1) 000002 BIT01= 2 

(1) 000001 BIT00= 1 

(U .EOUIV BIT09,8IT9 

(1) .EOUIV BIT08,8IT8 

(^) .EOUIV BIT07,8IT7 

(1) .EOUIV BIT06,8IT6 

(1) .EOUIV BIT05,8IT5 

(1) .EOUIV BIT04,8IT4 

(1) .EOUIV BIT03.8IT3 

(1) .EOUIV BIT02.8IT2 

(1) .EOUIV BIT01.8IT1 

(1) .EOUIV BIT00,8IT0 

(1) 

(1) ;*8ASIC 'tPU" TRAP VECTOR ADDRESSES 

(1) 000004 ERRVEC- 4 ;;TIW£ OUT AND OTHER ERRORS 
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CEQKC-t POP 11/70 CPU EXERCI:E« MACrn 30A{1052) 12-«AR-80 r:30 PAGE 47-4 



CEQKCE.P11 12-*Uft-80 11:27 BASIC DEFINITIONS SEO 00?9 

'1) 000010 RESVEC= 10 ;, -RESERVED AND ILLEGAL iNSIftUCTIQNS 

(') 000014 T8ITVEC = 14 ;;"T"8IT 

(1) 000014 TRTVEC= 14 .-.TRACE TRAP 

(1; OOOOK BPTVEC= 14 ; .-BREAKPOINT TRAP (8PT) 

(1) 000020 IOTVEC= 20 ;; INPUT/OUTPUT TRAP (lOT) ••SCOPE** 

»1) 000024 pyRVEC= 24 ;. -POWER FAIL 

M) 000030 EMTVEC= 30 ; .-EMULATOR TRAP (EMT) ••ERROR** 

(1) 000034 TRAPVEC=34 ;;' 1 RAP" TRAP 

M) 000060 TKVEC= 60 ;;TTY KEYBOARD VECTOR 

M) 000064 TPVEC= 64 ; ;TTy PRINTER VECTOR 

(1) 000114 CACHVEC--114 ; . CACHE ERROR INTERRUPT VECTOR 

M) 000240 PIRQVEC=240 .-.PROGRAM INTERRUPT REQUEST VECTOR 

M) 000250 MMVEC= 250 ; .-MEMORY MANAGEMENT VECTOR 

M) 

(1) .S8TTL CACHE REGISTER DEFINITIONS 

(1 ) 
(1) 

(1) 177740 LOADRS - 177740 ;; LOWER 16 BITS OF ADDRESS THAT CAUSED ERROR 

(1) 177742 HIADRS = ^777l^2 ;; UPPER SIX BITS OF ADDRESS THAT CAUSED ERROR 

(1) 177744 MEMERR = 177744 ;; CACHE ERROR REGISTER 

(1) 177746 CONTRL = 177746 ; .'MEMORY CONTROL REGISTER 

(1) 177750 MAINT = 177750 ; .-MEMORY MAINTENENCE REGISTER 

(1) 177752 HITMIS = 177752 ;;HIT HISS REGISTER 'T' IMPLIES HIT IN CACHE 

(1) 

(1) 

(1) .S8TTL CPU REGISTER DEFINITIONS 

(1) 

(1) 

(1) 177760 SIZELO = 177760 ;;MEMORY SIZE REGISTER Nl/BER TO PUT INTO A PAR 

(1) ;.-T0 GET TO THE LAST 32 WORDS OF MEMORY 

(1) 177762 SIZEHI = 177762 ;;HIGH SIZE REGISTER, RESER»/£D FOR FUTURE USE 

(1) ;; CURRENTLY ALL ZERO 

(1) 177764 SYSTID - 177764 ; .SYSTEM ID REGISTER 

(1) 177766 CPUERR = 177766 .-.CPU ERROR REGISTER HOLDS CONDI T 'ON THAT CAUSED 

(1) ;.-THE TRAP TO ERRVEC (000004) 

(1) 

(1) 

(1) 

(1) 

(1) .S8TTL MEMORY MANAGEMENT DEFINITIONS 

(1) 

(1) 

(1) ;*MEMORY MANAGEMENT STATUS REGISTER ADDRESSES 
(1) 

(1) 177572 MMRO= 177572 

(1) 177574 MMR1= 177574 

(1) 177576 MiR2= 177576 

(1) 172516 MMR3= 172516 

(1) .EQUIV MMRO.SRO 

(1) .EQUIV MMRl.SRl 

(1) .EQUIV MMR2.SR2 

(1) .EQUIV MMR3,SR3 
(1) 

(1) .-•USER "I" PAGE DESCRIPTOR REGISTERS 
(1) 

n) 177600 UIPDRO- 177600 



CEQK 
CEQK 



-E POP 
E.P11 



n/70 CPU EXERCISER 
12-mR-80 11:27 

177602 
177604 
177606 
177610 
177612 
1776U 
177616 



177620 
177622 
1 7762A 
177626 
177650 
177632 
177634 
177636 



177640 
177642 
177644 
177646 
177650 
177652 
1 77654 
177656 



177660 
177662 
177664 
177666 
1 77670 
177672 
177674 
1 77676 



1 72200 
1 72202 
172204 
172206 
172210 
172212 
172214 
172216 



E 3 

MACVII 30A(1052) 12-MAR-80 11:30 PAGE 
MEMORY nANAGEMENT DEMNITIONS 



47-5 



SEO 0050 



UIPDR1= 
UIP0R2= 
UIP0R3= 
UIP0R4= 
UIP0R5= 
UIPDR6= 
UIPDR7= 



177602 
177604 
177606 
177610 
177612 
177614 
177616 



.••USER 'X>" PAGE DESCRIPTOR REGISTORS 



UDPDRO= 
UDPDR1= 
U0PDR2= 
U0PDR3= 
U0PDR4= 
U0PDR5= 
UDPDR6= 
U0PDR7= 



177620 
177622 
177624 
177626 
177630 
177632 
1 77654 
1 77636 



•USER "J" PAGE ADDRESS REGISTERS 



UIPAR0= 
UIPAR1= 
UIPAR2= 
UIPAR3= 
UIPAR4= 
UIPAR5= 
UIPAR6= 
UIPAR7= 



177640 
177642 
1 77644 
177646 
1 77650 
177652 
177654 
177656 



•USER 'DUPAGE ADDRESS REGISTERS 



UDPARO= 
U0PAR1= 
UDPAR2= 
U0PAR3= 
UDPAR4= 
UDPAR5= 
UDPAR6= 
UDPAR7= 



177660 
177662 
177664 
177666 
1 77670 
177672 
177674 
177676 



1 72220 
^2222 



.••SUPERVISOR "I" PAGE DESCRIPTOR REGISTERS 

SIPDRO= 172200 
SIPDR1= 172202 
SIPDR2= 172204 
SIPDR3= 172206 
SIPDR4= 172210 
SIPDR5= 172212 
SIPDR6= 172214 
SIPDR7= 172216 

.••SUPERVISOR 'D" PAGE DESCRIPTOR REGISTERS 

SDPDRO= 172220 
SDPDR1= m222 
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CECMCCE.PII 12-mR-80 11:27 MEMORY MANAGEMENT DEFINITIONS SFO 0051 

^^) }7222^ SDPDR2= 172224 

(1) 172226 SDPDR3= 172226 

(1) 172230 SDPDR4= 172230 

(1) 172232 SDPDR5= 172232 

(^) y722y* SDPDR6= 172234 

(1; 172236 SDPDR7= 172236 
(1) 

(1) ; "SUPERVISOR "I" PAGE ADDRESS REGISTERS 
(1) 

(1) 172240 SIPARO= 172240 

(1) 172242 SIPAR1= 172242 

(1) 172244 SIPAR2= 172244 

(1) 172246 SIPAR3= 172246 

(1) 172250 SIPAR4= 172250 

(1) 172252 SIPAR5= 172252 

(1) 172254 SIPAR6= 172254 

(1) 172256 SIPAR7^ 172256 
(1> 

(1) ;*SUPERVISOR 'V PAGE ADDRESS REGISTERS 

(1) 

(1) 172260 SDPARO= 172260 

(1) 172262 SDPAR1= 172262 

M) 172264 SDPAR2= 172264 

(1) 172266 SDPAR3= 172266 

(1) 172270 SDPAR4= 172270 

M) m272 SDPAfi5= y72272 

M) 172274 SDPAR6= 172274 

M) 172276 SDPAR7= 172276 
(1) 

M) ;*KFRNEL "I" PAGE DESCRIPTOR REGISTERS 

(1 ) 

(1) 172300 KIPDR0= 172300 

(1) 172302 KIPDR1= 172302 

(1) 172304 KIPDR2= 172304 

(1) 172306 KIPDR3= 172306 

(1) 172310 KIP0R4= 172310 

(1) 172312 KIPDR5= 172312 

(1) 1723K KIPDR6= 172314 

(1) 172316 KIPDR7= 172316 
(M 

(1) .••KERNEL *T)"PAGE DESCRIPTOR REGISTERS 
(1) 

(1) 172320 KDPDR0= 172320 

(1) 172322 KDPDR1= 172322 

(1) 172324 »CDPDR2= 172324 

(1) 172326 KDPDR3= 172326 

(1J 172330 KDP0R4= 172330 

(1) 172332 KDP0R5= 172332 

(1) 172334 KDP0R6= 172334 

(1) 172336 KDPDR7= 172336 
(1) 

fl) ;*KERNeL "I" PAGE ADDRESS REGISTERS 
(1) 

fl) 172340 KIPAR0= 172340 

M) 172342 KIPAR1= 172342 

'D 172344 KIPAR2= 172344 



CEOKC-E POP 
CEQKCE.P11 



11/70 CPU EXERCISER 
12-WAR-80 11:27 

172546 
172350 
172352 
172354 
1 72356 



172360 
172362 
172364 
172366 
1 72370 
172372 
1 72374 
172376 



G 3 

«ACY11 30A(1052) 12-MAR-80 11:30 PAGE 
MEMORY MANAGEMENT DEFINITIONS 



47-7 



SEO 0052 



KIPAR3= 
KIPAR4= 
KIPAR5= 
KIPAR6= 
KIPAR7= 



172546 
172550 
172552 
172354 
1 72556 



•KERNEL 'V PAGE ADDRESS REGISTERS 



KDPARO= 
KDPAR1- 
KDPAR2= 
KDPAR5= 
KDPAR4= 
KDPAR5= 
KDPAR6= 
KDPAR7= 



172560 
172562 
172564 
172566 
172570 
172572 
172574 
172576 



.S8TTL UNI8US MAP REGISTER DEFINITIONS 



.••THE LOWER 16 BITS OF THE MAP REGISTERS ARE LABELED 'MAPLXX* 
.••THE UPPER 6 BITS OF THE MAP REGISTERS ARE LABELED 'MAPHXX' 



1 ^ 
1 > 



170200 


MAPLOO 




170200 


170202 


MAPHOO 




170202 


1 70204 


MAPLOl 




170204 


170206 


MAPHOl 




170206 


170210 


MAPL02 




170210 


170212 


MAPH02 




170212 


170214 


MAPL05 




170214 


170216 


MAPH05 




170216 


170220 


MAPL04 




170220 


170222 


MAPH04 




170222 


1 70224 


MAPL05 




170224 


1 70226 


MAPH05 




170226 


1 70250 


MAPL06 




170250 


1 70232 


MAPH06 




170252 


170234 


MAPL07 




170254 


170236 


MAPH07 




170236 


170240 


MAPLIO 




170240 


1 70242 


MAPHIO 




170242 


1 70244 


MAPLll 




170244 


1 70246 


MAPHll 




170246 


170250 


MAPL12 




170250 


1 70252 


MAPH12 




170252 


1 70254 


MAPL15 




1 70254 


1?0256 


MAPH15 




170256 


1 70260 


MAPL14 




1 70260 


1 70262 


MAPH14 




170262 


170264 


MAPL15 




170264 


170266 


MAPH15 




170266 


1 70270 


MAPL16 




170270 
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CEQICCE.P11 12-nW>-80 11:27 IWJBUS fW> REGISTER DEflNITIONS SEO 005? 

(1> 170272 IWH16 = 170272 

(1) 170274 HAPL17 = 170274 

(1) 170276 MAPH17 = 170276 

M) 170300 n<VPL20 - 170300 

fi) 170302 MAPH20 = 170302 

(') 170504 MAPL21 = 170304 

<*) 170306 MAPH21 = 17C306 

(1) 170310 inAPL22 - 170310 

(^> 170312 MAPM22 = 170312 

(1) 170314 MAPL23 170314 

<^) 170316 MAPH23 = 170316 

'1) 170320 MAPL24 - 170320 

(i ; 170320 MAPH24 - 170320 

'1; 170324 MAPL25 = 170324 

<1) 170326 MAPH25 - 170326 

H) 170330 MAPL26 = 170330 

(1) 170332 P1APH26 170332 

(^) 170334 WAPL27 - 170334 

(1) 170336 MAPH27 = 170336 

nj 170340 inAPL30 = 170340 

M) 170342 MAPH30 = 170342 

(1) 170344 MAPL31 - 170344 

'1) 170346 MAPH31 = 170346 

(') 170350 MAPL32 170350 

(1) 170352 MAPH32 = 170352 

(1) 170354 rW>L33 - 170354 

^^) 170356 rw>H33 = 170356 

'') 170360 inAPL34 = 170360 

nj 170362 inAPH34 = 170362 

(1) 170364 ^tAPL35 = 170364 

(1) 170366 MAPH35 = 170366 

(1J 170370 MAPL36 - 170370 

(1) 170372 MAPH36 = 170372 

(1) 170374 MAPL37 = 170374 

(1> 170376 MAPH37 = 170376 

(1) .EQUJV rWPLOO./WLO 

(1) .EQUIV «APH00,«APH0 

(1) .EQUIV riAPL01,«VLl 

(1) .EOUIV HAPHOUMAPHI 

(1) .EQUIV MAPL02,fW»L2 

(1) .EQUIV f1APH02,f1APH2 

(1) .EQUIV IW>L03,rtAPL3 

(1) .EQUIV «APH03,f1APH3 

(1) .EQUIV MAPL04,«APL4 

(1) .EQUIV «APH04,«APH4 

(1) .EQUIV HV»L05,rtAPL5 

(1) .EQUIV «APH05,/W»H5 

(1> .EQUIV MAPL06.MAPL6 

(1) .EQUIV MAPH06,/nAPH6 

n) .EQUIV rW>L07.MAPL7 

(1) .EQUIV rW>H07,MAPH7 
(1) 
(1) 
(1) 
fl) 

5374 000000 ACO- XO 



CEQKC-E POP 
CEQKCE.P11 

S576 
5577 
5578 
S379 
5580 
5581 
5583 
5585 
5384 
5585 
5586 
5387 
5388 
5389 
5390 
5391 
5392 
* 5393 
5394 
5395 
5396 
5397 
5398 
5399 
5400 
5401 
5402 
5403 
5404 
5405 
5406 
5407 
5408 
5409 
5410 
5411 
5412 
5413 
5414 
5415 
5416 
5417 
5418 
5419 
5420 
5421 
5422 
5423 
5424 
5425 
5426 
5427 
5428 
5429 
5430 



11/70 CPU EXERCISER 
12-WAR-80 11:27 

000001 
000002 
000003 
000004 
000005 



172540 
172542 
000104 

177546 
000100 



170000 
170002 
170004 
170006 
170010 
170014 
170016 
000510 



160100 
160102 
160104 
160106 
160110 
160112 
160114 
160116 
160120 
160124 
160126 
160174 
160176 
000774 
000776 



100000 
040000 
020000 
010000 
002000 
001000 
000400 
000200 



I 3 

P1ACV11 3OA(1052) 12-nAR-80 11:30 PAGE 47-9 
J^iaUS fW> REGISTER DEFINITIONS 



SEO 0034 



AC1 = 
AC2= 
AC3= 
AC4= 
AC 5= 



j:i 

12 
13 
24 
X5 



-.LINE CLOCK AND PROGRAMMABLE LINE CLOCK REGISTERS 
PLKCSR=1 72540 
PLKCS8=1 72542 
PLKVEC=104 

LKS=1 77546 
LKVEC=100 



;UNI8US EXERCISER REGISTER 
UBEDe= 170000 
UBECC= 170002 
UBESAs 170004 
UBECR1= 170006 
UBECLR= 170010 
UBEG0= 170014 
UB£CR2= 170016 
UBEVEC= 510 



DATA BUFFER 
CYCLE COUNT 
BUS ADDRESS 
CRONTROL REGISTER 1 
ERROR CLEAR 
MULT I -EXERCISER GO 
CONTROL REGISTER 2 
INTERRUPT VECTOR 



;MASS BUS TESTER 
MBTCS1= 
MBTUC= 
MBTBA= 
MBTMR2= 
MBTCS2= 
MBTST= 
HBTER= 
HBTAS= 
MBTDe= 
MBTMR1= 
MBTDT= 
MBTaA£= 
MBTCS3= 
MBTVEC= 
MBTPSU= 



REGISTERS 
160100 
160102 
160104 
160106 
160110 
160112 
160114 
160116 
160120 
160124 
160126 
160174 
160176 
774 
776 



.•MISCELLANEOUS BIT ASSIGNMENTS (USED IN OPT. CP) 



000010 
000000 



KT0PT= 
£IS0PT= 
FPOPT= 
CISOPT= 
HBTOPr= 
LKOPT= 
TTOPT= 
UBEOPT= 
.EQUIV 
.EQUIV 
•EQUIV 
.EOUIV 

CALLHANDLER=10 
KM-0 



100000 
040000 
020000 
010000 
002000 
001000 
000400 
000200 
ERROR, HLT 
BIT14.SM 
BIT12.PSM 
BITIKREG 



BELOW BIT ASSIGW»€NTS ARE USED 
IN THE CPCHK ROUTINE 
A BIT FOR EACH OPTION PRESENT 
1174 CIS OPTION PRESENT BIT 
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CEOKC-t PDP 11/70 CPU EXERCISER WACVll 50A(105?) 1?-«AR-80 11:50 PAGE 47-10 

CFQtcCE.PII 12-«AR-80 11:?7 UNI8US MAP REGISTER OEF INI HONS SEO 0035 

5A31 UOOOO l^=U0000 

543? 000000 PKM=0 

54|3 030000 PL«=30000 

5434 177770 ueREAK= 177770 
5435 

.OPCODES USED IN 1174 CISP TESTS 

ItH 9^^?9 '-2D0= 076020 .LOAD ? DESCRIPTORS iRO OPCODE 

o/n S^^] 1-301= 076061 .-LOAD 3 DESCRIPTORS iRI OPCODE 

^^•9 91^^ M£D74C= 076601 ;CISP DIAGNOSTIC ENTRY OPCODE 

I^aI 6600 .-ADDRESS OF A U-DIAGNOSTIC INSTRUCTION 

5442 000007 MfPT=7 .-OPCODE FOR MFPT INSTRUCTION USED FOR 1174 ONLY 



CEQKC-E POP 
CEQKCE.P11 



n/70 CPU exe»ci:fp 

12-MAR-80 11:27 



MACm 30A(1052) 12-fi»«-80 11:30 
CIS OPCODE DEF INI T JONS 



K 3 
PAGE 



47-11 



SEO 0036 



C y / / 




.S8TTL CIS OPCODE DEFJNl 


C / / c 








C / / A 

5*.*>6 


076021 


L2D1 


=076021 




076022 


L2D2 


=076022 


c y y o 


AIT 

076023 


L2D3 


=076023 


cy y ft 
5»»*>V 


A*7Z A'>y 

076024 


L2D4 


=076024 


cy CA 


076025 


L2D5 


=076025 


Cy C 1 


076026 


L2D6 


=076026 


cy c T 


A A"^ 7 

076027 


L2D7 


=076027 


cy c X 


A7Z. ATA 

076030 


MOVC 


=076030 


cy c/ 


ATZ ATI 

076031 


MOVRC 


=076031 


Cy c C 


A^Z. AT 

076052 


MOVTC 


=076032 


c/ c*. 


U/6U40 


LOCC 


=076040 


cy C7 


076041 


SKPC 


=076041 


C/ CD 


U'6U4^ 


SCANC 


=076042 




U/^oU43 


SPANC 


=076043 




0^6044 


CMPC 


=076044 




Uro045 


MATC 


=076045 




A7A.AC/1 


ADDN 


=076050 


C/ 




SUBN 


=076051 


c/ Ay 




CMPN 


A^Z AC ■*» 

=076052 






CVTNL 


=076053 


C/ AX 


A7AACy 


CVTPN 


A^^ AC y 

=076054 




A7AACC 


CVTNP 


A^Z f\C C 

=076055 




A7AACA 


ASHN 


A^^ f\F r 

=076056 




A7Ar>^7 


CVTLN 


=076057 


««z.7n 


n7AAA.n 
U/^oUoU 


L3D0 


=076060 


}Hf\ 


n7<.rtA.O 

U/^oU6<: 


1 Tf\1 

L3D2 


A'T^ AZ ^ 

=076062 




A7An<.7 
\JfO\JOi 


1 Tr\ T 

L3D3 


A^^ f\.d. T 

=076065 




U/^oU04 


L3D4 


=076064 


?*«/^*« 


n7AAAC 


L3D5 


f\-9£ A^ r" 

=076065 


CA7C 


n7AAAA. 

U/^oUoo 


L3D6 


A^^ A^ d. 

=076066 


CA7A 




L3D7 


A^^ A^ ^ 

=076067 


CA77 




ADDP 


=076070 


f O 




SUSP 


A^4 

=076071 


CZ7Q 




Cf^ 


A"7Z A^O 

=076072 


CASH 


\JfO\Jf J 


• CV'TPL 


£ A^7 

=076073 


J*«0 1 


A7An7/ 
\JfO\J fH 


MULP 


A^^ A^/ 

=076074 


J'tOC 




DI VP 


A^^ A^C 

=076075 




\JfO\JfO 


ASHP 


A7^ 

=076076 




t\7f.f\77 
UfOVf f 


CVTLP 


=076077 




n7Ai 7n 


MOVC I 


=0761 30 


J*»00 


n7Ai 71 


MOVRC I 


=076131 




n7Ai 7D 


MOVTCI 


A^^ "17^ 

=076132 






LOCCI 


A^^ ^ y A 

=076140 






SKPC I 


A7^ •I y 4 

=076141 




A7/ti y.o 


SCANCI 


A^^ •! / A 

=076142 


JHT 1 


rt7A 1 A 7 


SPANC I 


A^^ ^ / T 

=076143 




n7A1 AA 


fMDC I 
Lit' I, J 


— rt7A1 AA 




076145 


MATCI 


=076145 


549A 


076150 


ADDNI 


=076150 


5495 


076151 


SUBNi 


=0761 51 


5496 


076152 


CMPNI 


=076152 


5497 


076153 


CVTNL I 


=0761 53 


5498 


076154 


CVTPNI 


=0761 54 


5499 


076155 


CVTNPI 


=076155 



CBCKC-E POP 
CEQKCE.P11 



5500 
5501 
550^ 
5503 
5504 
5505 
5506 
5507 
5508 
5509 
5510 
5511 
5512 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
M) 
M) 
(1) 
(1) 
5513 
55U 
5515 
5516 
5517 
5518 
5519 
5520 
5521 
5522 
5523 
5524 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1> 
(1) 
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076156 
076157 
076170 
0761 71 
076172 
076173 
076174 
0761 75 
076176 
0761 77 
076600 



000000 
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000200 

000210 
00C2K 



000200 

000137 003612 
000210 

000137 0026U 
000137 002624 



000220 000137 003400 
000224 



000044 



000044 
001200 
000224 



ASHNi 

CVTLNI 

ADDPI 

SUBPI 

CMPPJ 

CVrPLI 

MULPI 

DIVPI 

ASHPI 

CVTLPJ 

nED6X 



=076156 

=076157 
=0761 70 
=0761 71 
=076172 
=076173 
=0761 74 
=076175 
=076176 
=076177 
=076600 



.S8TTL TRAP CATCHER 
.=0 

;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".+2,HALT" 
.••SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
.••LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 

.S8TTL STARTING ADDRESS(ES) 
.=200 

JMP a#START 

.=210 

JMP a»START1 
JMP a«rSTART2 
.•;»»26-APR-78.G.U.»* 

JMP a«rSTART3 



;;JUMP TO STARTING ADDRESS OF PROGRAM 



.•ENTRY FOR PID REG. CUTTING AID 



SAV=. 



.=44 



SAPTHE 
.=SAV 

.S8TTL AC Til HOOKS 

;*THE FOLLOWING LOCATIONS ARE SETUP TO BE USED WITH ACT11 

••LOCATION 46 WILL CONTAIN THE ADDRESS OF THE LOCICAL 
;*END OF THE PROGRAM. 

.-•LOCATION 52 IS USED TO SPECIFY PROGRAM OPERATING REOUIREI*CNTS 
.••AND/OR RESTRICTIONS. THIS IS ACCOMPLISHED BY SETTING VARIOUS BITS 
.-•TO A ONE OR A ZERO. THE BITS USED AND THERE MEANING ARE: 



• * 

• » 

p 

; * 

• * 
; * 
■ * 

• * 



000224 



BIT 15=1 PROGRAM SHOULD BE POWER FAILED WHILE RUNNING 
=0 NO POWER FAIL DESIRED 

BIT 14=1 PROGRAM RUN TIME IS MEMORY SIZE DEPENDENT 
=0 RUN TIME IS NOT MEMORY SIZE DEPENDENT 

BITS 13-0 MUST BE ZERO'S 

SSVPC=. ;;SAVE LOCATION COUNTER 



H 3 
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SCO 0038 



(1 ) 
(1) 
(1) 
(1) 
(1) 
5536 
5920 
5921 
5922 
5923 
5924 
5925 
5926 
5927 
5928 
5929 
5930 
5931 
5932 
5933 
5954 
5935 
5936 
5937 
5938 
5939 
5940 
5941 
5942 
5943 
5944 
5945 



000046 
000052 



001200 
001202 
001204 
001206 
001210 
001212 



001214 
001214 
001216 
001220 
001222 
001224 
001226 
001230 
001232 
001234 
001235 
001236 
001240 
001242 
001244 



000046 
046652 
000052 
040000 
000224 

001200 



000000 
001214 
002734 
002734 
000000 
000014 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000 
000 
000000 
000000 
000006 
177570 



.=46 

.WORD 

.=52 

.WORD 

.=$SVPC 



SENDAD 

40000 



SET LOCATION COUNTER 
SET L0C.46 TO ADDRESS $EMDAD 
SET LOCATION COUNTF"* 
SET LOC.52 TO 40000 
RESTORE LOCATION COUNTER 



. 1200 

;»APT MAILBOX 
SAPTHE: .WORD 0 



»>eADR: JMAJL 

$TSTM: .WORD 

SPASTM: .WORD 

SUNITW: .WORD 

SMBLTH: .WORD 



SMAJL: 

SMSGTY; 

SFATAL : 

STESTN: 

SPAS: 

SDEVCT: 

SLWIT: 

SMSGAD: 

SMSGLG: 

$ENV: 

SENVM: 

SAPTSW: 

SUSWR: 

SCPUOP: 

SSWRP: 



.WORD 
.WORD 
.WORD 

0 
0 
0 
0 
0 

.8YTE 
.BYTE 
.WORD 

0 
6 

177570 



1500. 
1500. 
0 
14 



0 
0 
0 



; CONTAINS ERROR PC 



0 
0 
0 
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SEO 0039 



;3) 
:33 
:33 
:3} 
:3) 
[3) 

:i) 
:3) 

[3J 
(3) 
(3) 
[33 
(3) 

:3; 
;3) 
3) 

;3) 

(3) 
[5J 



001250 
001250 
001252 
001 25A 

001256 

001260 

001262 

001 26A 

001266 

001267 

001270 

001272 

001 27A 

001276 

001300 

001302 

001310 

001312 

0013K 

001316 

001320 

001321 

001322 

001323 

001324 

001326 
001330 
001332 
001 33A 
001336 
001 3A0 
001 542 
001 54A 
001546 
001350 
001352 
001354 
001356 
001360 
001362 
001364 
001366 
001370 
001372 
001374 



001250 



000000 
000000 
000 
001256 
000000 
000000 
000000 
000000 
000 
001 
000000 
000000 
000000 
000000 
000000 
000000 
177560 
1 77562 
1 77564 
177566 
000 
002 
012 
000 
000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 000000 



.S8TTL COMMON TAGS 

;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
.••USED IN THE PROGRAM. 



SCMTAG: 
SPASS: 
STSTNM: 
SERFLG: 

SICNT: 
SLPADR 
SLPERR 
SERTTL 
SITEMB 
SERMAX 
SERRPC 
SGDADR 
$6DADR 
SGDDAT 
S8DDAT 

SJKS 
STKB 
$TPS 
$TPB 
JNULL: 
SFILLS 
SFILLC 
STPFLG 
SREGAD 



SREGO 

SREGI 

$REG2 

$REG3 

$REG4 

$REG5 

$REG6 

$REG7 

SREGIO 

SREGI 1 

STMPO 

STMPI 

$TMP2 

$TMP3 

$TMP4 

$TMP5 

$TMP6 

$TMP7 

$TMP10 

$TMP11 



.-1250 



.WORD 

.UIORD 

.BYTE 

.EVEN 

.WORD 

.WORD 

.WORD 

.WORD 

.BYTE 

.BYTE 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

177560 

177562 

177564 

177566 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.WORD 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



0 
0 
0 

0 
0 
0 
0 
0 
1 
0 
0 
0 
0 
0 

0.0.0 



0 

2 

12 

0 

0 

0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 



START OF COMMON TAGS 
CONTAINS PASS COUNT 
CONTAINS THE TEST NUMBER 
CONTAINS ERROR FLAG 

CONTAINS SUBTEST ITERATION COUNT 
CONTAINS SCOPE LOOP 1250 
CONTAINS SCOPE RETURN FOR ERRORS 
CONTAINS TOTAL ERRORS DETECTED 
CONTAINS ITEM CONTROL BYTE 
CONTAINS MAX. ERRORS PER TEST 
CONTAINS PC OF LAST ERROR INSTRUCTION 
CONTAINS 1250 OF 'GOOD' DATA 
CONTAINS 1250 OF 'BAD' DATA 
CONTAINS 'GOOD* DATA 
CONTAINS 'BAD' DATA 
RESERVED— NOT TO BE USED 
TTY K8D STATUS 
TTY KBO BUFFER 

TTY PRINTER STATUS REG. 1250 

TTY PRINTER BUFFER REG. 1250 

CONTAINS NULL CHARACTER FOR FILLS 

CONTAINS # OF FILLER CHARACTERS REQUIRED 

INSERT FILL CHARS. AFTER A 'IINE FEED" 

•TERMINAL AVAILABLE" FLAG (BI T<07>-0--YES) 

CONTAINS THE 1250 FROM 

WHICH (SREGO) WAS OBTAINED 

CONTAINS ( (SREGAD) -^0) 

CONTAINS ( (SREGAD) *2) 

CONTAINS ( (SREGAD) H) 

CONTAINS ((SREGAD) +6) 

CONTAINS ((SREGAD)*10) 

CONTAINS ((SREGAD) +12) 

CONTAINS ((SREGAD) +14) 

CONTAINS ((SREGAD) +16) 

CONTAINS ((SREGAD) +20) 

CONTAINS ((SREGAD) +22) 

USER DEFINED 

USER DEFINED 

USER DEFINED 

USER DEFINED 

USER DEFINED 

USER DEFINED 

USER DEFINED 

USER DEFINED 

USER DEFINED 

USER DEFINED 



J 
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SEO OCKU 



(1) 


001376 


000000 




STIMES: 


0 


(1) 


OOHOO 


000000 




$ESCAPE:0 


(1) 


001402 


177607 


000377 


S8ELL: 


.ASCIZ 


(1) 


OOH06 


077 




SOUES: 


.ASCII 


(1) 


00U07 


015 




$CRLF : 


.ASCII 


(1) 


00U10 


000012 




$LF: 


.ASCIZ 


(3) 


0OU12 


000000 




ERRRTN: 


.WORD 


(5) 


OOUU 


000044 




$FL8UfF 


:.BLKB 


(3) 


00U60 


000000 




$8UFF: 


.WORD 


(3) 


001462 


000000 




$ACO: 


.WORD 


(3) 


00K64 


000000 




$AC1: 


.WORD 


(3) 


00U66 


000000 




$AC2: 


.WORD 


(3) 


001470 


000000 




SAC 3: 


.WORD 


(3) 


001472 


000000 




SAC 4: 


.WORD 


(3) 


001474 


000000 




SAC 5: 


.WORD 


(3) 


001476 


000000 




$$TMP4 . 


.WORD 


(5) 


001500 


000000 




SSTMP6. 


.WORD 


(3) 


001502 


000004 




FLTMPO. 


.BLKU 


(3) 


001512 


000004 




FLTMP1 . 


.8LKU 


(5) 


001522 


001524 




TK8FRP. 


.WORD 


(5) 


001524 


000011 




TK8FR: 


.8LKW 


(3) 


001546 


000000 




NOTYPE 


.WORD 


(3) 


001550 


000000 




OPT. CP 


.WORD 


(3) 


001552 


000 




KflllE: 


.8YTE 


(3) 


001553 


000 




KBIIEM: .8YTF 


(3) 


001554 


000 




KB11CW 


.8YTE 


(3) 


001555 


000 




CISP: 


.BYTE 


(3) 


001556 


000004 




SSAVPAR: 


(3) 


001566 


000000 




$SAVPSW:.WCSD 


(3) 


001570 


000006 




SRTRN: 


RTT 


(3) 


001572 


000000 




VADR: 


.WORD 


(3) 


001574 


000000 




PA1500 


■ .WORD 


(3) 


001576 


000000 




PA2116: .WORD 


(3) 


001600 


000 




NEXEC; 


.8YTE 


(3) 


001601 


000 




MMON : 


.BYTE 


(3) 


001602 


000 




QV: 


.BYTE 


(3) 


001603 


000 




AA: 


.BYTE 


(3) 


001604 


000000 




FACTOR 


■ .WORD 


(3) 


001606 


000000 




SF AC TOR:. WORD 


(3) 


001610 


000000 




FRSTAD 


■ .WORD 


(3) 


001612 


000000 




FRSTMEMr.WORD 


(3) 


001614 


000000 




LSTMEM 


:.WORD 


(3) 


001616 


000000 




NEXPAR 


: .WORD 


(3) 


001620 


125456 






- .WORD 


(I) 


001622 


065432 




SHINLfl 


: .WORD 


(3) 


001624 


377 


377 


377 NULLS: 


.BYTE 


(3) 


001627 


000 








(3) 


001630 


000060 




SU8PASS:.W0RD 


(3) 


001632 


000000 




SERPSU 


: .WORD 


(3) 


001634 


000000 




EXITFL 


: .WORD 


(3) 


001636 


000000 




0LDeASE:.W0RD 


(3) 


001640 


000000 




NyBASL 


: .WORD 


(3) 


001642 


000000 




NUBASH 


: .WORD 


(3) 


001644 


000000 




lOWC: 


.WORD 


(3) 


001646 


000000 




DEVICE 


: .WORD 


(5) 


001650 


000000 




DEVINDX:.W0RD 



<207><377><377> 

/?/ 

<15> 

<12> 



NUMBER OF 
.-.ESCAPE ON ERROR 
;;COOE FOR BELL 
.-.•QUESTION HARK 
.-.-CARRIAGE RETURN 
.-.-LINE FEED 



ITERATIONS 
1250 



44 



4 
4 

TKBFR 
11 



0 
0 
0 
0 

.BLKW 



BUFFER FOR FLOATING POINT CONVERSION 

EXTE;«ED EXPONENT VALUES 
FOR THE SIX FLOATING POINT 
ACClfWLATORS 



; FLOATING POINT DSL PREC BUFFER 



POINTER FOR KEYBOARD BUFFER 
KEYBOARD BUFFER 

NO TYPEOUT FLAG (IWIBIT WHEN SET) 
CPU OPTION FLAGS 

WITHOUT MP CACHE 

WITH MP CACHE 
KB11CM FLAG (1170 WITH MP MOOS) 
CISP OPTION PRESENT FLAG 
4 .-USED BY INTERUPT SERVICE ROUTINE 

DITTO 

RETURN FOR T-BIT TRAP 
BUFFER rOR VIRTUAL ADDRESS 
BUFFER FOR PHYSICAL ADDRESS BirS<15:00> 
PHYSICAL ADDRESS BITS<21:16> 
NO EXECUTE FUGCNO TEST EXECUTION WHEN SET) 
MEMORY MGMT FLAG(MGMT IS ON WHEN NON-ZERO) 
QV FLAG(OV PASS WHEN SET) 
AUTO ACCEPT FLAG (AA PASS WHEN SET) 
RELOCATION FACTOR{Nl«ER OF 
BYTES /«OVE BASE CODE) 
FIRST ADDRESS Of SECTION BEING EXECUTED 
ADDRESS OF FIRST FREE MEMORY 
ADDRESS OF LAST FREEE MEMORY (IN 28K) 
NEXT VALUE TO PUT IN PARO 
LOU 16 BITS Of RANDOM NLfGER 
HIGH 16 BITS OF RANDOM NLfOER 



123456 

65432 ^. 

377.377.^77,0 .-BUFFER FOR PRINTER TEST 

60 ; SUB-PASS COUNT IN ASCII 

.•ERROR PSW FOR TYPEOUT 

SOURCE BASE ADDRESS FOR DEVICE RELOCATION 
DEST ADDRESS FOR DEVICE RELOC BITS<15:00> 
DEST ADDRESS FOR DEVICE RELOC BITS<21:16> 
TWO'S COMPLIMENT WORD COUNT FOR DEVICE HELOC 

;DEVICE INDEX (0 TO 7) 



C 4 
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CFQKCE 


.P11 12-^-80 11:27 


COMMON TAGS 




f3) 


AA1 ^ C 


000000 


UNITNO: .WORD 




(?) 


001 oSA 


000000 


RNrBINX:.U0PD 




f?) 


00 lo^ 


000000 


n)(MnH]: .WORD 




(3) 


OOlooO 


fXJOOOO 


MXrW.0: .WORD 




(3) 


00 loot: 


OOOOOU 


RP310: .WORD 




(X) 


001664 


000000 


RP311: .WORD 




(3> 


001666 


000000 


RKIO: .WORD 




\ 3> 


00 10^0 


OOOvJOO 






(3) 


OOlO^C 


000000 


RP411: .WORD 




(3) 


00 I0^«» 


000000 


RS11: .WORD 




(3) 


OOlO^O 


OUOUOO 


MTJCK5: .WORD 




(3) 


(VM 7Art 

001 '^OO 


000000 


LTICKS: .WORD 




(3) 
(3) 


001 f\j£ 


000000 


LD2PNT: .WORD 


0 


(3) 


001 ^Oh 


000000 


LD2PT1: .WORD 


0 


(3) 


00 1 '^OO 




LD3PNT: .WORD 


0 


(?) 


00 1 f 10 


OOOOOU 


SMAINT: .WORD 


10 


(3) 


001 fit 


/WVM n 
WW lU 


SYSSIZE:.8LKW 


(3) 


00173? 


000007 

VAAA/V/r 


RUNT8L: .8LKW 


7 


\ j) 


001750 


000007 


RUNTRAK:.8LKW 


7 


(3) 


001766 


M7777 


MAPT8L : . WORD 


-1 


(3) 


001770 


y77777 


.WORD 


-1 


(3) 


001772 


000002 


UBESAV: .8LKW 


2 


(3) 


001776 


000002 


USE ADR: .8LKW 


2 


(3) 


002002 


000002 


ERRBA: .8LKW 


2 



SECi 004 



002026 
002030 
002032 
002034 
002036 
002040 



0020^2 
002044 



000000 
000000 
000000 

ooooco 

000000 
000000 



000000 
000000 



3) 






; * 




7 


HANDLER 


3) 






; * 




8 


REPEAT 


3) 






• * 




15 


ERROR 


3) 


002006 


000200 


RP3HSTAT 


:.W0RD 


200 


;RP03 


3) 


002010 


000200 


RKHSTAT : 


.WORD 


200 


;RK05 


3) 


002012 


000200 


SPARE 0: 


.WORD 


200 




3) 


002014 


000200 


SPARE 1 : 


.WORD 


200 




3) 


002016 


000200 


RP4HSTAT 


:,W0RD 


200 


;RP04 


3) 


002020 


000200 


RSHSTAT: 


.WORD 


200 


;RS04 


3) 


002022 


000200 




.WORD 


200 


.•SPARE 


3) 


002024 


000200 




.WORD 


200 


.•SPARE 



DEVICE IfJiT NUMBER 
INDEX TO RIW TABLE 

BITS<21:16> OF LAST MEM ADDRESS ON SYSTEM 

BITS<15:00> OF LAST MEM ADDRESS ON SYSTEM 

DATA TO LOAD INTO RP03 CS REGISTER 

RP03 FLAG FOR FIRST 2K OF PROGRAM 

DATA TO LOAD INTO RK05 CS REGISTER 

RK05 FLAG FOR FIRST 2K OF PROGRAM 

RP04 FLAG FOR FIRST 2K OF PROGRAM 

RS04 FLAG FOR FIRST 2K OF PROGRAM 

ELAPSED RIM TIME IN MINUTES 

LOW BYTE=NL«ER OF CLOCK INTERRUPTS (0 TO 59) 

HIGH BYTE=ELAPSED RUN TIME IN SEC0NDS(0 TO 59) 

NEXT 3 WORDS USED FOR CISP DETECTION 



CURRENT VALUE IN MAINTENANCE REGISTER 
SYSTEM SIZE TABLE (ONE ENTRY FOR EACH DEVICE) 
RUN TIME TABLE (ONE ENTRY FOR EACH 2K BLOCK) 
RUN TRACK TABLE (ONE ENTRY FOR EACH 2K BLOCK) 
MAP TABLE (ONE BYTE FOR EACH UNI8US DEVICE) 
UNUSED=377, USED=LOW 5 BITS OF MAP ADDRESS 
BASE ADDRESS OF USE TRANSFER IN PROGRESS 
ADDRESS THAT GETS LOADED INTO UBE BA REG 
18 BIT UNIBUS ADDRESS WHEN DEVICE DETECTED AN ERROR 
S8TTL DEVICE HANDLER STATUS WORDS 

EACH WORD HAS THE FOLLOWING BIT ASSIG^#1ENTS: 



S8TTL 



RP3HWC : 
RKHWC: 



RP4HWC ; 
RSHWC: 

S8TTL 



RP30LD: 



DEVICE HANDLER WORD COUNTS 
THIS TABLE GETS LOADED BY THE I/O 
RELOCATION ROUTINE WITH THE TWO'S COMPLIMENT WORD 
COUNT FOR THE TRANSFER FOR THE PARTICULAR DEVICE. 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



RP03 
RK05 
SPARE 
SPARE 
RP04 
RS04 



DEVICE HANDLER OLD BASE ADDRESS 

THIS TABLE GETS LOADED BY THE I/O RELOCATION ROUTINE 
WITH THE BASE ADDRESS OF THE SOURCE DATA FOR THE 
DEVICE THAT IS GOING TO TRANSFER THE DATA. 
.WORD ;RP03 
.WORD 
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(3) 
<l) 
(I) 
'D 
(5) 
'5) 
'3) 
(3) 
f3) 
(3) 
f5) 
(3) 
(5) 
(3) 
(5) 
(3) 
(5) 
(3) 
(3) 
(I) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
'3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 



002W6 
002050 
002052 
00205A 
002056 
002060 
002062 
002064, 
002066 
002070 



002072 
002074 
002076 
002100 
002102 
0021 OA 
002106 
002110 
002112 
0021 K 
002116 
002120 



002122 
002124 
002126 
002130 
002132 
0021 3« 



002136 
002U0 
002U2 
002U4 
002U6 
002150 



002152 
0021 5A 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



oooooo 

000000 

oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 



oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 



0A6672 
047310 

oooooo 
oooooo 

OA 7704 
050254 



oooooo 
oooooo 



RKOLD: 



RP40LD: 
RSOLD: 

S8TTL 
* 



RP3NWL 
RP3NUH 
RKNEWL 
RKNEUH 



RP<»NWL 
RP4NWH 
RSNEUL 
RSNEUH 

S8TTL 



.WORD 
.yORD 
.yORD 
.yORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



D 4 
;30 PAGE 
ADDRESS 

;RIC05 

.SPARE 
.SPARE 

.SPARE 
;RP04 

;RS04 



47-17 



DEVICE HANDLER NEW BASE ADDRESSES 

THIS TABLE GETS LOADED BY THE I/O RELOCATION ROUTINE 
WITH THE BASE ADDRESS OF THE DESTINATION FOR THE 
PARTICULAR DEVICE THAT IS GOING TO DO THE TRANSFER. 



.WORD 
• WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



RP03 

RK05 

SPARE 

SPARE 

RP04 

RS04 



RP3UNIT:.W0RD 
RKUNIT: .WORD 
.WORD 
WORD 

RPAUNIT.-iwORD 
RSUNIT: .WORD 



DEVICE HANDLER UNIT Nll«BER 

THIS TABLE GETS LOADED BY THE I/O RELOCAT'ON ROUTINE. 
IT TELLS THE DEVICE HANDLER WHICH UNIT NUMBER IS 
TO DO THE TRANSFER. 



RP03 

RK05 

SPARE 

SPARE 

RP04 

RS04 



SBTT^ ADDRESS OF THE DEVICE HANDLERS 

• THIS TABLE CONTAINS THE ADDRESS OF THE DEVICE HANDLER 

* ROUTINES. IT IS USED BY THE I/O RELOCATION ROUTINE 
TO TRANSFER CONTRa TO THE DEVICE HANDLER. 



RP3HANA:.W0RD 
RKHANA: .WORD 
.WORD 
WORD 

RP4HANA:!wORD 
RSHANA: .WORD 



RP3DRV 
RKDRV 



RP4DRV 
RSDRV 



RP03 
RK05 
SPARE 
SPARE 
RP04 
RS04 



S8TTL DEVICE HANDLER DISK ADDRESS TABLE 

• THIS TABLE GETS LOADED BY THE DEVICE HANDLER WITH THE 

• DISK ADDRESS (SEC TOR AND CYLINDER) OF THE CURRENT 

• TRANSFER. 

RP3HDA: .WORD ;RP03 DISK ADDRESS 

RP3HDC: .WORD ;RP03 DESIRED CYLINDER 



rfCKC-E PDP n/70 CPU EKERCI.fr MACvn 
CEQKCE.PV 1?-nW-80 11:27 



30A(1052) 12-nAR-80 
DEVICE HANDLER DISK 



f3) 
(5) 
(3) 
(?) 
(I) 
<l) 
(5) 
(3) 
(3) 
(I) 
(3) 
(3) 
(3) 
f3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3; 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 

.3; 



002156 
002160 
002162 
0021 6A 
002166 



002170 
002172 
002174 
002176 
002200 



002202 
002203 
002204 
002205 
002206 



002210 
002212 
0022U 
002216 
002220 
002222 
00222A 
002226 
002230 



002232 
00225A 
002236 
002240 
002242 
002244 
002246 
002250 



000000 
000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 
000000 



O'^O 
000 
000 
000 
000 
002210 



176710 
176712 
176714 
176716 
176720 
176724 
1 76722 
000254 
000256 



177400 
1 77402 
177404 
177406 
177410 
177412 
000220 
000222 



RKHDA: 

RP4HDA: 
RP4HDC : 
RSHDA: 

S8TTL 



RP3Fl|g: 
RKFUN: 

RP4FLW: 
RSFUN: 



S8TTL 



RP3TRY; 
RKTRY: 

RP4TRY: 
RSTRY: 



S8TTL 
* 



.S8TTL 

RP3DS 

RP3ER 

RP3CS 

RP3WC 

RP3BA 

RP3DA 

RP3DC 

RP3VEC 

RP3PSW 

.S8TTL 
RKDS 
RKER 
RKCS 
RKUC 
RKBA 
R<DA 
RKVEC: 
RKPSW: 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



E 4 

11:30 PAGE 47-18 
ADDRESS TABLE 

;R»C05 DISK ADDRESS 
.SPARE 

;RP04 DESIRED CYLINDER 
;RS04 DISK ADDRESS 



SfO 004 3 



DEVICE HANDLER FUNCTION TABLE 
THIS TABLE GETS LOADED BY THE DEVICE HANDLERS 
AND THE DEVICE SERVICE ROUTINES. IT TELLS THE ROUTINES 
WHICH FjgCTION TO DO NEXT. 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



RP03 
RK05 
SPARE 
RP04 
RS04 



DEVICE HANDLER RETRY COLWT 

THIS TABLE GETS LOADED BY THE DEVICE HANDLERS AND IS USED 
BY THE DEVICE SERVICE ROUTINES. IF AN ERROR OCCURS 
THE DEVICE SERVICE ROUTINE WILL RETRY THE FUNCTION UNTIL 
THE BYTE IN THIS TABLE GOES TO ZERO. IT IS INITIALIZED 
TO A -3. 



.BYTE 
.BYTE 
•BYTE 
.BYTE 
.BYTE 
.EVEN 



RP03 
RK05 
SPARE 
RP04 
RS04 



DEVICE REGISTER TABLES 

THE FOLLOWING TABLES CONTAIN THE STANDARD ADDRESS FOR 
THE DEVICES USED BY THIS PROGfWI. IF A DEVICE IS PLACED 
AT A NOW-STANOARD ADDRESS THE APPROPRIATE TABLE CAN BE 
CHANGED AND THE PROGRAn WILL OPERATE THAT DEVICE. 

EXCEPTION—SEE DOCUMENTATION FOR RP03 AND RP04 PROBLEMS. 

RP11/RP03 REGISTERS 

.WORD 176710 ;DRIVE STATUS 

.WORD 176712 .ERROR REGISTER 

.WORD 176714 .-CONTROL AND STATUS 

.WORD 176716 .-WORD COLNT 

.WORD 176720 .BUS ADDRESS 

.WORD 176724 ;DISK ADDRESS 

.WORD 176722 .-DESIRED CYLINDER 

.WORD 254 .-INTERRUPT VECTOR 

.WORD 256 .-INTERRUPT VECT0R*2 



RK11/RK05 REGISTERS 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



177400 
177402 
177404 
177406 
177410 
177412 
220 
222 



DRIVE STATUS 
ERROR REGISTER 
CONTROL AND STATUS 
WORD COU^T 
BUS ADDRESS 
DISK ADDRESS 
INTERRUPT VECTOR 
INTERRUPT VECT0R*2 



CCOKC-E POP n/70 CPU EXE«»C1.FR MACVII 50A(1052) 12-mR-80 
CtOKCE.PII 13-«AR-80 11:27 RK11/RK05 REGISTERS 



F 4 

11:30 PAGE 47-19 



SEC OO^'. 



002252 
002254 
002256 
002260 
002262 
002264 
002266 
002270 
002272 
002274 
0022 76 
002500 
00230? 
002304 
002506 
002310 



002312 
002314 
002316 
002320 
002322 
002524 
002526 
002550 
002552 
002554 
002556 



002540 
002342 
002344 
002346 
002350 
002552 
002554 



0025S6 
0C2560 
002562 
002564 
002566 
002370 



176700 
1 76702 
176704 
1 76750 
176706 
176710 
1 76752 
176712 
176714 
176754 
1 76740 
1 76742 
176756 
176752 
000254 
000256 



172040 
172042 
172044 
1 72070 
172046 
1 72050 

1 72052 
1 72054 
000204 
000206 



170002 
170004 
170016 
170006 
170010 
000510 
000512 



160100 
160102 
160104 
160174 
160106 
160110 



.S8TTL 

RP4CS1 : 

RP4yC : 

RP4aA: 

RP48AE: 

RP4DA: 

RP4CS2: 

RP4CS3: 

RP4DS: 

RP4ER1 : 

RP4DC : 

RP4ER2: 

RP4ER3: 

RPCC: 

RP40F : 

RP4VEC: 

RP4PSW: 

.S8TTL 

RSCS1 : 

RSWC : 

RSaA: 

RS8AE: 

RSDA: 

RSCS2: 

RSCS3: 

RSDS: 

RSER: 

RSVEC: 

RSPSW: 

.S8TTL 
* 
* 
* 
* 

UBETSL: 



RH70/RP04 REGIS 
•WORD 176700 



S8TTL 



MeTTBL: 



Tt , 

;LONTROL AND STATUS »^ 

.WORD 176702 ;WORD COUNT 

.WORD 176704 .BUS ADDRESS 

.WORD 176750 ;BUS ADDRESS EXTENDED 

.WORD 176706 ;DISK ADDRESS 

.WORD 176710 .-CONTROL AND STATUS »2 

.WORD 176752 .-CONTROL AND STATUS #5 

•WORD 176712 ;DRIVE STATUS 

•WORD 176714 ; ERROR REG #1 

.WORD 176734 .-DESIRED CYLINDER 

.WORD 176740 .ERROR REG #2 

.WORD 176742 .ERROR REG Ml 

.WORD 176736 .-CURRENT CYLINDER 

.WORD 176732 ; OFF SET REGISTER 

.WORD 254 ; INTERRUPT VECTOR 

.WORD 256 .-INTERRUPT VECT0R*2 

STERS 

.-CONTROL AND STATUS *1 
.WORD 172042 .-WORD COUNT 
.WORD 172044 ;BUS ADDRESS 
• WORD 172070 .-BUS ADDRESS EXTENDED 
.WORD 172046 ;DISK ADDRESS 
.WORD 172050 .-CONTROL AND STATUS #2 
.WORD 172072 .-CONTROL AND STATUS *3 
.WORD 172052 .-DRIVE STATUS 
.WORD 172054 .-ERROR REG 
.WORD 204 .-INTERRUPT VECTOR 
.WORD 206 ; INTERRUPT VECTOR+2 

UNI8US EXERCISER REGISTER ADDRESS TABLE 
THIS TABLE IS ASSEMBLED FOR UBE #0. IF THE USE 
ADDRESSES ARE CUT FOR OTHER THAN UNIT #0. THE PROGRAM 
WILL CHANGE THIS TABLE. THE PROGRAM LOOKS FOR A 
UBE AT ADDRESSES 770002. 770022. 770032. AND 770042. 



RH70/RS04 REG I 
.WORD 172040 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



UBECC 
UBEBA 
UBECR2 
UBECR1 
UBECLR 
UBEVEC 
UBEVEC+2 



CYCLE COUNT 
BUS ADDRESS REG 
CONTROL REGISTER /»2 
CONTROL REGISTER *1 
UBE CLEAR ADDRESS 
INTERRUPT VECTOR 

.-INTERRUPT VECTOR +2 



MASS BUS TESTER REGISTER ADDRESSES 
THE PROGRAM IS ASSEMBLED WITH ADDRESSES FOR A MBT 
AT 770100. IF THE MBT IS AT ANOTHER ADDRESS THE PROGRAM 
WILL CHANGE THIS TABLE. THE PROGRAM LOOKS FOR A UBE 
AT ADDRESSES 770100, 770200. 770300. AND 770400. 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



MBTCSl 
MBTWC 
MBT6A 
MBTBAE 
MBTMR2 
MBTCS2 



CONTROL AND STATUS *1 
WORD COUNT 
BUS ADDRESS 
BUS ADDRESS EXTENDED 
MAINTENANCE REGISTER *2 
CONTROL REGISTER #2 



rEQKC-E POP 11/70 CPU EXERCI.fR WACVII 
fFQKCE.pn 11:27 



(I) 
(I) 
(I) 
(I) 
(3> 
(?) 
(3) 
(5) 
(I) 
(3; 



00237? 
002 37^ 
002376 
002400 
002402 
002404 
002406 
002410 
002412 



160112 
160114 
160176 
000774 
000776 
160126 
160200 
160300 
160<.00 



30A(''052) 
^WSS BUS 



G 4 

12-«AR-80 11:30 PAGE 47-20 
TESTER REGISTER ADDRESSES 



STATUS REGISTER 
ERROR REGISTER 
CONTROL REGISTER #3 
INTERRUPT VECTOR 
INTERRUPT VECT0R*2 
DRIVE TYPE REGISTER 
MASS 8US TESTER #2 
MASS BUS TESTER *5 
MASS BUS TESTER *4 





.WORD 


MBTST 




.WORD 


WTER 




.WORD 


WTCS3 




.WORD 


WTVEC 




.WORD 


MBTPSU 




.WORD 


MBTDT 




.WORD 


160200 


MBTN3: 


.WORD 


160300 


MBTN4: 


.WORD 


160400 



CEO*cC-€ POP 
CfOtcCE.PII 



(?) 
(1 ) 
(1) 
(1) 
M) 
(1) 
fl) 

n ) 

C) 

(^) 
(1) 
fl) 
(1) 
(1) 
(1) 
(1) 
(1) 

W7 
5948 

5950 

5951 

5952 

5953 

595A 

5955 

5956 

5957 

5958 

5959 

5960 

5961 

5962 

5963 

5964 

5965 

5966 

5967 

5968 

5969 

5970 

5971 

5972 

5973 

5974 

5975 

5976 

5977 

5978 

5979 

5980 

5981 

5982 

5983 

S984 

5985 



n/70 CPU EXERCISER 
12-«AR-80 11:27 



H 4 

«ACV11 30A(1052) 12-nA«-80 11.30 PAGE 4 7-21 
nASS BUS TESTER REGISTER ADDRESSES 



SEO 0046 



002414 

002414 
002416 
002420 
002422 

002424 
002426 
002430 
002432 

002434 
002436 
002440 
002442 

002444 
002446 
002450 
002452 

002454 
002456 
002460 
002462 

002464 
002466 
002470 
002472 

002474 
002476 
002500 
00.^502 

002504 
002506 
002510 



065637 
065664 
065730 
065723 

065742 
065770 
066016 
065723 

066026 
066063 
066132 
065723 

066146 
066175 
066132 
066253 

066260 
066317 
066370 
066364 

066402 
066452 
066472 
066253 

000000 
000000 
000000 
000000 

066500 
066551 
066624 



,S8TTL ERROR POINTER ^ABLE 

•THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

•TH6 INFORMATION IS OBTAINED BY USING THE INDEX NLI«ER FOUND IN 

•LOCATION $ITE/«B. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS "ERTINENT. 

•N0TE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPO. 

•N0TE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS. 



tERRTB: 



EM 

DH 
DT 
DF 



.-ITEM 

EMI 

DHl 

DTI 

DF1 

; I TEM 

EM2 

DH2 

DT2 

DFl 

; I TEM 

EM3 

DH3 

DT3 

DFl 

.•ITEM 

EM4 

DH4 

DT3 

DF4 

.•ITEM 

EMS 

DH5 

DT5 

DF5 

; I TEM 

EM6 

DH6 

DT6 

DF4 

.•ITEM 

0 

0 

0 

0 

; I TEM 

EM10 

DHIO 

one 



POINTS TO THE ERROR MESSAGE 
POINTS TO THE DATA HEADER 
POINTS TO THE DATA 
POINTS TO THE DATA FORMAT 



.•UNEXPECTED TRAP TO 4 
.PCOFTP PHYSC PSW CPUERR 

; VADR . VADR . STMPO . $ TMP2 
.•0.1.0.0.0 

.•UNEXPECTED TRAP TO 10 
; PCOFTP PHYSPC PSW 
; VADR. VADR. STMPO 



UNEXPECTED TRAP TO 250(MGMT) 
PCOFTP PHYSPC PSW MMRO 
VADR . VADR .STMPO. . $TMP2 , .$TMP3 



mi2 



.•UNEXPECTED TRAP TO 114 

.-PCOFTP PHYSPC PSW ERADREG MEMERRREG 

; VADR . VADR . STMPO. $ TMP3 . STMP2 

.-0.1.6.2.0 

; PARI TV ERROR DURING DATA CHECK 
.SfiCADR DSTADR ERRADREG MEM ERR REG 
; STMP0.PA1 500.STMP3.STMP2 



ERROR DURING CHECK OF RELOCATED DATA 
SRC ADR DSTADR 
STMPO. PA 1500 



10 



ERROR DURING DATA CHECK-RELOC WAS BY I/U 
SRCADR DSTADR DEVICE THAT DID X^ER 
$T*V>0.VADR.STMP2.$TMP3 



^EOKC-E POP ^1/70 CPU EXERCI.fr MACVII 30A(1052j 

:eokce. pn i2-mft-80 n.-?? error pointer table 

5986 002S1c 066620 DF10 

;JTEM n 

5988 0025U 066656 EM11 

5989 002516 066703 DHll 

5990 002520 066726 DT11 

5991 002522 06672A DMI 

5992 ;ITEM 12 

5993 002524 06673A E«12 

5994 002526 066772 DHl2 

5995 002530 067010 DTI 2 

5996 002532 067006 DF12 

5997 ;jTEI1 M 

5998 002534 067014 EMI 3 

5999 002536 067052 DH13 

6000 002540 067010 DTI 2 

6001 002542 067006 DF12 

6002 ;JTEM 14 

6003 002544 067067 EMU 

6004 002546 067114 DH14 

6005 002550 067134 DTK 

6006 002552 067146 DF14 

6007 ;]TEM 15 

6008 002554 067152 EMI 5 

6009 002556 000000 0 

6010 002560 000000 0 

6011 002562 000000 0 

6012 ;1TEM 16 

6013 002564 067067 EMI 4 

6014 002566 067166 DH16 

6015 002570 067220 DTI 6 

6016 002572 067213 DF16 

6017 ;JTEM 17 

6018 002574 067232 EMI 7 

6019 002576 066703 DHll 

6020 002600 066726 0T11 

6021 002602 066724 Dfll 
6022 

6023 ;JTEM 20 

6024 002604 067276 EM20 

6025 002606 066452 DH6 

6026 002610 066726 DTll 

6027 002612 066724 DF11 



1:30 PAGE 47-22 

SEti 0047 

;0J.3.0 

;BIT(S) STUCK JN MJCR0-9REAK REG 
.GOOD DAT BAD DAT 
;$TMP0.$TMP1 
;0.0 

:UNIBUS EXERCISER NON-EXISTANT MEMORFy 

; PHYSICAL ADDRESS 

;PA1500 

;2 

.-MASS BUS TESTER NON-EXISTANT MEM0R> 
.-PHYSICAL ADDRESS 



.-FLOATING POINT ERROR 

DATAl DATA2 
; $ TMP4 . $REG2 . $TMP6 . $RE G3 
;4.0,4.0 

.-DEVICE HUNG 



.-FLOATING POINT ERROR 

;FLTMP0.$REG2.FLTMP1 ,$REG3 
;5.0.5.0 

;R0 FAILED TO LOAD CORRECTLY ON MFPT 

;G00D DAT BAD DAT 

;$TMP0,$TMP1 

;0.0 



.-CIS INSTRUCTION FAILURE 



J 4 

CEOKC-E POP 11/70 CPU EXERCISER WCVll 30A(1052) 12-«AR-80 11:30 PAGE 47-23 
CEQKCE.Pn l2-nAR-80 11:27 ERROR POINTER TABLE 



SEO 00^8 



6055 


002614 


015737 


177570 


6056 


002622 


000774 




6057 
6058 














6059 








6060 








6061 








6062 








6065 








606^ 








6065 








6066 








6067 








6068 








6069 








6070 








6071 








6072 








6073 








6074 


002624 


012706 


001100 


6075 


002630 


012737 


062270 


6076 


002636 


012737 


054710 


6077 


002644 


012700 


000377 


6078 


002650 


005737 


001552 


6079 


002654 


001402 




6080 


002656 


012700 


1 77777 


6081 


002662 


010037 


1 77770 


6082 


002666 


020037 


1 77770 


6083 


002672 


001036 




6084 


002674 


005000 




6085 


002676 


010037 


1 77770 


6086 


002702 


020037 


1 77770 


6087 


002706 


001030 




6088 


002710 


012700 


000125 


6089 


002714 


005737 


001552 


6090 


002720 


001402 




6091 


002722 


012700 


052525 


6092 


002726 


010037 


1 77770 


6093 


002732 


020037 


}77770 


6094 


002736 


001014 




6095 


002740 


012700 


000252 


6096 


002744 


005737 


001552 


6097 


002750 


001402 




6098 


002752 


012700 


}25252 


6099 


002756 


010037 


1 77770 


6100 


002762 


020037 


1 77770 


6101 


002766 


001411 




6102 


002770 


010067 


1 76356 


6103 


002774 


013737 


1 77770 


6104 


003002 


012737 


002624 


6105 


003010 


104011 




6106 








6107 


003012 


012737 


000100 


6108 


003020 


104400 


003026 


(1) 


003024 


000421 




(1) 









177570 START1; 



nov afSUR.i#oi SPLAY 

BR start' 

.S8TTL PROGRAM INITIALIZATION 



S8TTL MICRO-BREAK REGISTER TEST 
THIS TEST IS EXECUTED BY STARTING THE PROGRAM AT ADDRESS 214. 
THIS TEST REQUIRES A MAINTENANCE CARD AND OPERATOR INTERVENTION. 
THE PROCESSOR SHOULD STOP 8 TIMES. FOLLOWING IS THE DATA 
THAT SHOULD BE IN THE MICRO-ADRESS DATA LIGHTS EACH TIME: 



000034 
000030 



001354 
001262 



177770 



« * 


1 


AAA 
000 




• * 


2 


AA1 

001 




• * 


5 


AA^ 

OOc 




• * 


4 


A A/ 

004 




• * 


c 


OrU 




• * 


6 


f\'if\ 
UcU 




• * 


f 


U4U 




• * 


(5 


cW 




STARTS : 


MQV 




StiUP THt SP 






1 RAP , a* T RAP Vc C 


;5cTUP iKAP VcCIOR 




nov 


*»tHRUK,«l»tni Vet 


■ ccTiiD CMT i/crrno 
; 5c 1 \Jr tnl Vt C T UK 




nuv 


mX77 da 


• Dl iT M f rOA— DOC Ah' f\ATA fAl DA 




TCT 




;lb I nib A KoM^C UK Koll—tn rHUCtbbUK.' 




Qcn 
DcU 


■ * 


;8K Ir NUT. 0 bi i LttsHc AK KtulbicK 




nuv 


«1 77777 Dft 


KBI l-C AND PCSll*tn HAvt 16 Dli iT'oRrAK 


1 c • 


nuv 


DA ^JN ADC A ^ 


LUAP U dKcAK Kcu 




CW 


RU.awUBRcAK 


. 1 f\Ar\ ruf t 
rLUAP Uk7 




oNc 


1 DDCDD 


- DD AAl^Li f C AlA 

;oHANCM Jr NU 




CLH 


DA 

RU 






nuv 


DA ^iHBDCA^ 








DA ^JNODCA^ 

RU^aVueRcAK 






□Nc 


UoRcRR 






nuv 








1 o 1 








BEO 


2$ 


;8R If NOT. 8 BIT U-BREAK REGISTER 




MOV 


#52525, RO 


;Kfl11-E AND KB11-EM HAVE 16 BIT U-6REAK 


2$: 


MOV 


RO,a#UBREAK 






CMP 


RO.avUBREAK 






BNE 


U8RCRR 






MOV 


#252,R0 






TST 


a«KB11E 


;IS THIS A KB11-E OR KB11-EM PROCESSOR' 




BEO 


3$ 


;BR IF NOT. 8 BIT U-BREAK REGISTER 




MOV 


*125252.RO 


rKB11-E AND KB11-EM HAVE 16 BIT U-BREAK 


3S: 


MOV 


RO,airUBREAK 






CMP 


RO,a«UBREAK 






BEO 


UBRK2 




UBREfift: 


MOV 


RO,STHPO 






MOV 


a#U8REAK,*rSTMP1 






MOV 


*START2,ar$LPERR 






ERROR 


11 





REGISTER 



.-TEST TO ENSURE 
UBRK2; MOV 

TYPE 

BR 

;;65$: .ASCIZ 



U BREAK COMPARATORS DO NOT COME ON. 
#100,a#UBREAK :PUT SAFE VALUE IN REG 

.65$ ;;TYPE ASCIZ STRING 

64$ ;;GET OVER THE ASCIZ 

/SET MAINT TO STOP ON MI CR0-8REAK/<CRlF > 



K 4 

TEOKC-E POP n/70 CPU EXERCi:,FR MACVll 30A(1052) 12-mR-80 11:30 PAGE 47-24 
fEQKCE.Pn 12-«Aft-80 11:27 MICRO-BREAK REGISTER TEST 



SEQ OO^^v 



(1) 
6109 
(1) 
(1) 
(1) 
6110 
6111 
6112 
6113 
611A 
6115 
6116 
6117 
6118 
6119 
6120 
6121 
6122 
6123 
61 24 
6125 
6126 
6127 
6128 
6129 
6130 
6131 
6132 
6133 
6134 
6135 
6136 
6137 
6138 
6139 
6140 
6141 
6142 
6143 
6144 
6145 
6146 
6147 
6148 
(1) 
(1) 
(1) 
6149 
6150 
6151 



6152 
6153 



003070 

003070 104400 
003074 000407 



003114 
003114 
003116 
003124 
003132 
003136 
003142 
003146 
003152 
003154 
003160 
003162 
003170 
003172 
003176 
003202 
003210 
003216 
003224 
003230 
003234 
003236 
003242 
003246 
003250 
003252 
003254 
003262 
003264 
003270 
003274 
003300 
003304 
003310 
003312 

003314 
003316 
003522 
003326 
003332 

003342 
003342 
003344 
003346 
003351 
003354 

003360 
003366 
003374 



000000 
012737 
012737 
012705 
012701 
012702 
112237 
000010 
005037 
077106 
012737 
006400 
005037 
012706 
012737 
012737 
052737 
012706 
012746 
005000 
012701 
012702 
012217 
000000 
077103 
012737 
005000 
012702 
012703 
012701 
012746 
112237 
012317 
000000 

077105 
111237 
005037 
104400 
000403 



003076 



000012 000010 

000002 000012 

003172 

000010 

003347 

177770 

177770 

000125 177770 

1 77770 
001100 

000006 000004 
000002 000006 
040000 1 7777b 
000700 
003252 

000007 
003362 



000100 177770 

003346 
003360 
000010 
003314 
^77770 



}77770 
^7777b 
003334 



64$: 



;;67$: 
66$: 



1$: 



2$: 



4$: 
3$: 



6$: 



5$: 



;:69$: 
6§$: 



TyPE 
BR 

.ASCIZ 

HALT 

MOV 

MOV 

MOV 

MOV 

MOV 

MOVB 

10 

CLR 

SOB 

MOV 

MARK 

CLR 

MOV 

MOV 

MOV 

BIS 

MOV 

MOV 

CLR 

MOV 

MOV 

MOV 

.WORD 

SOB 

MOV 

CLR 

MOV 

MOV 

MOV 

MOV 

MOVB 

MOV 

.WORD 

SOB 

MOVB 

CLR 

TYPE 

BR 

.ASCIZ 



000000 








HALT 


000522 








BR 


000 


001 


002 


UBRTBL : 


.BYTE 


004 


010 


020 






040 


200 


100 






003360 








.EVEN 


000010 


005010 


005020 


INST8L: 


.WORD 


005040 


000000 


005200 






000207 


005010 









.67$ .-.TYPE ASCIZ STRING 

66$ ;;GET OVER THE ASCIZ 

/HIT CONTINUE/<CRLF> 



#12.»rRESVEC 
#2-»rRESVEC*2 
#2$.R5 
#10,R1 

#IBRTBL4-1,R2 

a«UBREAK 
R1J$ 

#l25.a#UBREAK 

0 

a«U8REAK 
#1100, SP 
#6,airERRVEC 
#2.airERRVEC+2 
il'BITU.a^PSU 
#700, SP 
#3$.-(SP) 
RO 

#7.R1 

#INSTBL+2.R2 
(R2)+.(PC) 

R1.4$ 

#100,arU6REAK 

RO 

#UBRTBL.R2 
#INS TBL.R3 
#10. R1 
#5$.-(SP) 
(R2)*,anJBREAK 
(R3)+.(PC) 



R1,6$ 

(R2),a#UBREAK 

a#PSW 

,69$ 

68$ 

/D0NE/<CRLF> 



;SET UP R5 FOR MARK INSTR 
SET SOB COIWT 

GET ADRS OF UBREAK DATA TABLE 
LOAD MICRO-BREAK FROM TABLE 
EXEC RES INSTR (ROM ADRS 000) 

.-CONTINUE 

;SET MICRO-BREAK DATA PATTERN 
:EXEC MARK (ROM ADRS 252) 

.•RESTORE SP 



GO TO SUPER MODE 
SET SUPER SP 

SETUP STACKK FOR JSR INSTR 

SETUP RO 

SET SOB COUNT 

GET ADRS OF TABLE OF INSTRUCTIONS 
GET INSTRUCTION 
EXECUTE INSTRUCTION 
CONTINUE 

PUT SAFE VALUE IN UBREAK REG 



LOAD UBREAK REG FROM TABLE 

GET INSTR FROM TABLE 

EXECUTE INSTR. PROCESSOR SHOULD STOP 

WITH THE CORRECT ROM ADR IN THE LIGHTS 

CONTINUE 

PUT SAFE VALUE IN UBREAK REG 
GO BACK TO KERNEL MODE 
.•TYPE ASCIZ STRING 
;6ET OVER THE ASCIZ 



START 

0,1.2.4,10,20,40.200.100 



10,5010,5020,5040,0.5200,207.5010 



CEQKC-E POP n/70 CPU EXERCISFR HACYll 50A(1052) 12-#Wl-80 11:30 
CEQKCE.Pn 12-nAR-80 11:27 MICMO-fiREAK REGISTER TEST 



L * 
PAGE 47-25 



Seo 0050 



6155 
6156 
6157 
(1) 
(1) 
(1) 
6158 
(1) 
(1) 
M) 
6159 
6160 
(1) 
(1) 
(1) 
6161 
6162 
6163 
6164 
6165 
6166 
6167 
6168 
6169 
6170 
6171 
6172 
6173 
6174 
6175 
6176 
6177 
6178 
6179 
6180 
6181 
6182 
6183 
6184 
6185 
6186 
6187 
6188 
6189 
6190 
6191 
6192 
6193 
6194 
6195 
6796 
6197 
6198 
6199 
6200 
6201 



005400 
005404 
003412 
003416 

005452 
005452 
003456 

003540 
003540 
003542 
005546 

003606 
003606 
003610 



003612 
003616 
003624 



003632 
003636 
003640 
003641 
003642 
003644 
003646 
003652 
003654 
003660 
003664 
003666 
003674 
003676 
003702 
003704 
003710 

003712 
003714 
003720 

003722 
003726 
003730 



003734 
003740 
003742 



012706 001100 

012737 062270 000034 

104400 005420 
000415 



104400 003460 
000430 



104416 

104400 003550 
000417 



104402 
000673 



012706 001200 

012737 076543 001622 

012737 123456 001620 



005037 
005027 
000 
000 
005027 
000000 
005737 
001411 
110637 
105737 
100023 
012737 
000417 
005737 
700003 
110637 
000411 

001003 
110637 
000405 

005737 
001402 
110637 



001602 



001234 

001603 
001235 

001236 001244 

046656 

001602 

001603 

000042 
003641 



START3: MOV #1100.SP ;SET UP STACK 

•WV irSTRAP,arTRAPVEC .-SET UP TRAP VECTOR 

TYPE .65$ ;;TYPE ASCIZ STRING 

9R 64$ ;;GET OVER THE ASCIZ 

.ASCIZ <15><12>/PID REGISTER SETUP AID/ 

TYPE .67$ ;;TYPE ASCIZ STRING 

BR 66$ ;;GET OVER THE ASCIZ 

.ASCIZ <15><12>/TYPE IN THE DESIRED PROCESSOR SERIAL Nl/BER: / 

RDDEC :GET THE MfCER. 

TYPE .69$ ;;TYPE ASCIZ STRING 

BR 68$ ;;GET OVER THE ASCIZ 

.ASCIZ <75><12>/THE OCTAL EQUIVALENT IS ; / 

TYPOC .-TYPE THE NU1BER IN OCTAL 

BR START3 



;;65$: 
64$: 



;;67$; 
66$: 



;:69$: 
6hi: 



005737 001602 
001006 

005737 003640 



; ; *************************************************************** 

START: MOV #KERSTK.SP ;SET KERNEL STACK PTR 

MOV #76543. ar$HINUM .-INITIALIZE RANDOM NLM GEN 

MOV #123456.a#$L0NlJ>1 

.DETERMINE HOW PROGRAM WAS LOADED AND WHAT MODE (IF ACT11) 
.•AND SET MEMORY PROTECTION. 

;SET NOT OV NOR AA MODE 
;SET NOT XXDP 
;XXDP INDICATOR 
rXXDP CHAIN MODE INDICATOR 
CLEAR MEMORY PROTECTION LIMIT 
;WILL CONTAIN MEM PROT LIMIT 
;APT MODE 
;N0 

;SET UP FOR APT 

.APT CONTROL 
'NO 

•USE APT SWR 
.'BRANCH IF NOT QV 
;SET ACT11 QV MODE 



.'SET ACTll AA MODE 

.'BRANCH IF NOT IN CHAIN MODE 
.'SET CHAIN MODE INDICATOR 

.•BRANCH IF QV OR AA 
.•BRANCH IF NOT VIA XKOP 





CLR 


aiTQV 




CLR 


(PC)* 


XXDP: 


.BYTE 


0 


XXDPC : 


•BYTE 


0 




CLR 


(PC) + 


PROT: 


.WORD 


0 




TST 


anENv 




BEQ 


15$ 




MOVE 


SP.arAA 




TST8 


anENVM 




BPL 


3$ 




MOV 


mPTsw.answRP 




BR 


3$ 


15$: 


TST 


amNDAD4-4 




BPL 


1$ 




MOVE 


sp.a#QV 




BR 


3$ 


1$: 


BNE 


2$ 




M0V8 


SP.a^AA 




BR 


3$ 


2$: 


TST 


a#42 




BEQ 


3$ 




MOVB 


SP.arxxDPC 


;SET MEMORY PROTECTION LIMITS 


3$: 


TST 


a#Qv 




BNE 


MEMS I Z 




TST 


axrxxDP 



CEQKr-E POP n/70 CPU EXERCISER MACVll 30A(1052) 12-mR-80 11:50 PAGE 47-26 
CE0KCE.P11 12-nAR-80 11:27 MICRO-flREAK REGISTER TEST 



SEQ 005 



6202 
6203 
620^ 
6205 
6206 
6207 
6208 
6209 
6210 
6211 
6212 
6213 
62U 
6215 
6216 
6217 
6218 
6219 
6220 

(1 

(1 

(1 
622 

(1 

(1 

(1 
6222 

(1 

(1 

(1 
6223 
6224 

(1 

(1 

(1 
6225 

(1 

(1 

(1 
6226 

(1 

(1 

n 

6227 

(1 

(1 

(1 
6228 

(1 

(1 

(1 
6229 
6230 
6231 
6232 
6233 



003746 001403 

003750 012737 005700 

003756 012737 157776 

003764 163737 003644 

003772 012737 067330 



004000 
004C06 
004012 

004020 
004024 
004030 
004032 
004040 
004044 

004134 
004134 
004140 

004214 
004214 
004220 

004264 
004264 
004270 
004274 
004276 
004277 
004300 
004304 

004316 
004316 
004322 
004324 
004325 
004326 
004332 

004344 
004344 
004350 
004352 
004353 



004354 



052767 
004767 
062767 

016702 
023702 
001551 
012737 
104400 
000433 



104400 
000425 



104400 
000421 



104400 
01 3746 
104404 
006 
000 
104400 
000404 



013746 
104404 
006 
000 
104400 
000404 



016746 
104404 
006 
000 



000200 
055670 
000037 

056242 
1 77760 

062270 
004046 



004142 
004222 



001407 
177762 



004306 
1 77760 
004334 
055716 



003644 
001614 
001614 
001612 



055^42 
056246 

000034 



BEQ 
MOV 

MEMSIZ: MOV 
SUB 
MOV 



MEMSIZ 

#570O,i#PROT 
*157776.8#LSTMEM 
a»PROT,a#LSTMEM 
#ENDTAG*2.a#FRSTMEM 



PROTECT XXDP MONITOR 

SET VALUE INTO LSTMEM 

SET PROTECTION 

SET FIRST RELOCATION ADDRESS 



;GET ADDRESS Of THE LAST MEMORY LOCATION ON THE SYSTEM 

.SIZE MEMORY AND COMPARE IT WITH THE SYSTEM SIZE REGISTER 
.PRINT A WARNING IF THEY DISAGREE. 



;;65$: 
64S: 



;;67$: 
66S: 



;;69$: 

68$: 



• -73$: 



BIS 
JSR 
ADD 

MOV 

CMP 

BEQ 

MOV 

TYPE 

BR 

.ASCIZ 

TYPE 
BR 

.ASCIZ 

TYPE 
BR 

.ASCIZ 

TYPE 

MOV 

TYPOS 

.BYTE 

.BYTE 

TYPE 

BR 

.ASCIZ 

MOV 

TYPOS 

.BYTE 

.BYTE 

TYPE 

BR 

.ASCIZ 

MOV 
TYPOS 
.Br-TE 
.BYTE 



;COPY LAST BLOCK COUNT 
.•EQUAL? 



*8IT07,$ICT11 
PC, SSI ZE 
#37. SLSTBK 

SLSTBK,R2 
a»SIZEL0.R2 
OKSIZ 

#$TRAP,d#TRAPVEC ;SET UP TRAP VECTOR 

.65$ ;;TYPE ASCIZ STRING 

64$ ;;GET OVER THE ASCIZ 

<15><12>/WARNING- THE SIZE OF MEMORY IS DIFFERENT FROM THAT/ 

.67$ ;;TYPE ASCIZ STRING 

66$ ;;GET OVER THE ASCIZ 

<15><12>/IN0ICATED BY THE SYSTEM SIZE REGISTER./ 



,69$ 
68$ 

<15><12>/ 
.$CRLF 

arsiZEHi.-<sp) 

6 
0 

.71$ 
^0$ 

/ / 

a#SIZELO,-(SP) 

6 
0 

.73$ 
f2% 

/ / 

$LSTBK.-(SP) 

6 
0 



;;TYPE ASCII STRING 
;;6ET OVER THE ASCIZ 
SIZEHI SIZELO ACTUAL/ 



SAVE arSIZEHI FOR TYPEOUT 
60 TYPE—OCTAL ASCII 
TYPE 6 DIGIT(S) 
SUPPRESS LEADING ZEROS 
TYPE ASCII STRING 
GET OVER THE ASCIZ 



SAVE arSIZELO FOR TYPEOUT 
60 TYPE— OCTAL ASCII 
TYPE 6 DI6IT(S) 
SLFPRESS LEADING ZEROS 
TYPE ASCIZ STRING 
GET OVER THE ASCIZ 



SAVE $LSTBK FOR TYPEOUT 
GO TYPE— OCTAL ASCII 
TYPE 6 DIGIT(S) 
SUPPRESS LEADING ZEROS 



FORM MXMMHI. MXMMLO, AND THE HIGHEST MEMORY ADDRESS BASED ON THE SIZE OF 
THE MEMORY 

OKSIZ: 



N 4 

CEQKC-E POP 11/70 CPU EXERCISER «ACY11 30A(1052) 12-*W-80 11:30 PAGE 47-27 
CEQKCE.P11 12-MAP-80 11:27 «lCRO-eREAK REGISTER TEST 



SEQ 0052 



6234 


004354 


005002 








CLR 


6235 


004356 


013703 


062266 






MOV 


6236 


004362 


073227 


000006 






ASHC 


6237 


004366 


052703 


00OC77 






BIS 


6238 


004372 


062703 
005502 


000001 






ADD 


6239 


004376 








ADC 


6240 










• - ********** 


6241 


004400 


010237 


001656 






MOV 


6242 


004404 


010337 


001660 






MOV 


6245 














6244 


004410 


012706 


001200 






MOV 


6245 


004414 


005037 


001250 






CLR 


6246 


004420 


105037 


001601 






CLR8 


6247 


004424 


012737 


000700 


001616 




MOV 


6248 


004432 


005737 


003644 






TST 


6249 


004456 


001403 








BEQ 


6250 


004440 


012737 


001600 


001616 




MOV 


6251 


004446 








1$: 




6252 


004446 


012700 


000027 






MOV 


6253 


004452 


005001 








CLR 


6254 


004454 


005061 


001676 




2$: 


CLR 


6255 


004460 


062701 


000002 






ADD 


6256 


CX)4464 


077005 








SOB 


6257 


004466 


012737 


1 77777 


001 766 




MOV 


6258 


004474 


012737 


y77777 


001 770 




MOV 


6259 


004502 


012700 


000010 






MOV 


6260 


CX)4506 


012701 


002006 






MOV 


6261 


CX)4512 


012721 


000200 




3$: 


MOV 


6262 


CXK5''6 


077003 








SOB 


6263 


004520 


012737 


000060 


001630 




MOV 


6264 


004526 


012700 


057060 






MOV 


6265 


004532 


012701 


000012 






MOV 


6266 


004536 


112720 


000060 




4$: 


MOVB 


6267 


004542 


077103 








SOB 


6268 


004544 


105040 








CLR8 


6269 


004546 


112737 


000072 


057063 




MOVB 


6270 


004554 


112737 


000072 


057066 




MOVB 


6271 


004562 


012737 


000340 


'\7177b 




MOV 


(^ ) 


004570 


012706 


001250 






MOV 


( 1 ) 


004574 


005026 








CLR 


( 1 ) 


004576 


022706 


001310 






CMP 


( 1 ) 


004602 


001374 








BNE 


( 1 ) 


004604 


012706 


001 200 






MOV 


( 1 ) 


004610 


012737 


054456 


000020 




MOV 


( 1 ) 


004616 


012737 


000340 


000022 




MOV 


( 1 ) 


004624 


012737 


054710 


000030 




MOV 


( 1 ) 


004632 


012737 


000340 


AAA A V% 

000032 




MOV 


( 1 ) 


004640 


012737 


062270 


000034 




MOV 


J 1 1 


004646 


012737 


000340 


A A A A ^ ^ 

000036 




MOV 




004654 


Q\27i7 


061206 


A Art A "^y 

000024 




MOV 




004662 




000340 


000026 




MOV 




004670 


016767 


041622 


041612 




MOV 




004676 


005067 


174474 






CLR 




004702 


005067 


17i,^,72 






LLR 




004706 
004714 


112767 


000001 


174353 




M0V8 




012767 


004714 


174336 




MOV 



R2 

arSLSTBK.RS 

*6.R2 

*7^R3 

/rl.R3 
R2 

* 

R2,a«MxMnHi 

R3.a*MXMML0 

*K£RSTK, SP 

atrSPASS 

a«MM0N 

#700,a#NEXPAR 

a«PR0T 

IS 

#1600,a*NEXPAR 



#27,R0 

R1 

MTICKS(RI) 

#2.R1 

R0,2$ 

*-1,a*MAPTBL 

*-1,a*MAPTBL+2 

#10,R0 

<rRP3HSTAT.R1 

*200.(R1)+ 

R0-3$ 

4r60,arsuBPASs 

#TJMEBUF ,R0 
#12,R1 
#60,(R0)+ 
R1,4$ 

-(RO) 

#72. arTIHEBUF +3 
*72-arTIMEBUF*6 

*340,arps 

#$C«TAG.R6 
(R6)* 
#$TKS,R6 
.-6 

*STACK,SP 

«SC0PE,a*I0TVEC 

#340,ftriQTVEC+2 ; 

#$ERROR,airEMTVEC 

#340,a#EMTVEC*2 ; 

4f$TRAP,arTRAPVEC 

*340,arTRAPVEC+2; 

nPWRDN.a^PWRVEC 

#340.arPWRVEC+2 ; 

SENDCT.SEOPCT ; 

STIMES 

$E SCAPE 

#1 ,$ERMAX 

#..$LPADR 



.-SHIFT TO FORM CORRECT ADDRESS 
.•ENSURE LOWER SIX BITS SET 



.•SAVE UPPER SIX BITS 
.•SAVE LOWER 16 BITS 



SET STACK PTR 

CLEAR PASS COUNT 

SET MEM MGMT ON IND=NOT ON 

SET FIRST 'PAR* VALUE 



SET SOB COUNT 
SETUP INDEX 
CLEAR TABLES 

CONTINUE 

INITIALIZE MAP TABLE 
SET SOB COIWT 

GET ADDRESS OF HANDLER STAT 
INITIALIZE STATUS TABLE 
CONTINUE 

INIT SUBPASS TO ASCII 0 
GET ADR OF TIME BUFI ER 
SET SOB COU^T 
INIT TIME BUFFER 

INSERT TERMINATOR 
INSERT COLON 



LOCK OUT ALL INTERRUPTS 
FIRST LOCATION TO BE CLEARED 
CLEAR MEMORY LOCATION 
DONE? 

LOOP BACK IF NO 

SETUP THE STACK POINTER 

;IOT VECTOR FOR SCOPE ROUTINE 

LEVEL 7 

;E«T VECTOR FOR ERROR ROUTINE 
LEVEL 7 

.TRAP VECTOR FOR TRAP CALLS 
LEVEL 7 
.•POWER FAILURE VECTOR 
LEVEL 7 

SETUP END-OF -PROGRAM COUNTER 
INITIALIZE NUMBER OF ITERATIONS 
CLEAR THE ESCAPE ON ERROR ADDRtSS 
ALLOW ONE ERROR PER TEST 
INITIALIZE THE LOOP ADDRESS FOR SCOPE 



CEQ*C-€ POP n/70 CPU EXERCISER nACVll 30A(105?) 12-«AR-80 11:30 PAGE 47-28 

rEOKCE.PIl 12-#lAR-80 11:27 MICRO-QREAK REGISTER TEST SEO 0053 



(1 ) 


004722 


012767 


004722 


174332 




nov 


#..$LPERR 


.-SETUP THE ERROR LOOP ADDRESS 


6272 
6273 










; CLEAR 


PROGRAM 


INDICATORS 




6274 


004730 


052777 


000100 


174352 




BIS 


#100,a$TKS 


;S£T IE BIT IN KEYBOARD STATUS REG 


6275 


004736 


012737 


063354 


000060 




nov 


miSR.afTKVEC 


.-SETUP KEYBOARD VECTOR 


6276 


004744 


012737 


000200 


000062 




nov 


«PR4,arTKVEC«2 


6277 


004752 


012737 


063566 


000064 




nov 


fTPISR.aiTTPVEC 




6278 


004760 


012737 


000200 


000066 




nov 


*PR4.a*TPVEC*2 




6279 


004766 


005037 


001546 






CLR 


a«N0TYPE 


.-CLEAR 'NO TYPING" INDICATOR 


6280 
6281 










.THE BELOW ROUTINE ASCERTAINS yHICH CP & CP OPTIONS THE PROGRAM IS RUN- 


6282 










;NING ON AND SETS AN INDICATOR IN OPT. CP ACCORDINGLY. 


6283 


004772 


012737 


000006 


000004 


CPCHK: 


nov 


*ERRVEC*2.a#ERRVEC .SET UP ERROR TRAP TO RETURN 


6284 


005000 


012737 


000002 


000006 




nov 


*2.a#ERRVEC*2 




6285 


005006 


012737 


000012 


000010 




nov 


#RESVEC^2.MrRESVEC ;AND ALSO RESERVED INST TRAP 


6286 


005014 


012737 


000002 


000012 




nov 


ir2.a#RESVEC*2 




6287 


005022 


012702 


144006 






nov 


#144006. R2 


;SET 11/70 NON-OPTION BITS 


6288 


005026 


000261 








SEC 






6289 


005030 


170500 








TSTF 


RO 


.-WILL CLEAR CARRY IF 11/70 FLOATING POINT 


6290 


005032 


170000 








CFCC 




;IS AVAIL. COPY FLOATING CCS INTO PSW 


6291 


005034 


103402 








BCS 


6$ 


.-BRANCH IF NO FLOATING POINT 


6292 


005036 


052702 


020000 






BIS 


#FP0PT,R2 


;SET FP OPTION AVAIL INDICATOR 


6293 


005042 


000261 






6t: 


SEC 




6294 


005044 


005737 


177546 






TST 


aiTLKS 


.-BRANCH IF NO KWll-L 


6295 


005050 


103402 








BCS 


7$ 




6296 


005052 


052702 


001000 






BIS 


#LK0PT,R2 


.-SET OPTION INDICATOR 


6297 


005056 


000261 






7$: 


SEC 






6298 


005060 


005777 


174230 






TST 


a$TPS 


.-BRANCH IF NO CONSOLE TTY 


6299 


005064 


103402 








BCS 


9$ 




6300 


005066 


052702 


000400 






BIS 


*TT0PT.R2 




6301 


005072 


005003 






9$: 


CLR 


R3 




6302 


005074 


000261 








SEC 






6303 


005076 


005737 


170000 






TST 


MOJBEDB 


•IS UBE1 THERE? 


6304 


005102 


103410 








BCS 


12$ 


BRANCH IF NO 


6305 


005104 


105037 


170006 






CLRB 


a^rUBECRI 


•IS THIS A TESTER OR EXERCISER? 


6306 


005110 


105737 


170006 






TST8 


a«UBECR1 




6307 


005114 


100045 








8PL 


15$ .-BRANCH IF TESTER 


6308 


005116 


052702 


000200 




16$; 


BIS 


#lJBe0PT.R2 ;SET INDICATOR 


6309 


005122 


000425 








BR 


17$ 




6310 


005124 


000261 






12$: 


SEC 






6311 


005126 


005737 


170020 






TST 


ainJBEDB«20 


.-IS U8E2 THERE? 


6312 


005132 


103403 








BCS 


13$ .-BRANCH IF NO 


6313 


005134 


012703 


000020 






nov 


#20. R3 .-SET OFFSET IN R3 


6514 


005140 


000766 








BR 


16$ 




6315 


005142 


000261 






13$: 


SEC 






6316 


005144 


005737 


170040 






TST 


a#UB£Dfi*40 


•IS UBE3 THERE? 


6317 


005150 


103403 








BCS 


14$ 


•BRANCH IF NO 


6318 


005152 


012703 


000040 






nov 


#40.R3 


•PUT OFFSET IN R3 


6319 


005156 


000757 








BR 


16$ 




6320 


005160 


000261 






14$: 


SEC 






6321 


005162 


005737 


170060 






TST 


a#UBED6^60 


•IS UBE4 THERE? 


6322 


005166 


103420 








BCS 


15$ 


;BRANCH IF NO 


6323 


005170 


012703 


000060 






nov 


*60.R3 


;PUT OFFSET IN R3 


6324 


005174 


000750 








BR 


16$ 




6325 


005176 


005227 


1 77777 




17$: 


INC 


#-1 




6326 


005202 


001012 








BNE 


15$ 





J 



CEQicC-€ POP 11/70 CPU EXERCISER MACVll 
CEQKCE.P11 12-«A«-80 11:27 
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SEO 0054 



6327 

6528 

6329 

6530 

6331 

6332 

6533 

6334. 

6335 

6356 

6337 

6358 

6359 

6340 

6541 

6342 

6543 

6344 

6545 

6546 

6347 

6348 

6549 

6350 

6351 

6352 

6353 

6354 

6355 

6356 

6357 

6358 

6359 

6360 

6361 

6362 

6363 

6364 

6365 

6366 

6367 

6368 

6369 

6370 

6371 

6372 

6373 

6374 

6375 

6376 

6377 

6378 

6379 

6380 

6381 

6382 



005204 
005210 
005214 
005216 
005220 
005222 
005224 
005226 
005230 
005232 
005234 
005240 
005242 
005246 
005250 
005254 
005256 
005262 
005264 
005270 
005272 
005276 
005300 
005304 
005306 
005312 
005314 
005314 
005316 
005320 
005322 
005326 
005332 
005334 
005336 
005342 
005350 
005356 
005360 
005364 



012704 


002340 






M0»^ 


#UBETBL,R4 


GET ADDRESS OF UBE TABLE 


012705 


000005 






MOV 


#5.R5 


SET SOB COUNT 


060324 




18t: 


ADO 


R3,(R4)* 


ADJUST UBE TABLE ENTRIES 


077502 








SOB 


R5J8$ 


CONTINUE 


006003 








ROR 


R3 




006005 








ROR 


R3 .-ADJUST OFFSET FOR USE VECTOR 


060524 








ADD 


R3.(R4)* .-ADJUST UBEVEC ENTRY 


060314 








ADD 


R3.(R4) .-ADJUST UBEVEC PSW ENTRY 


005003 






15$: 


CLR 


R3 


;INIT R3 


000261 








SEC 






005777 


175116 






TST 


aWBTTBL 


IS MASS BUS TESTER THERE? 


103403 








BCS 


20$ 


BRANCH IF NO 


052702 


002000 




21$: 


BIS 


#MBT0PT.R2 


SET OPTION AVAILABLE 


000422 








BR 


24$ 


IS MBT2 THERE? 


005777 


175132 




20$: 


TST 


areTN2 


103403 








BCS 


22$ 


BRANCH IF NO 


012703 


000100 






MOV 


#100. R3 


SETUP R3 


000767 








BR 


21$ 


IS MBT3 THERE? 


005777 


175120 




22$: 


TST 


aMBTN3 


103403 








BCS 


23$ .-BRANCH IF NO 


012703 


000200 






MOV 


#200. R3 




000761 








BR 


21$ 




005777 


175106 




23$: 


TST 


aMBTN4 


•IS MBT4 THERE? 


103427 








BCS 


30$ .-BRANCH IF NO 


012703 


000300 






MOV 


#300. R3 




000753 






24$: 


BR 


21$ 




000240 








NfOP 






000240 








NOP 






000240 








NOP 






012704 


002356 






MOV 


#rBTTBL,R4 


;GET ADDRESS OF MBT TABLE 


012705 


000011 






MOV 


#11, R5 


;SET SOB COUNT 


060324 






25$: 


ADD 


R3,(R4)* 


; ADJUST MBT TABLE 


077502 








SOB 


R5.25$ 


.•CONTINUE 


060337 


002404 






ADD 


R3.a#nBTTBL+26 


.-ADJUST DRIVE TYPE ADDRESS 


112777 


000007 


1 75020 




MOVE 


#7.a«BTTBL*12 


.-SET UNIT NLWBER 


mill 


000040 


1 75026 




CMP8 


#40,a«BTTBL*26 


;IS THIS REALLY A MBT? 


001402 








BEO 


30$ 


; BRANCH IF YES 




002000 






BIC 


#I«BT0PT,R2 


.•CLEAR OPTION AVAILABLE BIT 


012737 


064422 


000004 


30$: 


MOV 


#ERPRT,a#ERRVEC 


.•RESTORE ERROR TRAP 



TEST FOR VARIOUS KB11 PROCESSORS 

•THIS ROUTINE POLES THE RESULTS OF ATTEMPTS TO SET TO ONE 

•CERTAIN CRITICAL BITS THAT ARE KNOUN TO BE OPERATIVE ON A KB11CM. 

•OR KB11EM PROCESSOR. IF TWO OUT OF FOUR OF THE TESTS ARE 

•POSITIVE THEN THE KB11CM OR KB11EM FLAG IS SET. IF LESS THAN TWO OF THE 

•TESTS ARE POSITIVE THEN THE KB11E FLAG OR NO FLAG IS SET. THE DETERMINATION 

•OF UHICH PAIR IS VALID IS BASED ON THE RESULTS OF EXECUTING AN MFPT OPCODE 

•(OPCODE 7). IF THIS INSTRUCTION TRAPS THIS IS AN KB11CM OR 

•A PLAIN 1170 (KB11-6 OR KB11-C). IF THE INSTRUCTION DOES NOT TRAP THEN 

•THIS IS A KB11-E OR KB11-EM. 



005372 
005374 



104420 

105037 001 55A 



SAVREG 
CLR8 



a#W311CM 



;SAVt" GPRS R5-R0 
; RESET THE MP FLAG 



CE(XC-£ POP 
CEQKCE.P11 



11/70 CPU EXE«Ci:fR 
1?-*VW-80 11:27 



I1ACV11 30A(1052^ 12-nAR-80 11:50 
niCRO-eREAK REGISTER TEST 



0 5 
OAGE 



47-30 



SEQ 005S 



6383 
6384 
6385 
6386 

6387 

6388 

6389 

6390 

6391 

6392 

6393 

6394 

6395 

6396 

6397 

6398 

6399 

6400 

6401 

6402 

6403 

6404 

6405 

6406 

6407 

6408 

6409 

6410 

6411 

6412 

6413 

6414 

6415 

6416 

6417 

6418 

6419 

6420 

6421 

6422 

6423 

6424 

6425 

6426 

6427 

6428 

6429 

6430 

6431 

6432 

6433 

6434 

6435 

6436 

6437 

64 58 



XS400 005037 001552 

005404 012737 005652 000010 

005412 000007 



005414 
005422 
005426 
005430 
005434 
005440 
005444 
005450 
005454 
005456 
005462 
005464 
005470 
005474 
005476 
005502 
005506 
005510 
005514 
005516 
005522 
005530 
005536 
005540 
005546 
005550 
005554 
005560 
005562 
005566 
005570 
005574 
005576 
005600 
005604 
005610 
005612 
005614 
005616 
005616 

005622 
005624 

005632 
005634 
005640 
005644 
005646 
005650 



012737 
005037 
005005 
012700 
012701 
012702 
052710 
032710 
001403 
042710 
005205 
052711 
032711 
001410 
052710 
032710 
001403 
042710 
005205 
042711 
052767 
032767 
001404 
042767 
005205 
052712 
032712 
001403 
042712 
005205 
022705 
101021 
005000 
005037 
013701 
001402 
005200 
001373 



005737 001552 



000001 001552 
177750 

1 77746 
177750 
1 70202 
040000 
040000 

040000 

000001 
000001 

004000 
004000 

004000 

000001 

100000 164550 
100000 164542 

100000 164532 

100000 
100000 

100000 

000002 



1 77746 
177746 



T1 



T2: 



T3: 



T4; 



T.ENO: 



4S: 



5$: 



001404 
012737 

000405 
105237 
005737 
001472 
104422 
000403 



000400 001552 



001554 
001552 



1$: 

3$: 
2$: 



CLR 
MOV 
MFPT 



MOV 
CLR 
CLR 
MOV 
MOV 
MOV 
BIS 
BIT 
BED 
BIC 
INC 
BIS 
BIT 
BEQ 
BIS 
BIT 
BEQ 
BIC 
INC 

aic 

BIS 
BIT 
BEQ 
BIC 
INC 
BIS 
BIT 
BEQ 
BIC 
INC 
CMP 
6HI 
CLR 
CLR 
MOV 
BEO 
INC 
BNE 

TST 

BEO 
MOV 

BR 

INC8 

TST 

BEO 

RESREG 

BR 



i«K811E .CLEAR KB11E AND KBHEM FLAGS 

«MFPTTR.d#RESVEC ;SET J> TRAP ADDRESS FOR MfPT AT RESERV VECTOR 

.•EXECUTE MFPT. WILL TRAP ON 1170 (K8118/C) OR 

;KB11CM (11/74 ) 



#\a#KBiiE 

aiMAINT 

R5 

#CONTRL.R0 

«nAINT.Rl 

#MAPHO0.R2 

«8iT14,(R0) 

«8iri4.(R0) 

T2 

«BIT14,(R0) 
R5 

«BIT0.(R1) 
*BI TO.(Rl) 
T3 

*eiT11,(R0) 

*eiTii,(RO) 

T3 

*BIT11,(R0) 
R5 

#BIT0.(R1) 
«IT15.KIPDR0 
#BIT15,ICIPDR0 
T4 

«IT15.KIPDR0 
R5 

*Bin5,(R2) 
*eiT15,(R2) 
T.END 

#BIT15,(R2) 
R5 

#2,R5 
3$ 

RO 

arCONTRL 

arC0NTRL,R1 

5S 

RO 

4S 

awoBiiE 
1$ 

*BIT8,a#KB11E 
2$ 

a#KB11CM 

awoBiiE 

RESTORE 
ENDKB 



HERE IF KB11E OR KBIIEM. SET FLAG 

CLEAR THE MAINTENANCE REGISTER 

RESET THE TEST COUNTER 

GET THE ADDRESS OF... 

CCR.MAINT.AND MAPHOO... 

AND PLACE IN R0-R2 

TRY TO SET IVSS BIT 

DID IT SET? 

NO. GO TO NEXT TEST 

CLEAR IT. 

TEST IS POSITIVE 

SET EDMA IN MAINT REGISTER 



;TRY TO SET DMMA IN CCR 



.-MAKE SURE EDMA IS CLEAR 
;TRY TO SET BYP ON A PDR 



;TRY TO SET BYP ON UNI8US MAP 



;IS THE RESULT OF THE TEST >=2 

;8R IF NO.THIS IS A KB11E OR KBll-B/C (11/70) 



;IS IS A KB11-E OR KBll-EM? 

;BR IF NEITHER. MUST BE KBllCM 
;SET UPPER BYTE (KBll-EM) 

DONE 

YES, FLAG THIS AS A MODIFIED PROCESSOR 

IS THIS A KBllE? 

BR IF NOT. THIS IS AN 1170 

RESTORE R5-R0 

DONE DETERMINE ING UHICH CPU 



CfQKC-£ POP n/70 CPU EXERCISER HACrll 

cfotcce.pn i2-«AR-8o ^^:2? 
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SEO 00S6 



6C39 

6^40 

6441 

6442 

644? 

6444 

6445 

6446 

6447 

6448 

6449 

6450 

6451 

6452 

6453 

6454 

6455 

6456 

6457 

6458 
6459 
6460 
6461 
6462 
6463 
6464 
6465 
6466 
6467 
6468 
6469 
6470 
6471 
6472 
6473 
6474 
6475 
6476 
6477 
6478 
6479 
6480 
6481 
6482 
6483 
6484 
(1) 
(1) 
(1) 
(1) 

(r 
(1) 
(1 ) 

6485 
6486 
6487 



005652 
005652 
005656 
005660 



005660 
005664 
005666 
005674 
005700 
005706 
005712 
005716 
005724 
005730 
005734 
005742 
005750 
005754 
005760 
005762 
005770 
005772 
005776 
006002 
006010 

006012 
006014 
006016 
006022 
006024 
006030 

006032 
006034 
006034 
006042 
006046 
006052 
006054 
006062 
006064 
006070 

006136 
006136 
006142 
006144 



012716 
000002 



052702 
104420 
012737 
105037 
012737 
012700 
004737 
012737 
012701 
004737 
052737 
012737 
012705 
004737 
104422 
122737 
101404 
105037 
042702 
042737 
000411 

000000 
000403 
012716 
000002 
105237 
000207 

104422 

012737 
010237 
005227 
001031 
022737 
001425 
104400 
000422 



005227 
001036 
104400 



005422 



MFPTTR: 



EN0K8: 



MOV 
RT] 



*T1,(SP) 



.-HERE IF MfPT TRAPPED. SEE 
;SET UP RT] RETURN ADDRESS 
.•RETURN 



IF 1170 OR KBIICM 



SEE IF CISP IS PRESENT. TRY TO EXECUTE 3 CISP INSTRUCTIONS. IF TWO OUT 
OF THE THREE DON'T TRAP. IT IS ASSl/IED THAT THE CISP OPTION IS PRESENT AND 
A FLAG IS SET TO INDICATE THIS. ALSO A BIT IS SET IN OPT. CP AND A MESSAGE 
IS PRINTED. 



SET CISP OPTION BIT FOR OPT. CP 
SAVE R5-R0 

;SET UP TRAP ADDRESS AT RESERVED VECIOR 

COUNT HOW tVNY CIS OPCODES DON'T TRAP 

CIS OPCODE TO TEST (LOAD 2 DESCRIPTORS iRO) 

RO MUST BE EVEN A^C POINT TO A WORD WHICH IS ALSO EVEN 

TEST OPCODE FOR A TRAP 

SET UP OPCODE FOR LOAD 3 DESCRIPTORS SRI 

LOAD R1 WITH EVEN WORD AND POINT TO EVEN CONTENTS 

TEST OPCODE FOR TRAP 

SET MAINT MODE IN U-6REAK REGISTER 

OPCODE FOR DIAGNOSTIC ENTRY 

ADDRESS OF DIAGNOSTIC U-CODE 

TEST OPCODE FOR TRAP 

RESTORE R5-R0 

IS RESULT >=2? 

8R IF CISP IS PRESENT 

CLEAR CISP PRESENT FLAG 

AND ALSO IN OPT. CP 

CLEAR MAINT BIT IN U-BREAK REGISTER 

GO TO RESTORE VECTOR AND SET OPT. CP 

CISP OPCODE WILL 60 HERE FOR EXECUTION 

WILL COME HERE IF NO TRAP 

SET UP RTI RETURN ADDRESS 

RETURN TO LOCATION FROM TRAP 

INCREMENT CJSP INDICATOR 

RETURN 



010000 






BIS 


*CIS0PT,R2 








SAVREG 


006016 


00001C 




Mnv 


JTTRPftTN aiTRF^VFr 


001555 






CLRB 


afcisp 


0760P0 


006012 




MOV 


#L2D0.a#CIS0P 


001702 






MOV 


#LD2PNT.R0 


006012 






JSR 


pc.a*Gisop 


076061 


006012 




MOV 


#L3Di,arcisop 


001702 






MOV 


#LD2PNT,R1 


006012 








PC a#risQP 


100000 


^77770 




BIS 


*8IT15.a#UBREAK 


076601 


006012 




MOV 


*MED74C.arCIS0P 


006600 






MOV 


#CISTST.R5 


006012 






JSR 


PG. arc I SOP 








RESREG 




000002 


001555 




CMP8 


*2.a#cisp 








BLOS 


IS 


001555 






CLRB 


arc ISP 


010000 






BIG 


/rCISOPT.R? 


100000 


177770 


1$: 


BIG 


«8IT15.a4ieREAK 








BR 


SETOP 






CISOP: 


.WORD 


0 








BR 


NOTRAP 


006030 




TRPRTN: 


MOV 


/rCISTRP.(SP) 








RTI 




001555 




NOTRAP: 


INGB 


arc ISP 






CISTRP: 


RTS 


PC 






RESTOR: 


RESREG 








SETOP: 






064350 


000010 




MOV 


*RESERR.arRESVEC 


001550 






MOV 


R2.»rOPT.CP 


^77777 






INC 


#-1 








BNE 


64S 


046652 


000042 




CMP 


/rSENDAD.a#42 








BEO 


64S 


006072 






TYPE 


.65$ 








BR 


64S 






;;65$: 


.ASGI2 


<CRLF>"CEOKC-E.. 






64S: 






1 77777 






INC 


#-1 








BNE 


IOCS 


071227 






TYPE 


.MSG34 



RESTORE R5-R0 



TRAP 



AND ALSO RESERVED INST 
LOAD INDICATOR 
.•FIRST TIME? 
.-BRANCH IF NO 
;ACT-11? 
.•BRANCH IF YES 
.'TYPE ASCIZ STRING 
.-GET OVER THE ASCIZ 
PDP 11/70 CPU EXERCISER' •<CRLF> 

FIRST TIME? 
BR IF NO 

<15><12>CPU UNDER TEST FOl/O TO BE A 



CEQKC-E POP 
CEQKCE.P11 



6488 

6A89 

6490 

6491 

6492 

6493 

6494 

6495 

6496 

6497 

6496 

6499 

6500 

6501 

6502 

6503 

6504 

6505 

6506 

(^) 
(1 ) 
(1) 
(1) 

6507 
(1) 
6508 
(1) 
(1) 
(1) 
6509 
(1) 
6510 
(1) 
(1) 
(1) 
6511 
6512 
6513 
6514 
6515 
6516 
6517 
6518 
6519 
6520 
6521 
6522 
6523 
6524 
6525 
6526 
6527 
6528 
6529 
6550 
6531 



11/70 CPU EXEPCI.FR 1ACV11 
12-^-80 11:27 



006150 


005737 


001552 




TST 


006154 


001011 






BNE 


006156 


105737 


001554 




TST8 


006162 


001003 






BNE 


006164 


-.04400 


071267 




TYPE 


006170 


000423 






BR 


006172 


104400 


071175 


IS: 


TVPE 


006176 


000420 






BR 


006200 


105737 


001552 


101S: 


TSTB 


006204 


001403 






BEO 


006206 


104400 


071302 




TYPE 


006212 


000402 






BR 


006214 


104400 


071163 


102$: 


TYPE 


006220 


105767 


173331 


104$: 


TSTB 


006224 


001003 






BNE 


006226 


104400 


071313 




TYPE 


006232 


000402 






BR 


006234 


104400 


071343 


103$: 


TYPE 


006240 






100$: 




006240 


104400 


006246 




TYPE 


006244 


000415 




;;67$: 


BR 

.ASCJZ 


006300 






66$: 




006300 


013746 


1 77764 




wov 


006304 


104402 






TYPOC 


006306 


104400 


0063^; 




TYPE 


006312 


000406 




;;69$: 


BR 

.ASCIZ 


006330 






68$: 




006330 


013746 


1 77764 




MOV 


006334 


104410 






TYPDS 


006336 


104400 


006344 




TYPE 


006342 


000406 




;;71$: 


BR 

•ASCIZ 


006360 






>0S: 




006360 


104400 


001407 




TYPE 



30A(1052) 12-«AR-80 11:30 
MICRO-BREAK REGISTER TEST 



aUTKBIIE 
101$ 

aUTKBUCM 
1$ 

.MS635 
100$ 
.MSG32 
100$ 

a«rKSiiE 

102$ 

,MSG36 

104$ 

.MS631 

CISP 

103$ 

.MSG37 

100$ 

.MSG38 
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IS THIS A KB11-E OR K811-EM? 
BR IF EITHER ONE 
IS IT A 11/74 
BR IF IT IS 
K811-6/C<15><12> 
SKIP OTHER MESSAGE 
11/74 (KB11CM)<15><12> 
SKIP CISP MESSAGE 
IS IT A KB11-E? 
8R IF NOT. MUST BE K811-EM 
K811-E<15><12> 
SKIP KB11-EM MESSAGE 
KB11-EM<15><12> 
IS CISP PRESENT? 
BR IF CISP PRESENT 
CISP OPTION NOT FOUND<15><12> 
SKIP OTHER MESSAGE 
CISP OPTION FOUNO<15><12> 



SEO 0057 



.67$ ;;TYPE ASCIZ STRING 

66$ ;;6ET OVER THE ASCIZ 

<15><12>/PROCESSOR ID REGISTER =/ 



a»1 77764. -(SP) 

,69$ 
68$ 

/ (OCTAL) / 

arl 77764. -(SP) 

.71$ 
^0$ 

/ (DECIMAL) / 



.•SAVE arl 77764 FOR TYPEOUT 

;G0 TYPE— OCTAL ASCI I (ALL DIGITS) 

.TYPE ASCIZ STRING 

;GET OVER THE ASCIZ 



SAVE a»1 77764 FOR TYPEOUT 
GO TYPE— DECIMAL ASCII WITH SIGN 
TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 



006364 


012737 


006476 


000004 


SIZE: 


MOV 


*21$.arERRVEC 


006372 


005037 


001352 






CLR 


a<r$TMPO 


006376 


005000 








CLR 


RO 


006400 


012701 


000010 






MOV 


#10. R1 


006404 


013777 


001352 


173632 


9$: 


MOV 


a(r$TMF>o.aRicDA 


006412 


0}2777 


000015 


173616 




MOV 


#15.aRKCS 


006420 


052777 


000200 


1 73606 




BIT 


«8IT7.aRKER 


006426 


001011 








BNE 


7$ 


006430 


017702 


173576 






MOV 


aftKDS.R2 


006434 


042702 


177537 






BIC 


#1775^7. R2 



.$CRLF 

S8TTL SYSTEM SIZER 

THIS ROUTINE DETERMINES WHAT DRIVES ARE AVAILABLE ON 

THE FOLLOWING DEVICES: RK05. RP03. RP04. AND RS04. THE 

INFORMATION IS STORED IN THE TABLE "SYSSIZE" IN THE FOLLOWING FORMAT: 

A. EACH DEVICE IS ASSIGNED A WORD 

B. THE LOW BYTE OF THIS WORD INDICATES WHICH DRIVES ARE AVAILABLE 

C. THE HIGH BYTE INDICATES WHICH DRIVES HAVE BEEN USED 
BY THE RELOCATION ROUTINE. 

SETUP TIMEOUT VECTOR 
ENSURE $TMPO CLEAR 
USED TO SET THE INIT AVAIL BITS 
SOe COUNT 
SET UNIT NlfBER 
SEND DRIVE RESET 
NON EXISTANT DISK? 
BRANCH IF YES 
GET DRIVE STATUS 
GET BITS 5 S 7 ONLY 



CEOKC-E POP 
CEQKCE.P11 



11/70 CPU EXERCISER HACVll 
12-mR-80 11:?7 



17355A 
001352 



30A(1052) 12HnAR-80 11:30 
SYSTEM SIZER 



G S 
PAGE 



47-33 



6S52 


006440 


022702 


000200 


6533 


006444 


001002 




6534 


006446 


052700 


000400 


6535 


006452 


006000 




6536 


006454 


012777 


000001 


6537 


006462 


062737 


020000 


6538 


006470 


077133 




6539 


006472 


110037 


001714 


6540 








6541 








6542 








6543 








6544 








6545 








6546 








6547 


006476 


012737 


007104 


6548 


006504 


005737 


176710 


6549 








6550 


006510 


012737 


006524 


6551 


006516 


005777 


1 73530 


6552 


006522 


000441 




6553 








6554 








6555 








6556 


006524 


012737 


006626 


6557 


006532 


012737 


000001 


6558 


006540 


005000 




6559 


006542 


012701 


000010 


6560 


006546 


013777 


001352 


6561 


006554 


005777 


173434 


6562 


006560 


100006 




6563 


006562 


006000 




6564 


006564 


062737 


000400 


6565 


006572 


077113 




6566 


006574 


000412 




6567 


006576 


01 7702 


173406 


6568 


006602 


042702 


037777 


6569 


006606 


022702 


140000 


6570 


006612 


001363 




6571 


006614 


052700 


000400 


6572 


006620 


000760 




6573 


006622 


110037 


001712 


6574 








657') 








6576 


006626 


012737 


007104 


6577 


006654 


005037 


001352 


6578 


006640 


005000 




6579 


006642 


012701 


000010 


6580 


006646 


113777 


001352 


6581 


006654 


012777 


000021 


6582 


006662 


012777 


010000 


6583 


006670 


001071 




6584 


006672 


017702 


173372 


6585 


006676 


032702 


001000 


6586 


006702 


001455 




6587 


006704 


104400 


006712 



SEQ 0058 



000004 
000004 



000004 
001352 



173440 



00135? 



1734 1 0 
173370 
173374 



CMP #200, R2 

BNE 7$ 

BIS «8iT8.R0 

71: ROR RO 

MOV fl-iRKCS 

ADD #20000, arSTMPO 

SOS R1 9S 

nOV8 R0!a#SYSSIZE«2 



;IS DRIVE READY? 

.-BRANCH If NO 

;SET UNIT AVAILABLE 

.CLEAR THE ERRORS 
.•SELECT NEXT UNIT 
.CONTINUE 
.-STORE IN TABLE 



THIS CODE DETERMINES If THERE IS AN RP03 OR AN RP04 OR BOTH. 
If BOTH ARE ON THE SYSTEM, THE OPERATOR MUST CHANGE THE RP04 
ADDRESSES IN THE TABLE IN "COMMON TAGS" AND 'NOP" THE BRANCH 
AT '100$". 



21S: 


MOV 


#11$,a#ERRVEC 


SET THE ERROR VECTOR 




TST 


a#1 76710 


IS THERE AN RP ON THE SVSTEM"> 








STAY HERE If YES 




MOV 


#1$,a#ERRVEC 






TST 


aRP4CS1 .IS THERE AN RP04 ON SYSTEM? 


100$: 


3R 


10$ .-BRANCH If YES 




1$: 


MOV 


#10$.a#ERRVEC 


•SETUP TIMEOUT VEC fOR RP03 TEST 




MOV 


#l,a#$TMPO 


•SETUP TEMPO 




CLR 


RO 


-USED TO SET UNIT AVAILABLE BITS 




MOV 


#10, Rl 


-SOB COUNT 


3$: 


MOV 


a#$TMP0,aRP3CS 


-SET fUNCTION IDLE WITH UNIT NO 




TST 


aRP3CS 


-WAS THERE AN ERROR? 




BPL 


6$ 


-BRANCH If NO 


4$: 


ROR 


RO 


-UNIT NOT AVAILABLE 




ADD 


#400,a#$TMP0 


-SELECT NEXT LWIT 




SOB 


Rl,3$ 


•CONTINUE 




BR 


5$ 




6$: 


MOV 


aRP3DS.R2 


;GET STATUS REGISTER 




BIC 


#37777,R2 


rGET BITS 14, 15 ONLY 




CMP 


#140000, R2 


rIS DRIVE READY? 




BNE 


4$ 


;BRANCH If NO 




BIS 


#8IT8.R0 


-SET DRIVE AVAILABLE BIT 




BR 


4$ 


; CONTINUE 


5$: 


M0V8 


RO,a#SYSSIZE 


; STORE IN TABLE 



000004 10$; 



14$: 



MOV #11$,a#ERRVEC 

CLR a#$TMPO 

CLR RO 

MOV #10, Rl 

M0V8 air$TMP0.aRP4CS2 

MOV #21,aRP4CS1 

BIT #8JT12,afiP4CS2 

BNE 12$ 

MOV aRP4DS,R2 

BIT #81T9.R2 

BEO 8$ 

TYPE ,65$ 



SETUP ERROR VEC FOR RP04 TEST 

UNIT AVAILABLE WORD 
SOB COf^T 
SET UNIT NLMBER 
TRY READ-IN-PRESET 
NON EXISTANT DRIVE? 
BRANCH IF YES 
GET DRIVE STATUS 
IS DRIVE IN PROGRAMMABLi- MODE'' 
NO 

;;TYPE ASCIZ STRING 



CEQdC-f POP n/70 CPU EXERCISER PWCVH 30A(1052) ^2-f^ 

CEOrCE.PII 1?-mR-80 11:27 SYSTEM SI2ER 

C) 006710 000410 BR 
(1) ;;65$: .ASCIZ 

M) 006732 64$: 

6588 006732 013746 001352 «0V 
(1) 006736 104402 TYPOC 

6589 006740 104400 006746 TYPE 
M) 006744 000433 BR 

(1) ;;67$: .ASCIZ 

(1) 007034 66S: 

6590 007034 000.07 BR 

6591 007036 042702 163277 8S: BIC 

6592 007042 022702 010500 CMP 

6593 007046 001002 BNE 

6594 007050 052700 000400 BIS 

6595 007054 006000 12$: ROfi 

6596 00705A 052777 000040 173200 BIS 

6597 0070<',4 005237 001352 INC 

6598 007070 005301 DEC 
*^'^oo 007072 001402 BEO 

6600 007074 000167 177546 JMP 

6601 007100 110037 001722 M0V8 
6602 

j)^3 -■*••••*•***** 

6604 007104 012737 007214 000004 11$: MOV 

6605 007112 005037 001352 CLR 

6606 007116 005000 CLR 

6607 007120 012701 000010 MOV 

6608 007124 113777 001352 173172 18$: M0V8 

6609 007132 012777 000001 173152 MOV 

6610 007140 032777 010000 173156 BIT 

6611 007146 001011 BNE 

6612 007150 017702 173154 MOV 
6615 007154 042702 163577 BIC 

6614 007160 022702 010200 CMP 

6615 007164 001002 BNE 

6616 007166 052700 000400 BIS 

6617 007172 006000 16$: ROR 

6618 007174 052777 000040 173122 BIS 

6619 007202 005237 001352 INC 

6620 007206 077132 SOB 

6621 007210 110037 001724 M0V8 
6622 

6623 .-NEXT, DELETE 

6624 007214 122737 000002 000041 15$: CMPB 

6625 007222 001004 BNE 

6626 007224 042737 000001 001714 BIC 

6627 007232 000420 BR 

6628 007234 113700 000041 19$: M0V8 

6629 007240 042700 177770 BIC 

6630 007244 000241 CLC 

6631 007246 006100 ROL 

6632 007250 122700 000002 CMPB 

6633 007254 002404 BLT 

6634 007256 042737 000001 001712 BIC 

6635 007264 000403 BR 

6636 007266 042760 000001 001716 40$: BIC 



H 5 

i-80 11:30 PAGE 47-34 



64$ ;;GET OVER THE ASCIZ 

<15><12>/RP04 DRIVE »/ 



SEC 005Q 



a»$TMPO.-(SP) 

,67$ 
66$ 



SAVE a»$TMPO FOR TYPE OUT 
GO TYPE— OCTAL ASCI I (ALL DIGITS) 
TYPE ASCIZ STRING 
GET OVER THE ASCIZ 



/ FOUND IN PROGRAMMABLE MODE-DRIVE WILL NOT BE USED/<15><12> 



12$ 

#163277. R2 
#10500. R2 
12$ 

#8IT8.R0 

RO 

#8IT5,aRP4CS2 

a#$TMPO 

R1 

.♦6 

14$ 

R0.a#SYSSIZE*10 



GET BITS 12, 11. 8. t 6 ONLY 

IS DRIVE READY? 

BRANCH IF NO 

SET UNIT AVAlLABLc 

.CLEAR ERROR BITS 
.•SELECT NEXT DRIVE 



.STORE IN TABLE 



#15$.a#ERRVEC 
»r$TMPO 

RO 

#10,R1 

a#$TMP0,aRSCs2 
#i.aRSCSi 

#BIT12.aRSCS2 
16$ 

aRSDS.R2 
#163577.R2 
#10200.R2 
16$ 

«BIT8.R0 
RO 

#BIT5.aRSCS2 

a#$TMPO 

R1.18$ 

R0.a#SYSSIZE*12 

(DP UNIT 0 FROM TABLE 
#2.a«41 
19$ 

#BIT0.a#SYSSIZE-»2 
20$ 

a#41.R0 
#177?70.R0 

RO 

#2-R0 
40i 

#eiTO.a#SYssizE 

20$ 

#8IT0.SYSSIZE*4(R0) 



;SETUP ERROR VEC FOR RS04 TEST 



SOB COIMT 

SET UNIT NlfGER 

TRY NOP OPERATION 

NON EXISTANT DRIVE? 

BRANCH IF YES 

GET DRIVE STATUS 

GET BITS 12. 11. t 7 ONLY 

IS DRIVE READY? 

BRANCH IF NO 

SET DRIVE AVAILABLE BIT 

CLEAR ANY ERROR BITS 
SELECT NEXT [fill 
CONTINUE 
STORE IN TABLE 



RK? 

BRANCH IF NO 

MAKE UNIT ZERO NOT AVAILABLE 



GET LOCATION 41 
GET LEAST SIG 3 
ENSURE C CLEAR 
ADJUST 

BRANCH IF NO 



BITS 



EOKC-E POP 
^fOKCE.PII 



n/70 CPU EXERCI^fW 
12-MAP-80 11:27 



30A(1052) ^2-nM'S0 11:50 
SrSTEM SIZER 



I 5 
PAGE 



47-55 



SfO 0060 



6637 
6658 
6639 
6640 
66A1 
66^2 
6643 
66A4 
6645 
6646 
6647 
6648 
6649 
6650 
6651 
665^ 
(1) 
M) 
(1) 
6653 
6654 
6655 
6656 
6657 
6658 
6659 
6660 
6661 
6662 
6663 
6664 
6665 
6666 
6667 
6668 
6669 
6670 
6671 
6672 
6673 
6674 
6675 
6676 
6677 
6678 
6679 
6680 
6681 
6682 
6683 
6684 
6685 
6686 
(3) 
(3) 
(?) 



007274 
007300 
007302 
007306 
007312 
007314 
007320 
007324 
007326 
007332 
007334 
007340 
007342 
007350 
007352 
007356 
007362 

007422 
007422 
007426 
007430 
007434 
007440 



005227 1 77777 
001057 

104400 065627 
013746 001550 
104402 

104400 001407 
005737 001602 
001045 

105737 005641 
001042 

105737 001250 
001037 

032777 000200 171674 
001031 

004767 047514 
104400 007364 
000417 



005037 
000001 
000137 
104400 
000167 
010000 



1 77776 

006364 
070651 
000334 



010000 012706 000700 



010004 
010010 
010014 
010020 
010024 
010030 
010032 
010036 
010040 
010044 
010050 
010052 
010054 
010056 
010062 
010066 
010070 
010074 
010102 
010106 
010112 
010120 
010124 



012700 
013701 
012720 
052701 
042701 
010120 
012720 
010120 
012720 
042701 
005020 
005720 
005020 
062700 
012720 
005720 
012720 
012737 
052701 
010137 
012737 
010137 
042737 



20J: 



50S: 



.••69t: 
tb%: 



INC 

BNE 

TYPE 

MOV 

TVPOC 

TYPE 

TST 

BNE 

TST8 

BNE 

TST8 

BNE 

BIT 

BNE 

JSR 

TYPE 

BR 

.ASCJ2 



0-1 

L00P1 
.MSG25 

a»OPT.CP,-(SP) 



; .-BRANCH If NOT FJRST TIM£ 



.SCRLF 

airov 

LOOPl 

a^xxDPc 

LOOPl 

a«$PAss 

LOOPl 

#SU7,aSSURP 

SWSnSG 

pc.rvpsiz 
.69$ 
68S 

/TYPE A CHARACTER 



;ACT1P 

.•BRANCH If YES 

;XXDP CHAIN MODE? 
.•BRANCH IF YES 

.•FIRST PASS? 
.BRANCH IF NO 

.•INHIBIT SIZE TYPfOuT? 
.-BRANCH IF YES 

;60 TYPE SYSTEM SIZE 
.-TYPE ASCIZ STRING 
.-GET OVER THE ASCIZ 
TO CONTINUE/<CRLF> 



CLR 
WAIT 
JMP 
TYPE 
JMP 



a^rpsw 



a*sizE 

.MS630 
LOOP 



;G0 CHECK SYSTEM AGAIN 
.•TYPE SWITCH 8 REVERSAL MESSAGE 



SW8MSG: 
LOOPl : 
=10000 

PROGRAM RESTARTS HERE AFTER RELOCATION ABOVE 28K IS COTFLETE 
INITIALIZE TRAP VECTORS 



000004 
177776 
064422 
000340 
000020 

064350 

001570 
000340 



000006 
000340 

000340 

063616 OOOlU 

000340 

000116 

064254 000250 
000252 

000340 1 77776 



LOOP: MOV 0S\JPS7K.SP 

MOV #ERRVEC.RO 

MOV aiirPSW.Rl 

MOV #ERPRT.(RO)* 

BIS *PR7.R1 

BIC #8IT4,R1 

MOV Rl.(RO)* 

MOV *RESERR,(RO)* 

MOV R1,(R0)* 

MOV /r$RTRN,(RO)* 

BIC *PR7.R1 

CLR (RO)* 

TST (R0)-» 

CLR (RO)* 

ADD #6.R0 

MOV *PR7,(R0)* 

TST (RO)* 

MOV *PR7,(R0)* 

MOV #.PARSRV.a*CACHVEC 

BIS *PR7,R1 

MOV Rl.a*CACHVEC*2 

MOV #KTA8RT.8#HMVEC 

MOV R1.a#«HVEC*2 

BIC #PR7,a#PSW 



;SET THE STACK... WILL BE DIFFERENT 
.•THAN KERN STACK WHEN IN OUTER MODE 

;GET CURRENT PSW 
;SET ERROR VEC 
.-SET PRIORITY 7 IN CURRENT PSW 
.CLEAR T BIT 

;SET RESERVED INST TRAP VECTOR 



;SET T BIT VEC 

.•SET TBIT VEC+2 

;8UMP RO TO SCOPE VEC*2 

.-SET SCOPE VEC*2 

.-SET RO TO ERROR TRAP VEC 

.-SET ERROR VEC 

;SET TRAP VEC*2 

.SET PARITY ERROR VECTOR 



;SET KT11 ABORT VECTOR 



ft************************************************************** 



•TEST 1 



MEMORY VERIFICATION TEST 



CEOKC-E POP 11/70 CPU EXERCIvfR «AC<11 
CEOKCE.Pn 12-«A«-80 11:27 



J 5 

30A(1052) 12-mR-80 11:30 PAGE 47-36 
n MEMORY VERIFICATION TEST 



SEO 0061 



'2 
(2 
(2 

(2 

n 

r, 



010132 
010U0 
010U2 
010150 



012767 
000004 
112737 
013737 



000001 171236 



000001 
001252 



001252 
177570 



(1 ) 


010156 


010700 






( 1 ) 


010160 


005740 






i 1 ) 


010162 


010037 


001610 




< 1 ) 


010166 


010700 






( 1 ) 


010170 


162700 


010170 




' 1 ) 


010174 


010037 


001604 




1 I ) 


010200 


010737 


001262 




( 1 ; 


010204 


062737 


000030 


001262 


' 1 ) 


010212 


013737 


001262 


001260 


1 1 ) 
( 1 ) 


010220 
010<^24 


105737 
001402 


001600 




( 1 ) 


010226 


000167 


000720 




6688 










6689 


010232 


000167 


000714 




669*:' 


010236 


M7777 


1 77777 


1 77777 


( 1 ) 


010244 


4 ^^^^^ 

1 77777 


000000 


000000 


i 1 ) 


010252 


000000 


000000 




( 1 ) 


010256 


1 77777 


4 ^^^^^ 

1 77777 


1 77777 


f 1 ) 


010264 


\77777 


000000 


000000 


( 1 ) 


010272 


000000 


000000 




( 1 ) 


010276 


1 77777 


\77777 


1 77777 


( 1 ) 


010304 


y77777 


000000 


AAA AAA 

000000 


( 1 ) 


010312 


000000 


000000 




( 1 ) 


010316 


4 ^^^^^ 

1 77777 


1 77777 


\77777 


( 1 ) 


010324 


4 ^^^^^ 

1 77777 


000000 


AAA AAA 

000000 


( 1 ) 


010332 


000000 


000000 




( 1 ) 


010336 


1 77777 


1 77777 


\77777 


( 1 ^ 


010344 


1 77777 


/>« /N /\ /> /N 

000000 


000000 


( 1 ) 


010352 


000000 


/N /N /\ /\/\ /\ 

000000 




( 1 ) 


010356 


1 77777 


1 77777 


\77777 


( 1 ) 


010364 


4 ^^^^^ 

1 77777 


000000 


AAA AAA 

000000 


( 1 ) 


010372 


000000 


M/\/\ A A A 

000000 




( 1 ) 


010376 


1 7777 f 


\77777 


\77777 


( 1 ) 


010404 


1 77777 


000000 


000000 




010412 


000000 


/\/\ /N /S ^ 

000000 






f\ 1 Ay 1 ^ 

010416 


\ ( f 1 ( ( 


1 77777 

\ff(ff 


\fffff 




010424 


1 77777 


000000 


000000 




010432 


000000 


000000 






010436 


1 77777 


-[77777 


1 77777 




010444 


1 77777 


000000 


000000 




010452 


000000 


000000 






010456 


}77777 


1 77777 


•[77777 




010464 


1 77777 


000000 


000000 




010472 


000000 


000000 






010476 


-[77777 


-[77777 


^77777 




010504 


}77777 


000000 


000000 




010512 


000000 


000000 






010516 


1 77777 


1 77777 


•[77777 




010524 


1 77777 


000000 


000000 



MOV #1.$TIMES 
TST1: SCOPE 

M0V8 fl.anTSTNM 

MOV MriTSTNM.arOI SPLAY 



;;D0 1 ITERATION 



.•LOAD TEST NLWBER 

; .-DISPLAY TEST NLWBER 



.S8TTL 
.0000000000000 
RELO: MOV 
TST 
MOV 
MOV 
SUB 
MOV 
MOV 
ADD 
MOV 
TST8 
BEG 
JMP 

.-MEMORY AND DI 
JMP 
.WORD 



.WORD 



START OF SECTION 0 
FIRST ADDRESS TO BE RELOCATED 000000000 
PC.RO 
-(RO) 

RO,a#FRSTAD 
PC.RO 
*..R0 

RO.a#F ACTOR 
PC.anLPERR 

*30.anLPERR 

a#$LPERR.ar$LPADR 
a#NEXEC ;8R IF TEST CODE TO BE EXECUTED 

.♦6 

RELEO 

SK (IF SELECTED) VERIFICATION TEST. 



GET PC 

RO CONTAINS THE ADDRESS OF RELO 
SAVE 

GET CURRENT PC 
SUBTRACT RELOCATION FACTOR 
SAVE RELOCATION FACTOR 
SET LOOP ADDRESS 
ADJUST 



1 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



-1.-1.-1.0.0.0.0 



.-1,-1,0.0.0,0 



,-1.-1,0,0,0,0 



.-1,-1,0,0,0,0 



,-1,-1,0.0,0,0 



,-1,-1,0,0,0.0 



,-1.-1.0.0.0.0 



.-1,-1.0.0.0.0 



.-1.-1.0.0.0.0 



.-1.-1,0.0.0.0 



,-1.-1,0,0,0.0 



,-1,-1.0.0.0.0 



EQKC-E PUP n/70 CPL' EXERCi:fK MACY'l 30A(1O52) 12-mR-80 11:30 
rEQKCE.Pn 12-nA«-80 11:27 START OF SECTION 0 



K 5 
PAGE 



47-37 



SEO 0062 



<^ ) 


010552 


000000 


000000 








' ) 


010556 


M7777 


\77777 


"[77777 




.WORD 


1 1 ) 


010544 
010552 


"[77777 


000000 


000000 






( 1 ) 


000000 


000000 








( ) 


010556 


1 77777 


"[77777 


\77777 




.WORD 


( 1 ) 


010564 


"[77777 


000000 


000000 






( '' ) 


010572 


000000 
^77777 


000000 




• 




( 1 ) 


010576 


"[77777 


"[77777 




• WORD 


' 1 ) 


010604 


^77777 


000000 


000000 






( 1 ) 


010612 


000000 


000000 








' ) 


010616 


1 77777 


^77777 


"[77777 




.WORD 


( 1 ) 


010624 


}77777 


000000 


000000 






( 1 ) 


010632 


000000 


000000 








' 1 ) 


010636 


y77777 


^77777 


\7''777 




.WORD 


( 1 ) 


010644 


1 77777 


000000 


A A A A A A 

000000 






' 1 ; 


010652 


000000 


000000 








». 1 ) 


010656 


^77777 


"[77777 


"[77777 




.WORD 


( 1 ) 


010664 


1 77777 


A A A #V 

000000 


A A A A A A 

000000 






( 1 ) 


010672 


000000 


A A A A A 

000000 








' 1 ) 


010676 


y77777 


1 77777 


y77777 




.WORD 


' ] ^ 


010704 


1 77777 


000000 


A A A A A A 

000000 






' ' ) 


010712 


000000 


000000 








( 1 ) 


010716 


1 77777 


1 77777 


y77777 




.WORD 


( 1 ) 


010724 


1 77777 


M A M A A A 

000000 


A A A A A A 

000000 






( 1 ) 


010732 


000000 


A A A A A A 

000000 








( 1 ) 


010756 


^77777 


"[77777 


"[77777 




.WORD 


( 1 ) 


010744 


1 77777 


A A A A A A 

000000 


000000 






( 1 ) 


010752 


000000 


A A A A A A 

000000 








( 1 ) 


010756 


1 77777 


'[77777 


^77777 




.WORD 


( 1 ) 


010764 


1 77777 


A A A A A A 

000000 


A A A A A A 

000000 






( 1 ) 


010772 


000000 


000000 








^ 1 ) 


010776 


1 77777 


I ^^^^^ 

^77777 


4 ^^^^^ 

y77777 




.WORD 


( 1 ) 


011004 


1 77777 


A A A A A A 

000000 


A A A A A A 

000000 






( 1 ) 


011012 


000000 


AAA AAA 

000000 








( 1 ) 


011016 


1 77777 


4 ^^^^^ 

y77777 


1 ^^^^^ 

u7777 




.WORD 


( 1 ) 


01 1024 


^77777 


A A A AAA 

000000 


000000 






( 1 ) 


011032 


MAMMA M 

000000 


AAA ^AA 

000000 








( 1 ) 


011036 


1 77777 


1 77777 


1 77777 




.WORD 


( 1 ) 


011044 


^77777 


AM A A A A 

000000 


A A A A A A 

000000 






( 1 ) 


011052 


A M M y^ 

000000 


A A A A A A 

OOOCXX) 








( 1 ) 


01 1056 


1 77777 


^77777 


y77777 




.WORD 


( 1 ) 


011064 


1 77777 


AAA AAA 

000000 


000000 






( 1 ) 


011072 


000000 


A A A A A A 

000000 








( 1 ) 


011076 


1 77777 


1 77777 


y77777 




.WORD 


( 1 ) 


011104 


1 77777 


A A A A A A 

000000 


AAA AAA 

000000 






( 1 ) 


01 1112 


000000 


AAA AAA 

000000 








( 1 ) 


011116 


1 77777 


4 ^^^^^ 

1 77777 


1 77777 




.WORD 


( 1 ) 


011124 


4 ^^^^^ 

1 77777 


000000 


000000 








01 1 1 32 


OOCXXX) 


000000 








6693 


011136 


\fffff 


1 77777 

\ f ( ( ( ( 


1 77777 

\ ( ( ( I ( 




.WORD 




011144 


}77777 


000000 


000000 






6694 


011152 








1$: 




6695 


011152 


000004 






RELEO: 


SCOPE 


(1) 


011154 


010702 








MOV 


(1) 


011156 


062702 


000012 






ADD 


O) 


011162 


012707 


044042 






MOV 



1.-1.0.0.0.0 

1.-1.0.0,0,0 

1.-1.0.0,0.0 

1,-1,0,0.0.0 

1,-1.0.0,0.0 

1,-1,0.0.0.0 

1.-1.0.0,0.0 

1.-1,0.0.0.0 

1,-1.0.0.0.0 

1,-1,0.0.0.0 

1,-1,0.0.0.0 

•1.-1,0.0.0.0 

1.-1.0.0.0.0 

•1.-1.0.0.0.0 

•1.-1.0.0.0.0 

•1.-1.0.0.0.0 

■1.-1.0.0 



PC.R2 
5.R2 
#RELOC.PC 



;G0 RELOCATE PROGRAM CODE 



CEQKC-E POP 11/70 CPU ExERCi:ER MACrll 30A(1052) 12-mfi-80 
CEQKCE.PII 12-W-80 11:27 START OF SECTION 0 



11:30 



L 5 
PAGE 



47-38 



(1) 


011166 


000000 


(M 






(1) 






6696 






(3) 






(3) 






(2) 






(2) 


01 1 1 70 


012767 


(2) 


01 1 1 76 


00000^ 


(2) 


011200 


112737 


(2) 


011206 


013737 


6697 







) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 

6698 
6699 
6700 
6701 
6702 
6703 
6704 
6705 
6706 
6707 
6708 
6709 
6710 
6711 
6712 
6713 
67U 
6715 
6716 
6717 
6718 
6719 
6720 
6721 
6722 
6723 
6724 
6725 
6726 
6727 



01 121 A 
011216 
011220 
01122A 
011226 
011232 
011236 
0112A2 
011250 
011256 
011262 
01126A 

011270 
011272 
01127A 
011276 
011300 
011302 
01130A 
011306 
011310 
011312 



01131A 
011316 
011320 
011322 
01132A 
011326 



011330 
011332 
01133A 
011336 
0113A0 
0113A2 



000270 
100003 
002002 
003001 
002A01 
10A000 



000262 
102003 
002A02 
003A01 
002001 
10A000 



RE LOO' WORD 0 

; 0000000000000 LAST ADDRESS OF CODE TO BE RELOCATED 00000000000 



.••TEST 2 



CHECK BRANCH INSTRUCTIONS 



000001 1 70200 



000002 
001252 



001252 
177570 



TST2: 



MOV 
SCOPE 
M0V8 
MOV 



#1.$TIMES 



;.D0 1 ITERATION 



#2,a#STSTNM 
a#$TSTNM,a#DISPLAY 



.•LOAD TEST NLJiBER 

; .-DISPLAY TEST NUMBER 



,S8TTL START OF SECTION 1 

FIRST ADDRESS TO BE RELOCATED 111111111 



ni 07nfi 

U 1 Uf Uv 










PC,RO 


;GET PC 


/VIC7AA 

\J\Jj 1 •» V 








TST 


-(RO) 


;R0 CONTAINS THE ADDRESS OF RELl 


010037 


001610 






MOV 


RO,»rFRSTAO 


.-SAVE 


010700 








MOV 


PC.RO 


;GET CURRENT PC 


162700 


011226 






SUB 


0..RO 


.•SUBTRACT RELOCATION FACTOR 


010037 


001 60A 






MOV 


RO.atFACTOR 


;SAVE RELOCATION FACTOR 


010737 


001262 






MOV 


PC.arSLPERR 


;SET LOOP ADDRESS 


062737 


000030 


001262 




ADD 


#30,anLPERR 


.•ADJUST 


013737 


001262 


001260 




MOV 


anLPERR.anLPAOR 


105737 


001600 






TST8 


a#N£XEC 


.-BR IF TEST CODE TO BE EXECUTED 


001 A02 








BEQ 


,♦6 




000167 


00A1A6 






JMP 


RELE1 




000257 








CCC 




;CC'S=OOO0 


103A07 








BCS 


CCO 


.-SAME AS BLO 


102A06 








BVS 


CCO 




001A05 








BEO 


CCO 




100A0A 








BMI 


CCO 




002A03 








BLT 


CCO 




003A02 








BLE 


CCO 




101 A01 








BLOS 


CCO 




101001 








BHI 


.♦4 




10A000 






CCO: 


HLT 




.-ONE OF THE ABOVE BRANrHES FAILED 



.•CONTINUE 

SEN 
BPL 
BGE 
BGT 
BLT 

CC1: HLT 

.•CONTINUE 

SEV 
BVC 
BLT 
BLE 
BGE 
HLT 



CC2: 



CC1 
CC1 
CC1 
.♦4 



CC2 
CC2 
CC2 
.♦4 



;CC'S=1000 



;0NE OF THE ABOVE BRANCHES FAILED 



011544 000261 



.•CONTINUE 

SEC 



;CC'S=1010 



; ERROR! ONE OF THE ABOVE BRANCHES FAILED 



;CC'S=1011 



CEOnC-£ POP 11/^0 CPU EXE«CI.FR MAC^n 
CEQKCE.Pn 12-nAR-80 11:27 



30A(1052) 
START OF 



12-«Afi-80 
SECTION 1 



11:30 



M 5 
PAGE 



6728 
67?9 
6750 
6731 
6732 
6733 
6734 
6735 
6736 
6737 
6738 
6739 
6740 
(3) 
(Z) 
12) 
(2) 
(2> 
(2> 
6741 
6742 
6743 
6744 
6745 
6746 
6747 
6748 
6749 
6750 
6751 
6752 
6753 
6754 
6755 
6756 
6757 
6758 
6759 
6760 
6761 
6762 
6763 
6764 
6765 
6766 
6767 
6768 
6769 
6770 
6771 
6772 
6773 
6774 
6775 
6776 
6777 



0113^6 
011350 
011352 
011354 



01 1 356 
011360 
011362 
011364 
011366 
011370 



103002 
101001 
005001 
104000 



000264 
001005 
005002 
101001 
003401 
104000 



CC5: 



BCC 
BHI 
BGT 
HLT 



.•CONTINUE 

SE2 
BNE 
BGT 
BHi 
BLE 

CC4: HLT 



CC5 
CC5 
.♦4 



CC4 
CC4 
CC4 
.♦4 



47-39 

.-ERROR. ONE OF THE ABOVE BRANCHES FAILED 
;CC'S=1111 

.•ERROR! ONE OF THE ABOVE BRANCHES FAILED 



SEO 006A 











• • 

;*TEST 


3 


TEST UNIARY 


CONDITION CODES 




01 1 572 


000004 






w V 9 

TST3: 


SCOPF 








011574 


112737 


A A A A A Y 

000003 


001252 




M0V8 


#3.a#STSThf1 


.-LOAD TEST NUMBER 




011402 


013737 


001252 


1 77570 




MOV 


air$TSTNn,a#Di SPLAY .-display test number 










;CLR 


RO 








011410 


000277 






sec 








011412 


000244 








CL2 








011414 


^ AAA 

005000 








CLR 


RO 


. nA_A ^ /» 1 c _ A4 AA 

;RO=0,CC S=0100 




011416 


103404 








BCS 


CLRO 




011420 


102403 








BVS 


CLRO 






011422 


A A 4 AA^ 

001 (X)2 








BNE 


CLRO 






011424 


100401 








BMI 


CLRO 






011426 


003401 








BLE 


.♦4 






011430 


4 A y AAA 

104000 






CLRO: 


HLT 




;fcRHON; INCORRcCt CL 5 ArTcR 


CLR 


011432 


000277 








sec 








011434 


000244 








CLZ 








/\ 4 4 y 9^ 

011436 


A A C ^ A A 

005700 








TST 


RO 


;R0=0.CC'S=0100 




Ol 1440 


4 A7 y Ay 

103404 








BCS 


TSTO 




011442 


4 A '"^ y A V 

1 02403 








BVS 


TSTO 






01 1444 


CX)1CX)2 








BNE 


TSTO 






A4 4 y / ^ 

011446 


1CX)401 








Bnl 


TSTO 






Ul i*»jU 


1 ni Lf\^ 
1U1*»U1 








oLUb 


.♦4 






011452 


104000 






TSTO; 


HLT 




; ERROR 1 INCORRECT CCS AFTER 


TST 


011454 


000257 








ccc 








011456 


000266 








*SEZ.' 


SEV 






011460 


005100 








COM 


RO 


;R0— I.CC'S-1001 




011462 


103004 








BCC 


COMO 




011464 


102403 








BVS 


COMO 






011466 


001402 








BEQ 


COMO 






011470 


100001 








BPL 


COMO 






011472 


002401 








8LT 


.♦4 






011474 


104000 






COMO: 


HLT 




.-ERROR! INCORRECT CCS AFTER 


COM 


011476 


000261 








SEC 








011500 


005500 








ADC 


RO 


;fiO=OOOOOO.CCS=0101 




011502 


103003 








BCC 


adco 




011504 


102402 








BVS 


adco 






011506 


001001 








BNE 


ADCO 






011510 


002001 








BGE 


.♦4 







CEQKC-E POP 11/70 CPU EXERCISER HACYH 30A(1052) 12-MAR-80 T 
CEQKCfc.PII 12-«AR-80 11:27 T3 TEST UNIARY COI 

6778 
6779 
6780 
6781 
6782 
6783 
6784 
6785 
6786 
6787 
6788 
6789 
6790 
6791 
6792 
6793 
6794 
6795 
6796 
6797 
6798 
6799 
6800 
6801 
6802 
6803 
6804 
6805 
6806 
6807 
6808 
6809 
6810 
6811 
6812 
6813 
6814 
6815 
6816 
6817 
6818 
6819 
6820 
6821 
6822 
6823 
6824 
6825 
6826 
6827 
6828 
6829 
6830 
6831 
6832 
6833 



011512 


104000 


ADCO: 


HLT 




011514 


000261 




C C ^ 

ScC 


QA 

RO 


01 T516 


006000 




AAA 

ROR 


01 1 520 


105404 




BCS 


HOHO 


011522 


102003 




BvC 


RORO 


011524 


001402 




OCA 


n ADA 

RORO 


Ol 1 526 


100001 




OAI 

BPL 


RORO 


011530 


AA4 

003001 




BGT 


. ♦4 


01 1532 


4 Ay AAA 

104000 


AAA A . 


HLT 




011554 


0002// 




err 
SCC 




011536 


AAA"^/ 

000242 




rt \/ 
CLv 


RO 


011540 


005300 




DEC 


011542 


103004 




BCC 


DECO 


01 1 544 


4 A'^AA^ 

102003 




BVC 


f\c rA 
DcCO 


01 1 546 


AA4 / A^ 

001402 






DtCO 


01 1550 


4 AAy A4 

100401 




anl 


DcCO 


011552 


AAV / A4 

005401 




BLc 


. ♦4 


Oil 554 


4 A/ AAA 

104000 


DcCO: 


HLT 




01 1 556 


00025/ 




CCC 




011560 


005200 




INC 


RO 


01 1 562 


103404 




BCS 


INCO 


01 1 D04 


1 AOAAT 

10<r00j 




Qv/r 
OVL 


f mrn 


on 566 


AA1 / AO 

00140^ 




DC A 


f mrn 
IIMLU 


0 1 1 J' 0 


1 AAAA1 
100001 




DDI 

orL 


IIMLU 


on 5/'2 


AATAAi 
003001 




DO 1 


. *** 


01 15/4 


1 A/ AAA 

104000 


INCO: 


Lll T 

HL 1 




on 5/6 


AAA '377 

000<:/ / 




err 




011600 


000242 




CLV 




011602 


005400 




NEG 


RO 


Ol 1604 


1 A7AA7 
103003 






IMCuU 


01 l6Uo 


1 AOAAO 

lOcOOc 




HVC 


IMCUU 


Ai 1 ^1 A 

ono 10 


AAI / A1 
001401 




Dtw 


IMtuU 


Ai 1 ^ i 

011612 


AA 3AAi 
002001 




ore 
□uc 




A1 1^1/ 

01 1614 


1 Ay AAA 

104000 


NcuU. 


Lll T 

HL 1 




01 1616 


AAA'5^1 

000^:61 








011620 


006300 




ASL 


RO 


011622 


103004 




BCC 


ASLO 


A1 1 ^ 

01 16<:4 


1 A*5AAT 

10<:003 




D(/r 

BVL 


ACI A 

A5L0 


on 626 


AA1 AA'5 

001 00<: 




OfcIC 


ACI A 

ASLO 


A1 1 ^7A 

on 630 


1 AAy A1 
100401 




□M T 

onJ 


ACI A 


A1 1 

01 \oid 


1 A1 /.A1 

101401 




Of AC 




011634 


104000 


ASLO: 


HLT 




All XTiL 

01 tox 


ATWLI AA 

006100 




DAl 

KOL 


on 


A 1 1 A 

01 1640 


1 A1/ AO 

1 0340^ 




ore 


aA: O 


U 1 1 o*»c 






□LC 


RDi n 


011644 


002001 




BGE 


.♦4 


011646 


104000 


ROLO: 


HLT 




011650 


006200 




ASR 


RO 


011652 


103003 




BCC 


ASRO 


011654 


102002 




BVC 


ASRO 



N 5 
:30 PAGE 47-40 
DITION CODES 

;ERROR' INCORRECT CCS AFTER AOC 
;R0=100000,CC '5=1010 

.-ERROR! INCORRECT CCS AFTER ROR 
;R0=077777.CCS=0011 

.-ERROR! INCORRECT CCS AFTER DEC 

;R0=100000,CCS-1010 

.•ERROR! INCORRECT CCS AFTER INC 
; R0=1 00000. CCS=1 Oil 

.ERROR! INCORRECT CCS AFTER NEG 
;R0=000000.CCS=0111 

.-ERROR! INCORRECT CCS AFTER ASL 
;R0=000001.CCS=00O0 



.-ERROR! INCORRECT CCS AFTER ROL 
;R0=0000OO.CCS=O111 



CEQtCC-E POP 11/^0 CPU EXERCISER HACvll 
CEOCCfc.PII 12-nAfi-80 11:27 



B 6 

50A(1052) 12-mR-8C 11:30 PAGE 47-A1 
T3 TEST J^IARY CONDITION COOES 



SEQ 0066 



6854 
6855 
6856 
6837 
6838 
6839 
6840 
6841 
6842 
6843 
6844 
6845 
6846 
6847 
6848 
6849 
6850 
6851 
6852 
(3) 
(3) 
(2) 
(2) 
(2) 
<2> 
6853 
6854 
6855 
6856 
6857 
6858 
6859 
6860 
6861 
6862 
6863 
6864 
6865 
6866 
6867 
6868 
6869 
6870 
6871 
6872 
6873 
6874 
6875 
6876 
6877 
6878 
6879 
6880 
6881 
6882 
688^ 



011656 
011660 
011662 

011664 
011666 
011670 
011672 
011674 
011676 

011700 
011702 
011704 
011706 
011710 
011712 
011714 



011716 
011720 
011726 
011734 
01 1 742 
01 1 744 
01 1 746 
01 1 750 
01 1 752 
01 1 754 
01 1 756 
011760 
011762 
011764 
011766 
011770 
011772 
011774 
011776 
012000 
012002 
012006 
012010 



012012 
012014 
012020 
012022 
012024 
012026 
012030 



001001 
002401 
104000 

000277 
005600 
103002 
102401 
003401 
104000 

005400 
000500 
105405 
102402 
001001 
002001 
104000 



000004 
112757 
015757 
012757 
005000 
000277 
006100 
010002 
006502 
010205 
006505 
010504 
006504 
010405 
006505 
01C546 
050416 
050516 
050216 
050016 
022726 
001401 
104000 



000257 
112700 
006100 
105776 
005200 
001401 
104000 





BNE 


ASRO 




BLT 


.♦4 


ASRO: 


HLT 






sec 






S8C 


RO 




see 


S8C0 




BVS 


seco 




BLE 


.♦4 


S8C0: 


HLT 






NEG 


RO 




SUAB 


RO 




BCS 


SUABO 




BVS 


SUABO 




BNE 


SUABO 




BGE 


.♦4 


SU.ABO: 


HLT 





.•error: INCORRECT CC'S AFTER ASR 



;RO=-1.CC'S=1001 



.•ERROR! INCORRECT CC'S AFTER SBC 

;R0=0000O1.CC'S=OOOO1 
;R0=000400 .CC '5=01 00 



; ERROR! INCORRECT CC'S AFTER SUAB 



;*TEST 4 CHECK REGISTER SELECTION 

••ft************************************************************** 



000004 001252 
001252 177570 

000005 001576 



TST4: 



000057 



SCOPE 
nOVB 
MOV 
MOV 

CLR 

sec 

ROL 
MOV 
ASL 
MOV 
ASL 
MOV 
ASL 
MOV 
ASL 
MOV 
BIS 
BIS 
BIS 
BIS 
CMP 
BEO 
HLT 



#4,alr$TST^M 
a(r$TSTi#i.aro: SPLAY 



#5.airSTIMES 

RO 

RO 

R0,R2 
R2 

R2.R3 
R5 

R3.R4 
R4 

R4.R5 

R5 

R5.-(SP) 
R4.(SP) 
R5.(SP) 
R2.{SP) 
RO.(SP) 
#37. (SP)*- 
.♦4 



.•LOAD TEST NLf«ER 
.•.•DISPLAY TEST NUMBER 



;SET ITERATION COUNT TO 5 

R0=1 

R2=2 

R3=4 

R4=10 

R5=20 

SET BITS SET IN REGISTERb 
INTO STACK ADDRESS 



UERE SET 

MISSING BIT(S) REPRESENT 
INCORRECT REGISTER SELECTION 



000377 



.•CHECK THAT ALL BITS CAN BE SET £ CLEARED IN ALL REGISTERS 
CCC 

MOV #577. RO .-SET ALL BITS (MOVB EXTENDS SIGN) 

1$: ROL RO .•ROTATE A 0 THROUGH ALL BIT 

BCS 1$ .-POSITIONS 

INC RO ; FINAL RESULT IS -1 

BEO . +4 

HLT .-ERROR. 



CEQKC-C POP n/70 CPU EXERCi:fR «ACv^^ 50A(1052) 12-«AR-80 ""l.-SO PAGE 47-A2 

CE0KCE.P11 12-nAR-80 11:27 U CHECK REGISTER SELECTION SEO 0067 



6884 


012032 


012700 


000020 




WOV 


»16..R0 


;SET SHIFT COLWT 


6885 


012036 


005002 






llR 


R2 




6886 


012040 


000261 




2$: 


SEC 






6887 


012042 


006002 






ROR 


R2 


.•ROTATE 1 THROUGH ALL BIT POSITS 


6888 


012044 


005300 






DEC 


RO 


.•DECREMENT SHIFT COUNT 


6889 


012046 


001374 






BNE 


2$ 




6890 


012050 


005102 






COM 


R2 


;R2 SHOULD CONTAIN -1 


6891 


012052 


001401 






BEQ 


.♦4 




6892 


012054 


104000 






HLT 




.•ERROR.' CHECK R2 SHOULD 0 


6893 














6894 


012056 


012703 


100000 




MOV 


#1 00000. R 3 




6895 


012062 


006203 




3S: 


ASR 


R3 


.•EXTEND 1 BIT THROUGH ALL POSITIONS 


6896 


012064 


103376 






BCC 


3$ 


6897 


012066 


005203 






INC 


R3 




6898 


012070 


001401 






BEO 


.♦4 




6899 


012072 


104000 






HLT 




.•ERROR. 


6900 














6901 


012074 


112704 


177401 




MOVB 


#177401 .R4 


;R4=1 


6902 


012100 


060404 




4S: 


ADD 


R4.R4 


.-HAS THE AFFECT OF SHIFTING A BIT 


6905 


012102 


103376 






BCC 


4$ 


.•THROUGH ALL POSITIONS 


6904 


012104 


005704 






TST 


R4 


.•RESULT SHOULD BE 0 


6905 


012106 


001401 






BEQ 


.♦4 


6906 


012110 


104000 






HLT 






6907 
















6908 


012112 


012705 


000001 




MOV 


#1.R5 




6909 


012116 


006305 




5$: 


ASL 


R5 




6910 


012120 


102376 






BVC 


5$ 




6911 


012122 


006305 






ASL 


R5 




6912 


012124 


103002 






BCC 


6S 




6913 


012126 


005705 






TST 


R5 




69K 


012130 


001401 






BEQ 


.♦4 




6915 


012132 


104000 




6$: 


HLT 






6916 
















6917 








.CHECK 


REGISTER 


VOLJTILITY 




6918 


012134 


005002 






CLR 


R2 




6919 


012136 


005102 






COM 


R2 


;R2=-1 


6920 


012140 


010203 






MOV 


R2.R3 


6921 


012142 


000257 






CCC 




6922 


012144 


006002 






ROR 


R2 


;R2=L0OP COUN' 


6923 


012146 


006202 






ASR 


R2 


6924 


012150 


010304 




7$: 


MOV 


R3,R4 




6925 


012152 


005302 






DEC 


R2 


.•DECREMENT LOOP COUNT 


6926 


012154 


001375 






BNE 


7$ 




6927 


012156 


005203 






INC 


R3 


.•CHECK R3 


6928 


012160 


001002 






BNE 


as 




6929 


012162 


005204 






INC 


R4 


.-CHECK R4 


6930 


012164 


001401 






BEQ 


.♦4 




693^ 


012166 


104000 




8$: 


HLT 






6932 
















6953 








.•CHECK 


TRANSFER 


OF REGISTER DATA BETWEEN THE GS AND GD REGISTERS 


6934 


012170 


032737 


000020 


177776 GSTST: 


SIT 


*20.a#PSW 


.•CHECK IF 'T* BIT IS SET 
;SKIP TEST IF 'T* BIT SET 


6935 


012176 


001050 






BNE 


7$ 


6936 


012200 


010627 






MOV 


SP.(PC)* 


;SAVE STACK PTR 


6937 


012202 
012204 


000000 




1$: 


.WORD 


0 


.CONTAINS SAVED STACK PTR 


6938 


010727 






MOV 


PC. (PC)* 


.-LOAD DATA. THE CURRENT PC IS USED 


69^9 


012206 


000000 




2$: 


.WORD 


0 


.-DATA. IF THIS TEST FAILS 2$ CON- 



CEOKC-E POP n/70 CPU EXERCISER «ACr11 
CEOKCE. Pn 11:27 



D 6 

30A(1052) 12-mR-80 11:30 PAGE 47-43 
T4 CHECK REGISTER SELECTION 



SEO 0068 



69^0 








69^1 


012210 


005267 


1 77712 


6942 


012214 


016700 


\777i^ 


69^3 


012220 


010001 




69^4 


012222 


010102 




6945 


012224 


010203 




6946 


012226 


010304 




6947 


012230 


010405 




6948 


012232 


152737 


000340 


6949 


012240 


010506 




6950 


012242 


010627 




6951 


012244 


000000 




6952 


012246 


016706 


1 77750 


6955 


012252 


142737 


000340 


6954 


012260 


026700 


1 77760 


6955 


012264 


001004 




6956 


012266 


006367 


177714 


6957 


012272 


001550 




6958 


012274 


000411 




6959 


012276 


010046 




6960 


012500 


010146 




6961 


012302 


010246 




6962 


012304 


01C346 




6965 


012306 


010446 




6964 


012310 


010546 




6965 


012312 


104000 




6966 








6967 


012314 


016706 


177662 


6968 


012320 






6969 


012520 






6970 








(3) 








(3) 








(2) 








(2) 


012320 


000004 




(2) 


012322 


112737 


000005 


(2) 


012330 


013737 


001252 


6971 


012336 


012737 


000005 


6972 


012344 


000401 




6973 


012346 


000000 




6974 


012550 


010702 




6975 


012352 


162702 


000004 


6976 


012356 


005012 




6977 








6978 


012360 


000261 




6979 


012362 


006012 




6980 


012364 


101402 




6981 


012366 


100001 




6982 


012370 


002001 




6983 


012372 


104000 




6984 








6985 


012374 


000257 




6986 


012376 


000261 




6987 


012400 


005312 




6988 


012402 


103001 




6989 


012404 


003401 





3$: 



\7777h 



}7777t 



4S: 



5$: 



6S: 

7$: 



INC 


2S 


MOV 


2S.R0 


MOV 


R0,R1 


MOV 


R1 .R2 


MOV 


R2,R3 


MOV 


R3.R4 


MOV 


R4,R5 


BiS8 


#340,a#PSU 


MOV 


R5.SP 


MOV 


SP.(PC)+ 


.WORD 


0 


MOV 


1S.SP 


BIC8 


*340,*rpsw 


CMP 


4$,R0 


BNE 


5$ 


ASL 


2$ 


BNE 


3$ 


PR 


6$ 


MOV 


RO.-(SP) 


MOV 


R1 ,-(SP) 


MOV 


R2,-(SP) 


MOV 


R3.-(SP) 


MOV 


R4,-(SP) 


MOV 


R5,-(SP) 


HLT 




MOV 


1$,SP 



TAINS THE DATA BEING USED. 
MAKE ODD TO CHECK BIT 0 
LOAD GD REGISTER 0 
TRANSFER GS REG 0 TO GD REG 1 
AND GS REG 1 TO GD REG 2 
ETC... 



SET PRIORITY LEVEL 7 

TRANSFER GS REG 5 TO GD STK PfR 

TRANSFER GS STK PTR TO MEMORY 

CONTAINS GS STACK PTR 

RESTORE STK PTR NEEDED FOR HLT/SCOPE 

SET PRIORITY LEVEL 0 

COMPARE GS/GD STACK WITH GS REG 0 

BRANCH IF THEY WERE NOT = 

SHIFT TEST DATA UNTIL = 000000 



;GET GS REG 0 
.•ETC.. 



ERROR! DATA IN GS STK PTR NOT = GS REG 0 
GS REG 0-GS REG 5 ARE ON THE STACK 
RESTORE STACK PTR 



.••TEST 5 



TEST UNIARY WORD INSTRUCTIONS USING ADDRESS MODE 1 



001252 
177570 
001376 



TST5: 



R0R1 



SCOPE 

M0V8 

MOV 

MOV 

BR 

.WORD 
MOV 
SUB 
CLR 

SEC 

ROR 

BLOS 

BPL 

BGE 

HLT 

CCC 
SEC 
DEC 
BCC 
BLE 



#5,ar$TST>#i 
air$TSTrffi,a«Di SPLAY 
#5,»rsTinES 

.♦4 



.•LOAD TEST NIJ«£R 
.•.'DISPLAY TEST Nl/BER 



0 

PC.R2 
#4.R2 

(R2) 



(R2) 
R0R1 
R0R1 
.♦4 



(R2) 
DEC1 
.♦4 



.•RESERVE ADDRESS FOR TESTS 

;R2 POINTS TO RESERVED WORD 
.•PRESET (R2) 



;(R2)=100000.CC=1010 



.■error: INCORRECT CCS AS SHOWN ABOVE 



;(R2) =077777. CC=0011 



CEQKC-C POP 11/70 CPU EXERCISER MACrll 30A(1052) 12-«AR-80 11 
CE0KCE.P11 12-*nAft-80 11:27 T5 TEST LWJARY WOR 



6990 


012406 


104000 


DE C 1 : 


HLT 




6991 












6992 


012410 


000257 




CCC 




6993 


012412 


000261 




SEC 


(R2) 


6994 


012414 


005512 




ADC 


6995 


012416 


103403 




BCS 


ADC1 


6996 


012420 


102002 




BVC 


ADC1 


6997 


012422 


100001 




BPL 


ADC1 


6998 


012424 


001001 




BNE 


.+4 


6999 


012426 


104000 


^DCI : 


KLT 




7000 










(R2) 


7001 


012430 


006112 




ROL 


7002 


012432 


103003 




BCC 


ROlI 


7003 


012434 


102002 




BVC 


ROLI 


70CX. 


012436 


001001 




BNE 


ROLI 


^005 


012440 


100001 




BPL 


.♦4 


7006 


012442 


104000 


ROLI : 


HLT 




7007 










(R2) 


7008 


012444 


006112 




POL 


7009 


012446 


101402 




BLOS 


ROLIA 


7010 


012450 


102401 




BVS 


ROLIA 


7011 


012452 


100001 




BPL 


.+4 


7012 


012454 


104000 


ROLIA: 


HLT 




7013 










(R2) 


70 V. 


012456 


006212 




ASR 


7015 


012460 


103003 




BCC 


ASRl 


7016 


012462 


102002 




BVC 


ASRl 


7017 


012464 


001001 




BNE 


ASRl 


7018 


012466 


100001 




BPL 


.+4 


'019 


012470 


104000 


ASR1 : 


HLT 




7020 












7021 


012472 


0060^2 




ROR 


(R2) 


7022 


012474 


103403 




BCS 


RORIA 


7023 


012476 


102002 




BVC 


RORIA 


702^. 


012500 


001401 




BEG 


RORIA 


7025 


012502 


100401 




mi 


.+4 


7026 


012504 


104000 


RORIA: 


HLT 




702 7 












7028 


012506 


000261 




SEC 


(R2) 


7029 


012510 


005212 




INC 


7030 


012512 


103003 




BCC 


INCl 


7031 


012514 


102402 




BVS 


INCl 


7032 


012516 


001401 




BEQ 


INCl 


7033 


012520 


100401 




BMI 


.♦4 


7054 


012522 


104000 


INC1 : 


HLT 




7035 












7036 


012524 


005612 




sec 


(R2) 


7037 


012526 


103403 




BCS 


seci 


7038 


012530 


102402 




BVS 


seci 


7039 


012532 


001401 




BEO 


seci 


7040 


012534 


100401 




BMI 


.+4 


7041 


012536 


104000 


S8C1: 


HLT 




7042 












7043 


012540 


000261 




SEC 




7044 


012542 


005612 




sec 


(R2) 


7045 


012544 


103403 




BCS 


seciA 



E 6 
:30 PAGE 47-44 

) INSTRUCTIONS USING ADDRESS MODE 1 



3EQ 0069 



.ERROR! INCORRECT CC'S AS SHQUN A80v£ 
;(R2)=100000,CC=1010 

.■ERROR! INCORRECT CC'S AS SHOyN ABOVE 

;(R2)=000000.CC=0111 

.-ERROR! INCORRECT CC'S AS SHOyN ABOVE 

;(R2) =000001. CC=0000 
.•BRANCH IF C OR 2 IS SET 

;fR2)=000000.CC-0111 

.-ERROR! INCORRECT CC'S AS SHOWN ABOVE 
;(R2)=100000.CC-1010 



;(R2)=100001.CC-1001 

.-ERROR! INCORRECT CC'S AS SHOWN ABOVE 
.-(R2)=100000.CC=1000 

.•ERROR! INCORRECT CC'S AS SHOWN ABOVE 
;(R2) =077777. CC=0010 



F 6 

CEOKC-€ POP 11/70 CPU EXERCISER HACyM 30A(1052) 12-IW-80 11:30 PAGE 47-45 

CEQKCE.PII 12-fVW-80 11:27 T5 TEST [filARY WORD INSTRUCTIONS USJNG ADDRESS MODE 1 



SEO 0070 



7046 
7047 
7048 
7049 
7050 
7051 
7052 
7053 
7054 
7055 
7056 
7057 
-'058 
7059 
7060 
7061 
7062 
7065 
7064 
7065 
7066 
7067 
7068 
7069 
7070 
7071 
7072 
7073 
7074 
7075 
7076 
7077 
7078 
7079 
7080 
7081 
7082 
7083 
7084 
7085 
7086 
7087 
7088 
7089 
(3) 
(3) 
(2) 
(2) 
(2) 
(2) 
7090 
7091 
7092 
7093 
7094 
7095 



012546 102002 

012550 001401 

012552 100001 

012554 104000 

012556 000261 

012560 005512 

012562 100401 

012564 104000 

012566 000261 

012570 006312 

012572 103003 

012574 102002 

012576 001001 

012600 100001 

012602 104000 

012604 005112 

012606 103002 

012610 102401 

012612 100401 

012614 104000 

012616 000250 

012620 005712 

012622 103403 

012624 102402 

012626 100001 

012630 001001 

012632 104000 

012634 000262 

012636 005412 

012640 103002 

012642 102401 

012644 001001 

012646 104000 

012650 005312 

012652 103001 

012654 001401 

012656 104000 



012660 000004 

012662 112737 000006 

012670 013737 001252 

012676 000401 

012700 000000 

012702 010703 

012704 162703 000004 

012710 010304 

012712 005204 



S8C1A: 



ASLl 



COMl 



TEST1 



NEGl 



DECIA: 



BVC 
BEQ 
8PL 
HLT 

SEC 
ADC 
BMJ 
HLT 

SEC 
ASL 

sec 

BVC 
BNE 
BPL 
HLT 

COM 
8CC 
BVS 
BMJ 
HLT 

CLN 
TST 
BCS 
BVS 
BPL 
BNE 
HLT 

SEV 
NEG 
8CC 
BVS 
BNE 
HLT 

DEC 
BCC 
BEQ 
HLT 



S8C1A 
S8C1A 
.♦4 



(R2) 
.♦4 



(R2) 
ASLl 
ASLl 
ASLl 
.♦4 



(R2) 
COMl 
COMl 
.♦4 



(R2) 

TESTl 

TESTl 

TESTl 

.♦4 



(R2) 
NEGl 
NEGl 
.♦4 



(R2) 

DECIA 

.♦4 



.•ERROR. INCORRECT CCS AS SHOEN ABOVE 
;(R2)=100000.CC=1010 

;(R2)=000000.CC=0111 

.•ERROR.' INCORRECT CCS AS SHOUN ABOVE 
;(R2)=177777.CC=1001 

.•ERROR. INCORRECT CCS AS SHOUN ABOVE 
;(R2)=1 77777. CC=1000 

.•ERROR! INCORRECT CCS AS SHOUN ABOVE 
;(R2) =000001. CC -0000 

.-ERROR! INCORRECT CCS AS SHOUN ABOVE 
;(R2) =000000. CC=01 01 



.•ERROR! INCORRECT CCS AS SHOUN ABOVE 
■•ft************************************************************** 

;iTEST 6 CHECK UNIARY BYTE INSTRUCTIONS USING ADDRESS MODE 1 



001252 
177570 



TST6: SCOPE 

MOVE *6,»r$TST^#1 .-LOAD TEST NlWBER 

MOV arSTSTNM.arDISPLAY ;. -DISPLAY TEST NUMBER 

BR .♦4 .-RESERVE A WORD 

.WORD 0 .ADDRESS RESERVED FOR TESTS 

MOV PC,R3 

SUB *4.R3 .-R3 POINTS TO EVEN BYTE Of WORD 

MOV R3.R4 ;R4 POINTS TO ODD BYTE OF WORD 

INC R4 



CEQKC-E POP 11/70 CPU EXE«Ci:f« PUCY17 30A(1052) 12H 

CEQKCE.P11 12-«AR-80 11:27 T6 CHECK 

7096 0127U 005013 CLR 
7097 

7098 012716 000261 1$: SEC 

7099 012720 105513 ADC8 

7100 012722 100402 8MI 

7101 012724 1052U INC8 

7102 012726 000773 BR 

7103 012730 102401 2$: BVS 

7104 012732 104000 HLT 

7105 012734 000242 CLV 

7106 012736 105214 INC8 

7107 012740 103402 BCS 

7108 012742 102001 BVC 

7109 012744 100401 BMI 

7110 012746 104000 INC81: HLT 
7111 

7112 012750 106114 R0L8 

7113 012752 103002 BCC 

7114 012754 102001 BVC 

7115 012756 001401 BEQ 

7116 012760 104000 R0L81 : HLT 
7117 

7118 012762 105614 S8C8 

7119 012764 103002 BCC 

7120 012766 102401 BVS 

7121 012770 100401 BMI 

7122 012772 104000 S8C81 : HLT 
7123 

7124 012774 106313 ASL8 

7125 012776 103002 BCC 

7126 013000 102001 BVC 

7127 013002 001401 8£0 

7128 013004 104000 ASL81 : HLT 
7129 

7150 013006 105413 NEG8 

7131 013010 103402 BCS 

7132 013012 102401 BVS 

7133 013014 001401 BEQ 

7134 013016 104000 NEG81 : HLT 
7135 

7136 013020 000277 SCC 

7137 013022 105313 DEC8 

7138 013024 103002 BCC 

7139 013026 102401 BVS 

7140 013030 001001 BNE 

7141 013032 104000 DEC81: HLT 
7142 

7143 013034 000241 CLC 

7144 013036 106013 R0R8 

7145 013040 103002 BCC 

7146 013042 102001 BVC 

7147 013044 100001 BPL 

7148 015046 104000 R0R81: HLT 
7149 

7150 015050 000241 CLC 

7151 015052 105114 COMB 



G 6 

1AR-80 11:30 PAGE 47-46 

UNIARV BYTE INSTRUCTIONS USING ADDRESS MODE 1 



(R3) 



.•PRESET DATA 



SEQ 0071 



(R3) 

2$ 

(R4) 

IS 

.♦4 



;ADD CARRY TO EVEN BYTE 

.•UNTIL EVEN BYTE BECOMES NEGATIVE 

.•INCREMENT ODD BYTE 

;(R3)-077600=[0774:C200J.CC=1010 



(R4} 
I.MC81 
INCBl 
.♦4 



(R4) 
ROLBl 
R0L81 
.♦4 



(R4) 
S8C81 
S8C81 
.♦4 



{R3) 
ASL81 
ASL81 
.♦4 



(R3) 
NEGBl 
NEGBl 
.♦4 



;(R3)=100200=C1000DC200J.CC=1010 

.ERROR. INCORRECT CCS AS SHOWN ABOVE 
;(R3)=000200=C0000JC200J,CC=0111 

.•ERROR! INCORRECT CCS AS SHOUN ABOVE 
;(R3)=177600=[1774JC20O3. CC=1001 

.ERROR! INCORRECT CCS AS SHOUN ABOVE 
;(R3)=177400.CC=0111 

;l JR! INCORRECT CCS AS SHOWN ABOVE 
;(R3)=1 77400. CC=01 00 

.•ERROR! INCORRECT CCS AS SHOUN ABOVE 



(R3) 
DEC81 
DEC81 
.♦4 



;(R3J=177777.CC=1001 



.-ERROR! INCORRECT CCS AS SHOUN ABOVE 



(R3) 
R0R81 
R0R81 
.♦4 



;(R3J=1 77577. CC=0011 



.•ERROR! INCORRECT CCS AS SHOUN ABOVE 



<R4) 



;(R3)=000177.CC=0101 



H 6 

:tQK^-E POP n/70 CPU ExERCI:FP MACyII 30A(1052) 12-<nAfi-80 11:50 PAGE 47-<.7 

CFQKCE.P11 12-W-80 11:27 T6 CHECK LWIARY BYTE INSTRUCTIONS USING ADDRESS MODE 1 



7^5? 


015054 


105002 




BCC 


C0M81 




7*55 


015056 


102401 




BVS 


C0MB1 




7lS<. 


015060 


001401 




BEO 


.♦4 




7'55 


015062 


104000 


C0MB1; 


HLT 




.-ERROR! INCORRECT CCS AS SHOWN ABOVE 


7156 














^157 


01 5064 


106215 


IS: 


ASR8 


(R5) 


.•SHIFT EVEN BYTE UNTIL V CLEARS 


7*58 


015066 


102002 




BVC 


2S 




7159 


01 5070 


105514 




ADCB 


(R4) 


.-AND ADD CARRY TO ODD BYTE 


7160 


015072 


000774 




BR 


IS 




7161 


01 5074 


105401 


2$: 


BCS 


ASR81 




7162 


015076 


001401 




BEO 


.♦4 




7165 


015100 


104000 


ASR81 : 


HLT 




.•ERROR. INCORRECT CCS AS SHOWN ABOVE 


716A 














7165 


015102 


106214 




ASRB 


{R4) 




7166 


015104 


106214 




ASR8 


(R4) 


;(R3)=000400,CC=0011 


^'67 


015^06 


105002 




BCC 


ASRBIA 


7168 


015110 


102001 




BVC 


ASRBIA 




7169 


015112 


001001 




BNE 


.♦4 




71 70 
71 71 


015114 


104000 


ASRBIA: 


HLT 




;ERROR. INCORRECT CCS AS SHOWN A80/E 


7172 


0151 16 


105514 




DECS 


(R4) 


; {R5)=000000.CC=0100 


71 75 


015120 


001401 




BEO 


.♦4 


71 7A 


01512? 


104000 




HLT 




.-ERROR! INCORRECT CCS AS SHOWN ABOVE 


71 75 














71 76 


015124 


000261 




SEC 






71 77 


015126 


106014 




R0R8 


(P4) 


; (R5)=100000.CC 1010 


71 78 


015150 


105402 




BCS 


R0R81A 


71 79 


015152 


102001 




BVC 


R0R81A 




7180 


015154 


100401 




8MI 


.♦4 




7181 


015136 


104000 


R0H81A: 


HLT 




.•ERROR! INCORRECT CCS AS SHOWN ABOVE 


7182 












7185 


015140 


000242 




CLV 






718A 


015142 


105514 




DECS 


(R4) 


; (R5> =077400. CC-0100 


7185 


015144 


102401 




BVS 


.♦4 


7186 


01 5l46 


104000 




HLT 






7187 














7188 


015150 


000261 




SEC 






7189 


015152 


105515 




DEC8 


(R5) 


; (R5)=077777,CC=1001 


7190 


015154 


105002 




BCC 


DEC81A 


7191 


Ol5l56 


102401 




BVS 


DEC81A 




7192 


015160 


100401 




sni 


.♦4 




7195 


015162 


104000 


DEC81A: 


HLT 




.-ERROR! INCORRECT CCS AS SHOWN ABOVE 


7194 












7195 


015164 


000277 




sec 






7196 


015166 


000515 




SUAB 


(R3) 


^«^9\ 4^^P^^ ^4^^y^r4^T^ ^ ^ 

; (R3)=177577-[1774DC177J.CC=0000 


7197 


01 51 70 


105402 




BCS 


SUAB1 




7198 


013172 


102401 




BVS 


SUAB1 




7199 


94 

0i3i74 


4 A AAA 4 

100001 




BPL 


.♦4 




7200 


01 31 76 


4 A i AAA 

104000 


SWABl : 


HLT 




.-ERROR! INCORRECT CCS AS SHOWN ABOVE 


7?01 


0132OO 










7202 


105714 




TST8 


(R4) 


;(R3)=177577=[1774DC177D.CC=1000 


7205 


015202 


105402 




BCS 


TST61 




7204 


015204 


102401 




BVS 


TST81 




7205 


015206 


100401 




8MI 


.*4 




'206 


013210 


104000 


rSTBI: 


HLT 




.-ERROR! INCORRECT CCS AS SHOWN ABOVE 


'?07 













^EQKC-E POP 
CEQKCE.P11 



11/70 (.PU EXERCISER 
12-mfi-80 11:27 



I 6 

flACvll 50A(1052) 12-mR-80 11:30 PAGE A7-48 

T6 CHECK lAIARY BYTE INSTRUCTIONS USING ADDRESS MODE 



SEO 0075 



7208 
7209 
7210 
7211 
7212 
7215 
72U 
7215 
7216 
7217 
7218 
7219 
7220 
7221 
7222 
7221 
722U 
722'i 
722t 
7227 
7228 
7229 
7230 
7231 
7232 
7233 
7234 
7235 
7236 
(3) 
(3) 
(2) 
(2) 
(2) 
(2) 
7237 
7238 
7239 
7240 
7241 
7242 
7243 
7244 
7245 
7246 
7247 
7248 
7249 
7250 
7251 
7252 
7253 
7254 
7255 
7256 
7?57 



013212 
015214 
013216 
013220 
013222 
013224 
013226 
013230 



013232 
013234 
013236 
01 5240 
01 3242 

01 3244 
013246 
013250 

013252 
013254 
013256 
013260 
013262 
013264 
013270 
013272 



013274 
013276 
013304 
013312 
013314 
013316 
013320 
013324 
013326 

013330 
013332 
013334 
013336 
013340 
013342 
013344 

013346 
013350 
013352 
013354 



105014 
001401 
104000 
106313 
103402 
102001 
100401 
104000 



105113 
103002 
102401 
100001 
104000 

000313 
001401 
104000 

105213 
000261 
105613 
001401 
104000 
022713 
001401 
104000 



000004 
112737 
013737 
000401 
000000 
010704 
162704 
010405 
005015 

000277 
000244 
005725 
103402 
102401 
001401 
104000 

005145 
103001 
100401 
104000 



000400 





CLR8 


(R4) 


;(R3)=000177=[00003C1 77], CC=0100 




BEQ 


.♦4 




HLT 








ASL8 


(fl3) 


;(fl3) =000376 .CC=1010 




BCS 


ASLBTA 




BVC 


ASL81A 






BMI 


.♦4 




ASL81A: 


HLT 




.error; incorrect ccs as snoyN above 




COMB 


(R3) 


;(R3) =000001. CC=0001 




BCC 


COMBIA 














BPL 


.♦4 




COMBIA: 


HLT 




.ERROR! INCORRECT CC'S AS SHOyN ABOVE 




SWAB 


(R3) 


;(R3) =000400, CC=0100 




BEQ 


.♦4 






HLT 








INC8 


CR3) 






SEC 








S6CB 


(R3) 


;(R3) =000400. CC=01 00 




BEQ 


.♦4 






HLT 








CMP 


*400.(R3) 


.•CHECK REMAINING RESULT 




BEQ 


.♦4 






HLT 








.••TEST 


7 


CHECK UNIARY 


WORD OPS USING ADDRESS MODES 2 & 4 



000007 
001252 



000004 



001252 
177570 



TST7: 



COM4: 



013356 000241 



SCOPE 






M0V8 


/r7,ar$TSTNM 


.-LOAD TEST NLTBER 


MOV 


a»$TSTNM.a#DI SPLAY ; .-DISPLAY TEST NUMBER 


BR 


.+4 




.WORD 


0 


.•ADDRESS RESERVED FOR TESTS 


MOV 


PC.R4 




SUB 


#4,R4 


;R4 AND R5 POINT TO 


MOV 


R4,R5 


.•RESERVED WORD 


CLR 


(R5) 


.•PRESET DATA=0 


sec 






CLZ 






TST 


(R5)* 


;(R5)=000000.CC=0100 


BCS 


TEST2 




BVS 


TEST2 




BEQ 


.♦4 




HLT 




.•ERROR! INCORRECT CC'S AS SHOWN 


COM 


-(R5) 


;(R5)=1 77777. CC=": 001 


BCC 


COM4 




BMI 


.♦4 




HLT 




.•ERROR. INCORRECT CC'S AS SHOWN 


CLC 







CtOKC-E POP 11/70 CPU EXERCI:ER MACYll 30A(1052) 12-nW»-80 11 
CEQKCE.Pn 12-f1AR-80 11:27 T7 CHECK UNIARY UC 



7258 


013360 


006024 




ROR 


(R4)* 


7259 


013562 


103002 




BCC 


R0R2 


7260 


01336^ 


102001 




BVC 


R0R2 


7261 


013366 


100001 




BPL 


. y 

.♦4 


7262 


01 3370 


4 A y AAA 

1CK000 


R0R2: 


1 11 T 

HLT 




7263 












7?64 


013372 


AAA*^ C 7 

000257 




CCC 




7265 


A 4 7 7 7/ 

01337A 


A A r y y 

005244 




INC 


/ ny \ 

-(R4; 


7266 


W 7y 

01 3376 


4 A AA 

102002 




BVC 


JNC4 


7267 


013^00 


AA 4 / A4 

001401 




BEQ 


INC4 


7268 


013^02 


4 AA y A4 

100401 




BMI 


, y 

.♦4 


7269 


013404 


4 A« AAA 

104000 


INC4: 


1 11 T 

HLT 




7270 












7271 


A 4 7 y AZ 

015A06 


AAA 4 

000261 




SEC 




7272 


A4 7 y 4 A 

01 5410 


AAATT/ 

000524 




SWAB 


(Rs) ♦ 


7275 


A 1 7 y 4 

Oi 3A12 


4 A 7y A4 

103401 




6CS 


Ol lAB 1 

SUAB2 


727** 


A'1 7y i y 


4 AA/ A4 

100401 




BMi 


. y 

.♦4 


7275 


A4 7 y 4 ^ 

013A16 


4 Ay AAA 

104000 


SUAB2: 


111 T 

HLT 




7276 












7277 


Al 7/ 1A 

015A^0 


AACy 1C 

005425 




kir r" 

NEG 


(R5J ♦ 


f2ro 


01 


1 AT AA1 

105001 




BCC 


kir ^O 

NEG2 




A^ 7/ iy 


4 AA> A4 

100401 




Bnl 


, y 


710A 


Ai 7/ IX. 


1 Ay AAA 

104000 


Ncu2: 


HLT 




7TOi 

7^01 












72o2 


AIT/ 7A 


AACA/ / 

005044 




CLR 




7^83 


Ai T/ TO 


AA1 / AI 






. y 

.♦4 


7ioy 


Al T/ T/ 


4 A/ AAA 




Lll T 

HLT 




7 IOC 












72o6 


AI 7/ 7^ 

015A56 


AAA'^X. 1 

000261 




SEC 




72of 


01 5AA0 


AAZ.A/ C 

00604? 




A ATI 

ROR 


/DC \ 


72ao 


A1 Ty / 1 
01 5*»*k: 


AAA*^^ i 

000261 




SEC 




72or* 


Ai 7y / / 
01 5*»t»»» 


AAC C 

0055^5 




ADC 


/DC \ A 


710rt 


Ai T/ / ^ 

01 5»»*»6 


1 Aiy AI 
102401 




8VS 






Ai tJ CA 

01 5s50 


i AA/ AI 

lOOsOl 




Oil f 




72^2 


Ai 7y 


i Ay AAA 

104000 


ADC2: 


LJI T 

HLT 




72yb 












(2^ 


Ai 7/ cy 
01 3A5*t 


0002C2 




C* C li 

SEv 






Ai T/ 

015A56 


Ayv^ '^'^y 
006224 




ACQ 

ASR 


/O/ \ A 


72yt 


Ai 7y ^A 

013*»o0 


i A7AA'5 

105002 




BCC 




72rr( 


Ai Ty 

015*»6c 


i A'^y Ai 
102401 




BVS 


ASRc 


7000 

r dyo 


Ai 7y ^y 
015*»6<i 


i AAy AI 

100401 




Bnl 


.♦4 


7299 


Ai Ty 

015^66 


1 Ay AAA 
104000 


ASR2 : 


LJI T 

HLT 
















7TA1 

r 501 


Ai 7y 7A 
01 i'^/'O 


AAA'OZ.'^ 

000262 




StV 




71AO 

fiU2 


Ai Ty 70 


r\/\z i y y 

00614s 




AAl 

ROL 


-(Rh; 


7305 


Ai Ty 7/ 


i ATAAO 

105002 




BCC 


A At / 

ROL 4 


750** 


Ai 7y 7^ 

01 5*»r6 


i A'^y Ai 
1 02401 




ovS 


AAl / 

ROL 4 


7TAC 

/5U6 


Ai 7CAA 

01 5500 


i AAy Ai 

100*»01 






. y 

. +4 


Ai TCA*^ 

01530c 


i A/ AAA 
104000 


R0L4 : 


LJI T 

HLT 
















7308 


013504 


005645 




see 


-(R5) 


7309 


013506 


103001 




BCC 


.♦4 


7310 


013510 


104000 




HlT 




7311 












7312 


013512 


005325 




DEC 


(R5)^ 


7313 


0135U 


103402 




BCS 


DEC2 



J 6 
:30 PAGE 47-49 

PD OPS USING ADDRESS flODES 2 fc 4 SEQ 0074 

;(R4)=077777,CC=00n 



.•ERROR! INCORRECT CCS AS SHOiVN ABOVE 
;(R4)=100000,CC=1010 



ERROR! INCORRECT CCS AS SHOWN ABOVE 

(R4)=000200,CC=1000 

ERROR! INCORRECT CCS AS SHOWN ABOVE 
(R5)=177600.CC=1001 

ERROR! INCORRECT CCS AS SHOWN ABOVE 
(R4) =000000, CC=01 00 



;(R5)=100000.CC=1010 
;(R5)=100001,CC 1000 

.•ERROR! INCORRECT CCS AS SHOWN ABOVE 

;(R4)=140000.CC=1001 

.•ERROR! INCORRECT CCS AS SHOWN ABOVE 
;(R4) =100001. CC=1001 

.•ERROR! INCORRECT CCS AS SHOWN ABOVE 

;(R5)=100000,CC=1000 

.-ERROR! 'C BIT FAILED TO CLEAR 

;(R5) =077777. CC=0010 



K 6 

CEQKC-E POP 11/70 CPU EXERCISER MACYll 30A(1052) 12-mR-80 11:30 PAGE 47-50 

'"EQKCE.PII 12-WI-80 11:27 T7 CHECK IWIARY WORD OPS USING ADDRESS MODES 2 t 4 SEO 0075 





013516 


1 AO/VM 

102001 








BVC 


DEC2 




'51 5 


rtl TC "^rt 

01 3520 


100001 








8PL 


. ^4 






/Si TC 

01 3522 


104000 






DEC2: 


HLT 




;ERR0R. INCORRECT CC S AS SHCXJN ABOVE 


'51 ' 
















'51 0 


A1 1C "i/ 

U ' 33<:4 


AAX 7">/ 

0065ZA 








ASL 


/ A/ ^ ^ 
{Rh) ♦ 


. / A/ \ — 1 777 r /* — 1 A 1 A 


771 O 

' 3 1 V 


'M 7CO^ 


1 A'^y A1 

1U«:«»01 








ovS 




7 7 1A 

' 5?0 


01 5550 


1 A/ A/SA 

104000 








1 il T 

HLT 






'521 


/Si TC TO 

01 3532 


AA.Z y J / 

006 544 








ASL 


~(.R*t) 


. fr\i *_1 7777/ /•/•^l AA1 

; (R4/"l /rr74,CC=1001 


fbcc 


01 5!>5*» 


1 A1AAT 

105005 








BCC 


A C 1 / 




A1 7C 7^ 

01 3536 


1 AT/ AO 

102^02 








BvS 


ASL*i 




7 ?0/ 


A1 7C/ A 

01 53hO 


AA1 / A' 
0'J140 








AC A 

BEQ 


A C 1 / 

ASL4 




7 l"5C 


A1 7C/ 0 

01 55*k: 


1 AA/ Al 

100*»01 








BnJ 






' 5<:6 


A1 7C/ / 

01 53*»»» 


1 A/ AAA 

10*1 000 






ASL»» : 


HLT 




;ERRUR. INCORRECT CC S AS SHOWN ABOVE 


773 7 
















'5^8 


1 7C/ ^ 

01 3^Ao 


A'i '57*5/ 

022'c4 


1 7777 / 
1 /ff ft* 






CMP 


M^7777^,,^M)* 






W 1 JJJC 










BEQ 


.+4 




7330 


013554 


104000 








HLT 






7331 


013556 


020405 








CMP 


R4.R5 




' 33<: 


Ul 3300 


nni / ni 
UU 1 *»U1 








BEQ 


.+4 




7m 


m 7^A.3 
U 1 3DOC 


1 n/.n/Sn 








HLT 






7XXL. 
f 33*1 










• ************************ ******************* 


13^ 










.••TEST 


10 


CHECK UNIARY 


BYTE OPS USING ADDRESS MODES 2 6 4 


V 3/ 

\C) 
\c> 










; ; *************************************************************** 


U 1 3^o*» 


AAAAA/ 

uoouu»» 






TST10: 


SCOPE 






' 5 » 


Til 7^#tJ^ 
U 1 3 jOO 


1 1 3777 
1 1 C ' J' 


AAAA1 A 

UUUU 1 u 


nni 3^3 




M0V8 


«10.a4r$TSTNM 


.'LOAD TEST Nl/BER 


to\ 

\c ) 


U 1 33' 


ni 7777 

U 1 3'3' 


nni 353 


1 7717n 




MOV 


a»f$TSTNH.a#DI SPLAY :. -DISPLAY TEST NlfOER 


777S 

' jj J 


V 1 XVc 










BR 


.♦4 


.RESERVE A WORD 


f 330 


Al TA/V. 

U 1 3oU*i 


UUUUUU 








.WORD 


0 


.RESERVED WORD 


7T17 

' 33' 


Ai IXTU^ 
01 30U0 


Al A7AC 

0 IU'U3 








MOV 


PC.R5 


' 330 


ni 7A1 n 

U 1 301U 


1 A37n^ 








SUB 


#4.R5 


:RS POINTS TO EVEN BYTE OF RESERVED WORD 


' 33y 


U 1 30 Ih 


A1 ACAA 

U IU3U0 








MOV 


R5.R0 


77Z.n 
' 3*»U 


m 7A1 A 
U 1 30 10 


ni nnn3 








MOV 


R0,R2 




7^1 


UI30cU 


nn«;3< j 








INC 


R2 


;R2 POINTS TO ODD BYTE OF RESERVED WORD 


71/. D 


ni 7il30 


UU3U1U 








CLR 


(RO) 


.•PRESET 


1 3*»3 
















f 3h*» 


ni 7A0/. 


nnn377 
UUUc' ' 








sec 






77/. «; 
' 3*»3 


ni 7X3iL 

01 ioco 


nnno/ 1 
U00£*»l 








CLC 






1 3*»0 


ni 7A7n 
01 joyj 


1 nil 3C 








COMB 


(R5) + 


;(R0)=000377.CC=1001 


77/. 7 


ni 7A73 

0 1 jOjc 


1 n7nn3 








BCC 


C0MB2 


' 3h0 


ni 7A7Z 


1 n3Ani 








BVS 


C0MB2 




77/.Q 


ni 7A<A 
0 1 0030 


100401 








BMI 


.+4 




' 33U 


ni tAj.ri 
0 1 jO*»0 


1 n/ nnn 






C0MB2: 


HLT 




.•ERROR I INCORRECT CCS AS SHOWN ABOVE 


' 33 1 


















7352 


013642 


105542 








ADC8 


-(R2J 


;(R0)=0O0OO0,CC=0101 


7353 


013644 


001401 








BEQ 


.♦4 




77«;z. 

' J JM 


ni 7AZ.A 


in/, nnn 








HLT 




.-ERROR] INCORRECT RESULT AS SHOWN ABOVE 


' JJJ 


ni XAKf\ 


1 ni«;3^ 
1 n7/ni 








ADC6 


(R5) + 


;{R0) =000400. CC=000O 


' 330 


ni 7AC3 
0 1 J03£ 








BCS 


ADC82 


7357 


013654 


001001 








BNE 


.+4 




7358 
7359 
7360 


0136S6 


104000 






ADC82: 


HLT 




.-ERROR! INCORRECT CC'S AS SHOWN ABOVE 


013660 


000263 








+SEC. 


SEV 




7361 


013662 


106045 








RORB 


-(R5) 


;(R0)=100000.CC=1001 


7362 


013664 


103003 








BCC 


R0Re4 


7363 


013666 


102402 








BVS 


R0R84 





L 6 

CEQKC-E POP n/70 CP'J EXERCISER MACrll 30A(1052) 12-WR-80 11:30 PAGE 47-51 

CEQKCE.Pn 12HnAR-80 11:27 T10 CHECK IJ^IARY BYTE OPS USING ADDRESS MODES 2 4 4 SEQ 0076 



7364 


013670 


001401 




BEQ 


R0R84 






7365 


013672 


100401 




BMI 


.♦4 






7366 


013674 


104000 


R0R84 : 


HLT 




c nnnn 1 ff AiA^^#\nc at ^aIc Af 

.'ERROR! INCORRECT CC S AS 


SHOUN ABOVE 


7367 
















7368 


013676 


000277 




see 




; (RO) =100001 ,CC=0000 




7369 


013700 


106122 




R0L8 


(R2) •♦• 




7370 


01 3702 


103403 




8CS 


R0L82 






7371 


013704 


102402 




BVS 


R0L82 






7372 


013706 


001401 




BEQ 


R0L82 






7373 


013710 


100001 




BPL 


.♦4 






7574 


013712 


104000 


R0L82 : 


HLT 




A nA/%A ff K 1 A Ann aat aaVa aa 

;ERR0R. INCORRECT CC S AS 


SHOWN ABOVE 


7375 
















7376 


013714 


000257 




CCC 








7377 


013716 


106225 




ASR8 


(R5) •♦• 


. / nA \ _ i / AAAi A A _ i A i A 

; (R0J=140001 , CC=1010 




7378 


01 3720 


103402 




BCS 


ASR82 






7379 


01 3722 


4 A^A/\4 

102001 




BVC 


ASR82 






7380 
















7381 


01 3724 


100401 




Bni 


.♦4 






7382 


01 3726 


104000 


ASR82: 


HLT 




;cRR0RI INCORRECT CC S AS 


SHOWN ABOVE 


7383 
















7384 


A 4 7 77/\ 

013730 


105242 




INC8 


-(R2) 


;(R0)=1 40002. CC=0000 




7385 


013732 


A/\A^77 

000277 




sec 








7586 


Ai 777/ 

01 3754 


106222 




ASRd 


iK^; ♦ 


./nA\— iyAAAi y*^— AAAA 

; (R0^=140001 .CC=0000 




7x7 


A4 777Z 

013736 


i A7/ A^ 

105402 




BCS 


A <* t A 

ASK82A 






7588 


Al 7 7/ A 

013740 


i At/ Ai 

102401 




BVS 


A cnnt A 






7589 


rt4 77/ T 

0 13742 


100001 




BPL 


.♦4 






7390 


0 13744 


4 /Vy AAA 

104000 


A5R82A : 


Lll T 

HLT 




.'ERROR: INCORRECT CC S AS 


CLJAI M.I AOAViC 

SHOhM AoUVc 
















7392 


rt 4 7 7/ Z 

013746 


000266 




♦SEZ. 


SEV 


;SET Z.V 




7393 


A^ 7 7Cr A 

013750 


i /W. 7/ c 

106545 




A c\ n 

ASL8 




- / A A \ — i AAAA 1 A A — 1 A A i 

; (R0)=100001 .CC=1001 




7394 


013752 


1 A7AA7 

105005 




BCC 


A 1 0/ 

ASL84 




7395 


A-l 77C / 

013754 


i A"^/ A*^ 

102402 




BVS 


A 01 D/ 

ASLB4 






7 TAX 

7396 


A1 T7CX 

013756 


AAi / Ai 

001401 




BEQ 


A CI D/ 

ASLB4 






7397 


01 3760 


i AA/ Ai 

100401 




Bni 


.♦4 






7398 


A^ 7 7Z ^ 

013762 


i A/ AAA 

104000 


A ^1 n/ . 

ASL84 : 


HLT 




.•ERROR! INCORRECT CCS AS 


SHOWN ABOVE 


7399 














7400 


01 5764 


105522 




DcCo 




. / DA \ — A77/ A1 — rA77/ T TAAI 1 

; (R0;-U7r4Ui-LU7/^4JLUUl J 


r r —AAI A 

,CC-UUIU 




A1 77XX 

015766 


1 ATAAT 

10500*: 




BCC 


DcCB<: 








Ai 777A 

0(5770 


1 AOAA1 

lO<:001 




BVC 


DcCo^ 






7403 


AI 777*^ 

015772 


1 AAAAi 

100001 




nni 

BPL 


.+4 






7404 


013774 


104000 


DEC82: 


HLT 




.'ERROR! INCORRECT CCS AS 


SHOWNABOVE 


7405 














7406 


A 1 7 77^ 

013776 


4 AC^/ C 

105645 




S8C8 




; (RO^ =077400, CC-UlOO 






AI / A/\A 


i AT/ A*^ 

105402 




BCS 


S8C84 






7/ AO 


Ai / AAI 


1 A'l/ A1 

102401 




BVS 


CO AO/ 

S8CB4 






7k\ft 


A4 / AA/ 

014004 


f\f\A / Ai 

001401 




BEQ 


.+4 






7410 


014006 


104000 


S8C84; 


HLT 




.'ERROR! INCORRECT CCS AS 


SHOUN ABOVE 


7411 
7412 


A4 / A4 A 

014010 


1 AC/ / ^ 

105442 




NEGB 


-(R2J 


./nA\i— iAyAA 1AA1 

; (R0J=104U0,CC=1U0 1 




f *• 1 J 








oil 








7414 


014014 


102A01 




BVS 


NEGB4 






7415 


014016 


100401 




BMI 


.♦A 






7416 
7417 


014020 


104000 


NEGB4: 


HLT 




.-ERROR! INlORRECT CCS AS 


SHOWN ABOVE 


7418 


014022 


105725 




TST8 


(R5)* 


;(R0)=100400.CC=0100 




7419 


014024 


103401 




BCS 


TST82 







0H0P6 


OOUOl 




BEQ 


.♦4 




0K030 


104000 


TST82: 


HLT 








i AC 




T C TO 

TSTo 


KHci ♦ 


; (R0)=1 00400, CC=1 000 


A1 / AT/ 


001401 




BEQ 


TST82A 


A1 / A7^ 


i AA/ AI 




BMI 


.♦4 




014040 


104000 


TST82A: 


HLT 






A1 / Ay *> 


AAAO^ 1 




SEC 






(Si I CM 1 






CI iao 




;(R0) =000201. CC=1 000 


Ai / Ay ^ 
U ISO**© 


1 A2/ A1 




ft c c 

BCS 


ci lAn/ 

SUABh 






1 AAy A1 




OM T 

Bnl 


. +4 




AI / ACO 


1 A/ AAA 


SWAB4 : 


111 T 

HLT 






0K05A 


000277 




sec 






V/ 1 Hv JO 


ins??*; 






\A ♦ 


• ^Drt^ — nnAAni — rnriA/ iroAi T rr— aaaa 


OU060 


103003 




see 


INC82 


0U062 


102402 




BVS 


INC82 




0H064 


001401 




BEQ 


INC82 




0K066 


100001 




BPL 


.+4 




0K070 


104000 


1NC82: 


HLT 







M 6 

CEQKC-E POP 11/70 CPU EXERCISER HACVll 30A(1052) 12H«VW-80 11:30 PAGE 47-5? 

CfQKCE.PH 12-mR-80 11:27 T10 CHECK UNIARr BYTE OPS USING ADDRESS MODES 2 fc 4 

7420 
7A21 
7422 
742 3 
7424 
742S 
7426 
7427 
7428 
7429 
7430 
7A31 
7452 
7453 
7454 
7435 
7436 
7437 
7438 
7439 
7440 
7441 
7442 
7443 
7444 
7445 
7446 
744 7 
7448 
7449 
■ 7450 
7451 
(3) 
(3) 
(2) 
(2) 
(2> 
(2) 
74 52 
7453 
7454 
74 5 5 
74 56 
7457 
7458 
74 59 
7460 
7461 
7462 
7463 
7464 
7465 
7466 
7467 
7468 
7469 



5fO 0077 



014072 
014076 
014100 
014102 
014104 
014106 



0^22227 000601 

001401 

104000 

020205 

001401 

104000 



CMP 
BEQ 
HLT 
CMP 
BEQ 
HLT 



(R2) + ,#00060*' 
.♦4 

R2.R5 
.♦4 



; CHECK END RESULT 
.•CHECK REGISTERS 



*************************************************************** 

:*TEST 11 CHECK IMIARY WORD OPS USING ADDRESS MOOES 3 & 5 

; ; *************************************************************** 



014110 
014112 
014120 
014126 
014130 
014132 
014134 
014136 
014142 
014144 
014146 
014150 
014152 

014154 
014156 
014160 
014162 

014164 
014166 



000004 
112737 
013737 
000402 
000000 
000000 
010703 
162703 
005013 
010300 
005743 
010013 
010304 

000257 
005733 
001401 
104000 

000261 
006053 



000011 
001252 



000004 



001252 
177570 



TSTIIi 



SCOPE 
M0V8 
MOV 
BR 

.WORD 
.WORD 
MOV 

sue 

CLR 
MOV 
TST 
MOV 
MOV 

CCC 
TST 
BEQ 
HLT 

SEC 
ROR 



iTII.arSTSTNM 
anTSTNM.aVDISPLAY 



.+6 
0 
0 

PC,R3 

/r4,R3 

(R3) 

R3.R0 

-(R3) 

R0,<R3) 

R3.R4 



a(R3)+ 
.+4 



;L0AD TEST NUMBER 
; .DISPLAY TEST NUMBER 



RESERVE 2 WORDS 
1 FOR THE ADDRESS 
AND 1 FOR DATA 



.•PRESET DATA 

;R0 POINTS TO DATA WORD 



;(R0)=000000.CC=0100 



d-(R3) 



.•(R0)=100000.CC=1010 



CEQKC-E POP 
CEQKCE.P11 



11/70 CPU EXERCISER 
12-WR-80 11:27 



N 6 

MACY11 30A(1052J 12-«Afi-80 11:30 PAGE 47-53 

Til CHECK UNIARY WORD OPS USING ADDRESS MODES 3 & 



SEQ 0078 



f**r{j 


A1 y i 7A 

01*1 1 /U 


1 nizm 
IU3hO^ 




fire 




7/. 71 
f'tf 1 


m / 175 






Di/r 


onoc 
nllKS 


7/. 70 
IHI C 


ni / 1 7L 


1 (W rtl 




DM T 




7L7X 


HI A 1 7A 


IUhUW 


DnoC ■ 

KUKj . 


Ul T 
ML 1 




7L7L 












7L 7^ 


ni z.5<vi 


rwv^5Q7 
WUeJf 




r rr 
L L I. 




7A7A 


UIhcUc 






ACD 


9\t\m ▼ 


7L77 




1 no(V>i 




Qi/r 
ovl. 






ni A?AA 


inrt/.ni 

lUUHU 1 






• ♦H 


7L70 




IUhUUU 


njn J • 


Ul T 




7z.ftr> 












7£fl1 
f '*0 1 


ni A51 ? 


vUUe jU 




ri Ki 




7L9iO 

I HOC 


ni A?i A 


VA>Ojjj 




ACI 






ni A vi A 


IUjWc 




orf 


ACI X 
noL J 


7 LSI. 




1 UcHU 1 




□ V J 


ACI X 
AOL J 


7^ft^ 


ni A535 






PMI 


• *H 


7LtUs. 

1 <*oo 




in^nnn 




Ul T 
ML 1 




7LH7 
f HOi 












7LM. 


01^3PA 


n<Y1577 
\HAJcr 1 




err 






U l*»c jv 


UUjjjh 






■— \ nH / 


7LQ(\ 


U 1 He jc 








nPfS 


7^01 


U 1 He 


in?nn? 




pv/r 


npf^ 




V 1 Hc.^O 


\rj \ Hv 1 






UC L J 




U 1 HcHU 


1 VAAA/ 1 






• '^H 


7^0^ 




1 vHVAA/ 


l/C L J • 


Ul T 
HL 1 




7^0S 












7L<)f\ 


U 1 HcHH 


WJH J J 








f H~f 


\J 1 HcHO 


1 V JVA/c 




Off 


MlC O J 


7LQH 

f H70 


V 1 Hc^w 


1 VCHv I 






NPf;^ 

niCwJ 


7CQQ 
f •tinF 


U 1 He 


1 VA/HV 1 






• ^H 




UIHcJH 


1 l/HVAA/ 


liCU J • 


Ul T 
HL 1 




7sm 












f JvC 


V 1 He JO 


lAA/COC 




^PV 
V 






V 1 HcOV 


\PJJ 1 JH 












in^nni 

1 U JVA/ 1 




OLv 




7sns 


V 1 HCOH 


lopnoi 

lUcW 1 




OVL 


• '^H 


7snA 

r ^UQ 


V IHcOO 


1 vH WV 




Ul T 
HL 1 




7S07 














V 1 Her V 


UvJC J J 










u 1 He f c 


inborn 




Off 
DLL 






J IHC' H 


inonni 




t3r L 




7S1 1 


V/lHCf O 


1 WHIAA^ 




Ul T 
ML 1 




' J It 












7S1 ^ 


U IH j\A/ 


W J J JH 




Aftf 
L 


Cr^ vHH / 


7'i^C 

f J IH 


V IH JVC 


in^np 

1 wjHUe 




Pf C 
OLO 


Anf •» 
MUL J 


7S1 S 


01/ vu 


1 UeVA/ 1 




RUf 
OVL 


Ml/L J 


7^1^ 

r J 1 u 


U 1 H jUD 


1 WHv 1 




RMT 


. ♦H 


7«;i 7 


U 1 H J 1 U 


1 wHVAAy 




Ul T 
nL i 




7518 












7519 


014312 


000257 




CCC 




7520 


014314 


006134 




ROL 


a(R4)* 


7521 


014316 


103002 




8CC 


R0L3 


7522 


014320 


102001 




BVC 


R0L3 


7523 


014322 


001401 




BEO 


.♦4 


7524 


014324 


104000 


R0L3: 


HLT 





;(R0)=140000,CC=1010 



;(R0)=100000,CC=1001 



;(R0)=077777, CC=0010 



;(R0)=100001, CC=1001 



;(R0) =077776, CC=0001 



;(R0)=077777, CC=0001 



;(R0) =100000, CC=1010 



;CR0)=00OO0O.CC=0111 



7525 



B 7 

CEQKC-€ POP 11/70 CPU EXERCISER HACrll 30A(1052) 12-fWR-80 11.30 PAGE ^7-5<. 

CEOKCE.PII 12-mR-80 11:27 Til CHECK UNIAftV WORD OPS USING ADDRESS MODES 3 1^ 



SEQ 0079 



7526 
7527 
^'528 
7529 
7530 
7531 
(3) 
(3) 
(2) 
(2) 
(2) 
(2) 
7532 
7533 
753^ 
7535 
7536 
7537 
7538 
7539 
7540 
7541 
7542 
754 3 
7544 
7545 
7546 
7547 
7548 
7549 
7550 
7551 
7552 
7553 
7554 
7555 
7556 
7557 
7558 
7559 
7560 
7561 
7562 
7563 
7564 
7565 
7566 
7567 
7568 
7569 
7570 
7571 
7572 
7573 
7574 
7575 



0'4326 005253 INC a-(R3) 

014330 005654 SSr d-(R4) 

014332 103401 BCS S8C5 

014334 001401 BEQ ,♦4 

014336 104000 S8C5: HLT 



;(R0) -000001. CC 0001 
;(R0)-0OO000. CC-0100 



•TEST 12 CHECK UNIARY BYTE OPS USING ADDRESS MODES 3 I 5 



014340 000004 TST12: 

014342 112737 000012 001252 

014350 013737 001252 177570 

014356 000403 

014360 000000 

014562 000000 

014364 000000 

014366 010702 

014370 005742 

014372 005742 

014374 010200 

014376 005010 

014400 005742 

014402 005742 

014404 010022 

014406 005200 

014410 010022 

014412 010200 

014414 010205 

014416 105152 

014420 103001 

014422 100401 

014424 104000 Ca«5: 

014426 105752 

014430 001401 

014432 104000 

014434 000262 

014436 106255 

014440 103002 

014442 102401 

014444 100401 

014446 104000 ASR85: 

014450 105232 

014452 103001 

014454 100001 

014456 104000 INC83: 

014460 000241 

014462 106055 

014464 103003 

014466 102002 

014470 001001 

014472 100001 

014474 104000 R0RB5: 

014476 106332 



SCOPE 

novB 

MOV 
BR 

.WORD 

.WORD 

.WORD 

MOV 

TST 

TST 

MOV 

CLR 

TST 

TST 

MOV 

INC 

MOV 

MOV 

MOV 

conB 

BCC 

BMI 

HLT 

TSTB 

BEQ 

HLT 

SEV 

ASRB 

BCC 

BVS 

BMI 

HLT 

INCB 
BCC 
BPL 
HLT 

CLC 

R0R8 

BCC 

BVC 

BNE 

BPL 

HLT 



a«r$TSTNM,a*OISPLAY 



,+10 
0 
0 
0 

PC.R2 

-(R2) 

-(R2) 

R2.R0 

(RO) 

-(R2) 

-(R2) 

R0,(R2)+ 

RO 

R0.<R2)+ 
R2.R0 
R2.R5 
a-(R2) 

corns 

.*4 

d-(R2) 
.*4 



a-(R5) 
ASR85 
ASRB5 
.*4 



a(R2)* 

INCB3 

.♦4 



a-(R5) 

R0ft85 

R0RB5 

R0R85 

.*4 



.LOAD TEST NLfBER 
DISPLAY TEST NUfBER 



RESERVE i WORDS 
1 FOR EVEN BYTE ADDRESS 
1 FOR ODD BYTE ADDRESS 
AND 1 FOR DATA 

BACK R2 UP TO 
DATA WORD 

RO POINTS TO THE DATA WORD 

PRESET DATA 

BACK R2 UP TO 

EVEN BYTE ADDRESS WORD 

LOAD ADDRESS 

ODD BYTE ADDRESS 

LOAD ODD BYTE ADDRESS 

RESET RO 

(R0)=177400,CC=1001 



(R0)=177400. CC=0100 



(R0)=1 77400. CC=1001 



(R0)=1 77401. CC=000 



;(R0)= 177400. CC=0111 



ASL8 S(R2)* 



;(R0)=1 77000. CC=1001 



CEQKC-€ POP 11/70 CPU EXERCISER NACVll 
CEOtCCE.PlI 12-*lAR-80 11:27 



7576 
7577 
7578 
7579 
7580 
7581 
7582 
7583 
7584 
7585 
7586 
7587 
7588 
7589 
7590 
7591 
7592 
7593 
7594 
7595 
7596 
7597 
7598 
7599 
7600 
7601 
7602 
7603 
7604 
7605 
7606 
7607 
7608 
(3) 
(3) 
(2) 
(2) 
(2) 
(2) 
7609 
7610 
7611 
7612 
7613 
7614 
7615 
7616 
7617 
7618 
7619 
7620 
7621 
7622 
7623 
7624 
7625 



C 7 

30A(1052) 12-mR-80 11:30 PAGE 47-55 
n2 CHECK UNIARV BYTE OPS USING ADDRESS MODES 3 I 



SEO 0080 



014500 


103002 








BCC 


ASLB3 




014502 


102401 








6VS 


ASLB3 




















014506 


104000 






ASLB3: 


HLT 






014510 


105552 








ADC8 


i-(R2) 


;(R0) =177400, CC=1000 


014512 


103401 








BCS 


ADCB5 


014514 


100401 








Bni 


.♦4 




014516 


104000 






ADC85: 


HLT 






014520 


000277 








sec 






014522 


106135 








R0L8 


a(R5)« 


;(R0) =177401. CC=0000 


0''4524 


101402 








BIOS 


R0L83 


.•BRANCH IF C OR Z IS SET 


014526 


1 02401 










ROI R3 


014530 


100001 








8PL 


.♦4 




014532 


104000 






R0L83: 


HLT 






014534 


000352 








SUAB 


a-(R2) 


;(R0) =000777. CC=1000 


014536 


100401 








BMI 


.♦4 


014540 


104000 








HLT 






014542 


000261 








SEC 






014544 


105635 








secB 


a(R5)* 


;{R0)=00O377. CC=0100 


014546 


103401 








BCS 


S8C83 


014550 


001401 








BEO 


.♦4 




014552 


104000 






S8CB3: 


HLT 






014554 


105432 








NEGB 


a(R2)* 


;{R0) =000001 




10S3S? 

1 \JJJJC 








DECB 


a-(R2) 


» ;(RO)=000000, CC=0101 


0U560 


103001 








BCC 


DEC85 




0U562 


001401 








BEO 


.♦4 




014564 


104000 






DEC85: 


HLT 














.♦TEST 


13 


CHECK UNIARY 


WORD OPS USING ADDRESS MODE 6 (PC) 










; ; *************************************************************** 


014566 


000004 






TST13: 


SCOPE 






014570 


112737 


000013 


001252 




M0V8 


/ri3.a«TST^#i 


.•LOAD TEST NlfBER 


014576 


013737 


001252 


177570 




MOV 


a»$TSTf#1.*r01 SPLAY ; .-DISPLAY TEST NUWER 


014604 


005027 








CLR 


(PC)* 


.-PRESET DATA = 0 


014606 


000000 






UUn6: 


.WORD 


0 


.-RESERVED FOR DATA 


014610 


010700 








MOV 


PC,RO 


014612 


024040 








CMP 


-(RO).-(RO) 


;R0 POINTS TO DATA WORD 


014614 


000277 








sec 




014616 


006167 


177764 






ROL 


umb 


;(R0) =000001. CC=0000 


014622 


103403 








BCS 


R0L6 




014624 


102402 








BVS 


R0L6 




014626 


001401 








BEO 


ROL 6 




014630 


100001 








BPL 


.♦4 




014632 


104000 






R0L6; 


HLT 






014634 


005167 


1 77746 






COM 


UUM6 


;(R0) =177776. CC=1001 


014640 


103002 








BCC 


C0M6 


014642 


102401 








BVS 


C0M6 




014644 


100401 








BMI 


.>4 




014646 


104000 






C0M6: 


HLT 







D 7 

CEOKC-E POP 11/70 CPiJ EXERCISER MACYll 30A(1052) 12-«AR-80 11:30 PAGE ^7-56 

CEQKCE.PH 12-W-80 11:27 T13 CHECK UNIAftr WORD OPS USIMG ADDRESS MODE 6 (PC) 

;(R0)=177777. CC=1010 



SCO 0081 



7626 


014650 


006267 


177752 




ASR 


lAJn6 


7627 


014654 


105402 






BCS 


ASR6 


7628 


014656 


102001 






BVC 


ASR6 


7629 


014660 


100401 






BMI 


.♦4 


7630 


014662 


104000 




ASR6: 


HLT 




7631 














7632 


014664 


000277 






sec 




7633 


014666 


005467 


177714 




NEC 


LW16 


7634 


014672 


105003 






BCC 


NEG6 


7635 


014674 


102402 






BVS 


NEG6 


7636 


014676 


001401 






BEO 


NEG6 


7637 


014700 


100001 






BPL 


.♦^4 


7658 


014702 


104000 




NEG6: 


HLT 




7639 














7640 


014704 


000277 






sec 




7641 


014706 


006067 


1 77674 




ROR 


LM16 


7642 


014712 


103003 






BCC 


R0R6 


7643 


014714 


102402 






BVS 


R0R6 


7644 


014716 


001401 






BEO 


R0fi6 


7645 


014720 


100401 






BMI 


.+4 


7646 


014722 


104000 




R0R6: 


HLT 




7647 














7648 


014724 


005667 


1 77656 




S8C 


uun6 


7649 


014750 


105402 






BCS 


SBC6 


7650 


014732 


102001 






BVC 


S8C6 


7651 


014734 


100001 






BPL 


.+4 


7652 


014736 


104000 




SeC6: 


HLT 




7653 














7654 


014740 


000242 






CLV 




7655 


014742 


005267 


177640 




INC 


Utf16 


7656 


014746 


103403 






BCS 


INC6 


7657 


014750 


102002 






BVC 


INC6 


7658 


014752 


001401 






BEQ 


INC6 


7659 


014754 


100401 






BMI 


.♦4 


7660 


014756 


104000 




INC6: 


HLT 




7661 














766? 


014760 


006267 


1 77622 




ASR 


IV16 


7663 


014764 


000261 






SEC 




7664 


014766 


006367 


177614 




ASL 


IA#16 


7665 


014772 


103002 






BCC 


ASL6 


7666 


014774 


102401 






BVS 


ASL6 


7667 


014776 


100401 






BMI 


.♦4 


7668 


015000 


104000 




ASL6: 


HLT 




7669 
7670 


015002 


005367 


177600 




DEC 


IA#16 


7671 


015006 


103002 






BCC 


DEC6 


7672 


015010 


102001 






BVC 


DEC6 


7673 


015012 


100001 






BPL 


.♦4 


7674 


0150H 


104000 




DEC6: 


HLT 




7675 














7676 


015016 


005567 


177564 




ADC 


UVW6 


76 77 


015022 


103402 






BCS 


ADC6 


7678 


015024 


102001 






BVC 


ADC6 


7679 


f^l5026 


100401 






mi 


.+4 


7680 


015030 


104000 




ADC6: 


HLT 




7681 


015052 


00024? 






CLV 





;(R0) -000001. CC=0001 



;(R0) -100000, CC=1001 



;(R0) =077777. CC=0010 



;(R0)=100000. CC=1011 



;(RO)=140000. CC=1010 
;(R0)=100000. CC=1001 



;(R0) =077777. CC=0011 



;(R0)=100000. CC=1010 



'EQK-C-i POP 11/70 CPU ExERCi:fR «ACr11 30A(105?) 12H 

CfUKCE.PII 1?-«AR-80 11:27 113 CHECK 

7682 015054 000367 177546 SUAB 

^683 015040 100401 Bhl 

7684 015042 104000 HLT 

7685 015044 022710 000200 CMP 

7686 015050 001401 BEO 

7687 015052 104000 HLT 

;'688 

(5) ;«TEST 14 

(5) 

(2) 

(2) 015054 000004 TSTK: SCOPE 

'2) 015056 112737 000014 001252 M0V8 

(?) 015064 013737 001252 177570 MOV 

7689 015072 012700 015434 MOV 

7690 015076 063700 001604 ADD 

7691 015102 005067 000326 CLR 

7692 015106 000277 SCC 

7693 015110 000244 CLZ 

7694 015112 105767 000316 TST8 

7695 015116 103403 BCS 

7696 015120 102402 BVS 

7697 015122 001001 BNE 

7698 015124 100001 BPL 

7699 015126 104000 TST86: HLT 
7700 

7701 015130 000257 CCC 

7702 015132 105767 000277 TST8 

7703 015136 001401 BEQ 

7704 015140 104000 HLT 
77C5 

7706 015142 105667 000266 S8C8 

7707 015146 103402 BCS 

7708 015150 102401 BVS 

7709 015152 001401 BEQ 

7710 015154 104000 S8C86; HLT 
7711 

7712 015156 000261 1$: SEC 

7713 015160 105267 000250 INC8 

7714 015164 100403 8MI 

7715 015166 105567 000243 ADCB 

7716 015172 000771 BR 

7717 015174 103001 2$: SCC 

7718 015176 102401 BVS 

7719 015200 104000 INC86: HLT 
7720 

7721 015202 106367 000226 ASLB 

7722 015206 103003 BCC 

7723 015210 102002 BVC 

7724 015212 001001 BNE 

7725 015214 100001 BPL 

7726 015216 104000 ASL86: HLT 
7727 

7728 015220 000242 CLV 

7729 015222 105567 000207 ADCB 

7730 015226 103402 BCS 

7731 015230 102001 BVC 



E 7 

IAR-80 11:30 PAGE 47-57 

IMIARY WORD OPS USING ADDRESS MODE 6 (PC) 

.♦4 

#200. (RO) 
.♦4 



CHECK UNIARY BYTE OPS (EVEN/ODD) USING ADDRESS MODE 6 (PO 



#14,»rSTSTNM .-LOAD TEST NUMBER 

a#STSTNM.a*DI SPLAY ; ."DISPLAY TEST Nl/WER 

atfACTOR.RO ;R0 POINTS TO ADDRESS OF DATA 
a3M6 .CLEAR DATA 



uaM6 

TST86 
TST86 
TST86 
.♦4 



IBM6*1 .TEST ODD BYTE 

.♦4 



IJ9M6 ;(R0) =000000. CC=0100 

SBC86 

sec86 

.♦4 



a3M6 
2S 

U8«6*l 
1$ 

INCS6 
.♦4 



.LOOP UNTIL (R0)=077600. CC=1011 

;INCB INST INCREMENTS EVEN BYTE 
.-ADCB INCREMENTS ODD BYTE 



UBM6 

ASLB6 

ASL86 

ASL86 

.♦4 



;(R0)=077400. CC=Om 



U8M6+1 

ADC86 

ADCB6 



;(R0)=100000. CC=1010 



F 7 

CtOKC-E POP 11/70 CPU EXEftCISfR HACYll 3OA(1052) 12-fW-80 11:50 PAGE 47-58 

CEQKCE.PII 12-W-80 11:2? TU CHECK If^JARY BYTE OPS (EVEN/CDD) USINC ADDRESS MODE 6 (PC) 



SEO 0083 



7732 

7733 

773A 

7/5S 

7736 

7737 

7738 

7739 

77A0 

7741 

7742 

7743 

7744 

7745 

7746 

7747 

7748 

7749 

7750 

7751 

7752 

7753 

7754 

7755 

7756 

7757 

7758 

7759 

77o0 

7761 

7762 

7763 

7764 

7765 

7766 

7767 

7768 

7769 

7770 

7771 

7772 

7771 

777U 

7775 

7776 

7777 

777Z 

7779 

7780 

7781 

7782 

7783 

7784 

7785 

7786 

7787 



015232 
015234 

015236 
015240 
015244 
015246 
015250 
015252 

015254 
015260 
015262 
015264 
015266 

015270 
015272 
015276 
015300 
015302 
015304 

015306 
015312 
015314 
015316 
015320 

015322 
015326 
015330 
015332 
015334 

015336 
015342 
015344 
015346 
015350 

015352 
015356 
015360 
015362 
015364 
015366 

015370 
015374 
015376 
015400 

015402 
015406 
01*i410 



100401 
104000 

000261 
106067 
103402 
102001 
100401 
104000 

105167 
103002 
102401 
100401 
104000 

000262 
105467 
103002 
102401 
100001 
104000 

106167 
103402 
102001 
100401 
104000 

106267 
103002 
102401 
100401 
104000 

105267 
103002 
102401 
001401 
104000 

105367 
103003 
102402 
001401 
100401 
104000 

000367 
103401 
100401 
104000 

106167 
103002 
102001 



ADCB6: 



000171 



000154 



R0RB6: 



C0MB6: 



000137 



000123 



000106 



000072 



000057 



NE0B6: 



R0L86: 



ASR86: 



INCB6A: 



000040 



000026 



DEC86A: 



SUA86: 



eni 

HLT 

SEC 

R0R8 

BCS 

BVC 

BMI 

HLT 

COMB 

BCC 

BVS 

BMI 

HLT 

SEV 

NEGB 

BCC 

BVS 

BPL 

HLT 

ROLB 
BCS 
BVC 
BMI 

HLT 

ASRB 

BCC 

BVS 

BMJ 

HLT 

INCB 

BCC 

BVS 

BEG 

HLT 

DECS 

BCC 

BVS 

BEC 

BMI 

HLT 

SUAB 

BCS 

BMI 

HLT 

ROLB 

BCC 

BVC 



,♦4 



U8M6*1 
R0RB6 
R0RB6 
.♦4 



LBM6 
C0M86 
C0(i36 
.♦4 



J3ri6»i 

NEGe6 
NEGB6 
.♦4 



Lfi«6*1 
R0L86 
R0L86 
.♦4 



a3M6 
ASRe6 
ASRB6 
.♦4 



LeM6 
INC86A 
INC86A 
.♦4 



UBW6+1 
DEC86A 
DEC86A 
DECB6A 
.♦4 



UBn6 

SUA86 

.♦4 



UBn6 

R0L86A 
R0L86A 



;(R0)=140OO0. CC=1010 



;(R0)=140377 CC=1001 



(RO) =040377. CC=0001 



;(R0)=100777. CC=1010 



;<R0;=100777. CC=1001 



;(R0)=100400. CC=0101 



;(R0)=100000. CC=1001 



;(R0) =000200. CC=1000 



; (R0> =000000. CC=0111 



CEOKC-E POP 
CEQKCE.PII 



11/70 CPU EXERCISER 
12-nAR-80 11:27 



6 7 

I1ACY11 30A(1052) 12-mR-80 11:30 PAGE 47-59 

TU CHECK UNIARV BYTE OPS (EVEN/ODD) USING ADDRESS MODE 6 (PC) 



SfQ 008^ 



7788 

7789 

7790 

7791 

7792 

7793 

7794 

7795 

7796 

7797 

7798 

7799 

(1 

(' 

(1 

(1 

(1 

(1 
7800 

(3 

(3 

(2 

(2 

(2 

(2 

(2 
780 

( 

( 



015412 
015414 

015416 
015422 
01 5424 
015426 
015430 

015432 
015434 
015436 
01 5440 
015442 
015446 
015452 



001401 
104000 

005767 000012 

103402 

102401 

001401 

104000 

000401 
000000 
000004 
010702 

062702 000012 
012707 044042 
000000 



R0L86A: 



TEST6: 



uen6: 

RELEl 



REL11 



BEQ 
HLT 

TST 
BCS 
BVS 
BEQ 
HLT 

BR 

.WORD 
SCOPE 
MOV 
ADD 
MOV 
.WORD 



.♦4 



U8M6 
TEST6 
TEST6 
.♦4 



♦4 



PC.R2 

*12.R2 

#RELOC.PC 

0 



;(R0) =000000. CCfOlOO 



.•RESERVE A WORD 

.-WORD RESERVED FOR DATA 



;G0 RELOCATE PROGRAM CODE 



;1111111111111 LAST ADDRESS OF CODE TO BE RELOCATED 11111111111 



•TEST 15 



CHECK UNIARV WORD OPS USING ADDRESS MODE 7 



015454 
015462 
015464 
015472 



012767 
000004 
112737 
013737 



000001 

000015 
001252 



163714 MOV 

TST15: SCOPE 

001252 M0V8 

177570 MOV 



«1,STIMES 



;;D0 1 ITERATION 



#15.a#$TSTNM 
*r$TST>*1.a#0I SPLAY 



.-LOAD TEST NlfBER 

; .-DISPLAY TEST NUMBER 



(1) 


015500 


010700 






REL2: 


MOV 


PCRO 


; 


(1) 


015502 


005740 








TST 


-(RO) 


;l 


(1) 


015504 


010037 


001610 






MOV 


RO.aiTFRSTAD 


, 


(1) 


015510 


010700 








MOV 


PC.RO 


; 


(1) 


015512 


162700 


015512 






SUB 


f..RO 


• 


(1 ) 


015516 


010037 


001604 






MOV 


RO.ftTFACTOR 




(1) 


015522 


010737 


001262 






MOV 


PC.anLPERR 




(1) 


015526 


062737 


000030 


001262 




ADD 


#30.anLPERR 




(1 ) 


015534 


013737 


001262 


001260 




MOV 


ifSLPERR.aniPADR 


(1 ) 


015542 


105737 


001600 






TST8 


a«NEXEC 


;( 


( 1 ) 


015546 


001402 








BEQ 


,>6 




(1) 


015550 


000167 


004170 






JMP 


RELE2 




7802 


015554 


000403 








BR 


UW7 


; 


7803 


015556 


000000 








.WORD 


0 


; 


7804 


015560 


000000 






UUM7: 


.WORD 


0 


; 


7805 


015562 


000000 








.WORD 


0 


; 


7806 


















7807 


015564 


010700 






UW7: 


MOV 


PC.RO 




7808 


015566 


005740 








TST 


-(RO) 




7809 


015570 


005740 








TST 


-(RO) 




7810 


015572 


005040 








CLR 


-(RO) 


• 


7811 


015574 


010002 








MOV 


R0.R2 




7812 


015576 


010240 








MOV 


R2.-(R0) 




7813 


015600 


005720 








TST 


(RO)* 


; 


7814 


015602 


005720 








TST 


(RO)* 




7815 


015604 


010210 








MOV 


R2.(R0) 


• 


7816 


015606 


010200 








MOV 


R2.R0 





.SBTTL START OF SECTION 2 
: 2222222222222 FIRST ADDRESS TO BE RELOCATED 222222222 

GET PC 

RO CONTAINS THE ADDRESS OF REL2 
SAVE 

GET CURRENT PC 
SUBTRACT RELOCATION FACTOR 
SAVE RELOCATION FACTOR 
SET LOOP ADDRESS 
ADJUST 

t 

BR IF TEST CODE TO BE EXECUTED 



RESERVE 3 WORDS FOR ADDRESSES & DATA 
CONTAINS ADDRESS OF mdM7 
CONTAINS DATA 
CONTAINS ADDRESS OF UUi7 



CLEAR TEST DATA 



CEOKC-E POP n/70 CPU exe«ci:er hacvii 

CEQKCE.Pr 12-mR-80 11:27 



30A(1052) 
START OF 



12-mft-80 
SECTION 2 



11:50 



H 7 
PAGE 



47-60 



StO 0085 



7817 

7818 

7819 

7820 

7821 

7822 

7825 

7824 

7825 

7826 

7827 

7828 

7829 

7850 

7831 

7832 

7833 

7854 

7835 

7856 

7857 

7858 

7859 

7840 

7841 

7842 

7845 

7844 

7845 

7846 

7847 

7848 

7849 

7850 

7851 

7852 

7855 

7854 

7855 

7856 

7857 

7858 

7859 

7860 

7861 

7862 

7865 

7864 

7865 

7866 

7867 

7868 

7869 

7870 

7871 

787? 



015610 
015612 
01S614 
015620 
015622 

015624 
015626 
015652 
015654 
015656 
015640 

015642 
015644 
015646 
015652 
015654 
01 5656 
015660 

015662 
015664 
015670 
015672 
015674 
015676 

015700 
015702 
015706 
015710 
015712 
015714 

015716 
015720 
015722 
015726 
015750 
015752 
015734 

015736 
015740 
015744 
015746 
015750 
015752 

015754 
015756 
015762 
015764 
015766 



000277 
000244 
005772 
001401 
104000 

000277 
005672 
105002 
102401 
100401 
104000 

000277 
000241 
006572 
105OC2 
102401 
100401 
104000 

000257 
005572 
105402 
102401 
100401 
104000 

000262 
006272 
103002 
102401 
100401 
104000 

000241 
000262 
006072 
101402 
102401 
100001 
104000 

000262 
005472 
103002 
102401 
100401 
104000 

000250 
000572 
105401 
100401 
104000 



000002 



177776 



000002 



000002 



177776 



1 7777b 



000002 



1 7777b 





sec 






CLZ 






TST 


a2(2) 




BEO 


.♦4 




HLT 






sec 






sec 


a-2(2) 




BCC 


sec 7 




BVS 


sec 7 




Bfil 


.♦4 


S8C7: 


HLT 






sec 

1^ V V 






CLC 






ASL 


32(2) 




BCC 


ASL 7 




BVS 


ASL 7 




BMI 


.♦4 


ASL7: 


HLT 






CCC 






DEC 


a2(2) 




BCS 


DEC7 




BVS 


DEC7 




BMI 


.♦4 


DEC7: 


HLT 






SEV 






ASR 


a-2(2) 




BCC 


ASR7 




BVS 


ASR7 




BMI 


.♦4 


ASR7: 


HLT 






CLC 






SEV 






ROR 


a-2(2) 




BLOS 


ROR 7 




BVS 


R0R7 




BPL 


.♦4 


R0R7: 


HLT 






SEV 






NEC 


S2(2) 




BCC 


NEG7 




BVS 


NEG7 




BMI 


.♦4 


NEG7: 


1 II T 

HLT 






CLN 






SUAB 


a-2(2) 




BCS 


SWA87 




BMI 


.♦4 


SWAB7: 


HLT 





;(R0) =000000. CC=0100 



;(R0)=1 77777. CC=1001 



;(R0)=1 77776. CC=1001 



;(R0)=1 77775. CC-1000 



;(R0)=177776. CC=1001 



;(R0) =077777. CC=0000 
.•BRANCH IF C OR Z IS SET 



;(R0)= 100001. CC=1001 



;(R0) =000600. CC=1000 



CEQKC-E POP 11/70 CPU EXERCISER MACVll 30A(1052) 12-«AR-80 
CfOKCE.PII 12-mR-80 11:27 START OF SECTION 2 



I 7 

11:30 PAGE 47-61 



SEO 0086 



7873 


015770 


000262 






7874 


015772 


005172 


000002 




7875 


015776 


103002 






7876 


016000 


102401 






7877 


016002 


100401 






7878 


016004 


104000 






7879 










7880 


016006 


000372 


000002 




7881 


016012 


100401 






7882 


016014 


104000 






7883 










7884 


016016 


000277 






7885 


016020 


005572 


177776 




7886 


016024 


103402 






7887 


016026 


102401 






7888 


016030 


100001 






7889 


016032 


104000 






7890 










7891 


016034 


005272 


000002 




7892 


016040 


102001 






7893 


016042 


100401 






7894 


016044 


104000 






7895 










7896 


016046 


000257 






7897 


016050 


006172 


177776 




7898 


016054 


103002 






7899 


016056 


102001 






7900 


016060 


001401 






7901 


016062 


104000 






7902 










(3) 










(3) 










(2) 










(2) 


016064 


000004 






(2) 


016066 


112737 


000016 


001252 


(2) 


016074 


013737 


001252 


177570 


7903 


016102 


012700 


015560 




7904 


016106 


063700 


001604 




7905 


016112 


010002 






7906 


016114 


010067 


177442 




7907 


016120 


005720 






7908 


016122 


005210 






7909 


016124 


005740 






7910 


016126 


005010 






7911 


016130 


010067 


177422 




7912 










7913 










7914 


016134 


000263 






7915 


016136 


105672 


000002 




7916 


016142 


103003 






7917 


016144 


102402 






7918 


016146 


001401 






7919 


016150 


100401 






7920 


016152 


104000 






7921 










7922 


016154 


000277 







C0M7: 



ADC 7: 



INC7: 



SEV 




COM 


a2(2) 


8CC 


C0M7 


OV J 


rnM7 


BMI 


.♦4 


HLT 




SUAB 


a2C2) 


BMI 


.*4 


HLT 




sec 




ADC 


a-2(2) 


BCS 


ADC 7 


BVS 


ADC7 


DDI 




HLT 




INC 


52(2) 


eve 


INC7 


BMI 


.♦4 


HLT 




ccc 




ROL 


a-2(2) 


see 


ROL 7 


BVC 


ROL 7 


BEO 


.♦4 


HLT 





;(R0)=177177. CC=1001 



;(R0) =077776. CC=1000 



m)=m777. cc=oooo 



(R0)=100000. CC=1010 



;(R0) =000000, CC-0111 



R0L7: 

;'*TEST 16 CHECK UNIARY BYTE OPS USING ADDRESS MODE 7 

• • A***************** *********** 



TST16: SCOPE 

MOVE #16,anTSTNM 

MOV am STNM,arDI SPLAY 

MOV *UUM7,R0 

ADD arFACTOR.RO 

MOV R0.R2 

MOV R0,IWM7*2 

TST (RO)* 

INC (RO) 

TST -(RO) 

CLR (RO) 

MOV R0,UWM7-2 



.LOAD TEST NUMBER 

; .-DISPLAY TEST NUMBER 



WORD FOLLOWING UWM7 CONTAINS ADDRESS 
OF ODD BYTE. RO POINTS TO DATA WORD 
PRESET DATA 



.NOTE: 92(2) REFERENCES THE ODD BYTE. AND 9-2(2) REFERENCES THE EVEN BYTE. 

+SEC.SEV 



S8C87: 



S8C8 

BCC 

BVS 

BEO 

BMI 

HLT 

see 



92(2) 
S8C87 
S8CB7 
S8C87 
.♦4 



;SET C AND V 
;(R0) =177400. CC=1001 



;SET CONDITION CODES 



J 7 

CEOKC-E POP 11/70 CPU EXERCISER MACVll 30A(1052) 12-mR-80 11:30 PAGE 

CEQKCE.P11 12-^UR-80 11:27 T16 CHECK LNIARY BYTE OPS USING ADDRESS MODE 7 



SEO 0087 



7923 

7924 

7925 

7926 

7927 

7928 

7929 

7930 

7931 

7932 

7933 

7934 

7935 

7936 

7937 

7938 

7939 

7940 

7941 

7942 

7943 

7944 

7945 

7946 

7947 

7948 

7949 

7950 

7951 

7952 

7953 

7954 

7955 

7956 

7957 

7958 

7959 

7960 

7961 

7962 

7963 

7964 

7965 

7966 

7967 

7968 

7969 

7970 

7971 

7972 

7973 

7974 

7975 

7976 

7977 

7978 



016156 
016162 
016164 
016166 
016170 
016172 

016174 
016200 
01 6202 
016204 
016206 

016210 
016212 
016216 
016220 
016222 
016224 

016226 
016232 
016234 
016236 
016240 

016242 
016246 
016250 
016252 
016254 

016256 
016262 
016264 
016266 
016270 

016272 
016274 
016300 
016302 
016304 
016306 

016310 
016314 
016316 
016320 
016322 

016324 
016326 
016332 
016334 
016336 



105572 
105403 
102402 
001401 
100001 
104000 

105172 
103002 
102401 
100401 
104000 

000241 
106072 
103002 
102001 
100001 
104000 

105272 
103002 
102001 
100401 
104000 

105372 
103002 
102401 
100401 
104000 

106372 
103002 
102001 
001401 
104000 

000241 
106272 
103002 
102401 
100401 
104000 

105472 
103402 
102401 
001401 
104000 

000262 
106172 
103002 
102401 
100401 



177776 



1 77776 



ADC87: 



C0MB7: 



000002 



000002 



y7777b 



000002 



R0R87: 



INC87: 



DEC87: 



ASL87: 



1 7777h 



000002 



ASR87: 



NEG87: 



U777t 



ADC8 


a-2(2) 


BCS 


ADC87 


BVS 


ADC87 


8EQ 


ADC87 


BPL 


.♦4 


HLr 




COMB 


5-2(2) 


BCC 


C0MB7 


BVS 


CGMB7 


nu t 

8MJ 


. +4 


1 11 T 

HLT 




CLC 




R0R8 


32(2) 


BCC 


R0R87 


BVC 


R0R87 


BPL 


.♦4 


HLT 




iNCo 




BCC 


INCB^ 


BVC 


JNCBr 


oni 


, ♦4 


HLT 




DtCo 


a o /TV 


BCC 


DcQQf 


BVS 


DEC87 


DTIi 


.♦4 


HLT 




ACID 

ASLo 




BCC 




BVC 


ASLB^ 




. ♦4 


HL 1 




CLC 




A CDO 

A!>Hd 




BCC 


A Cft07 


oV5 




Orii 


. ^4 


HLT 




Ntuo 


a^vc;) 


BC5 




BVS 


AfC/^07 

NtGBr 


ocu 


. +4 


Ul T 
ML 1 




SEV 




R0L8 


S-2(2) 


BCC 


R0L87 


BVS 


R0L87 


8MI 


.*4 



;(R0) =177401. CC=0000 



;(R0)-177776, CC=1001 



.•CLEAR CARRY 
;(R0)=077776. CC=0011 



;(R0) =100376. CC=1011 



;(R0) -100375. CC=1001 



;(R0) =000375, CC=0ni 



.•CLEAR CARRY 

;(R0) =000376, CC=1001 



;(R0) =000376. CC=0100 



;(R0) =00374. CC=1001 



CEQKC-E POP 
CEQKCE.Pn 



11/70 CPb exerc]:er 

12-+1AR-80 11:27 
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T16 CHECK UNIARY BYTE OPS USJNG ADDRESS MODE 



SEQ 0088 



7979 
7980 
7981 
7982 
7983 
7984 
7985 
7986 
7987 
(3) 
(3) 
(2) 
(2) 
(2) 
(2) 
7988 
7989 
7990 
7991 
7992 
7993 
7994 
7995 
7996 
7997 
7998 
7999 
8000 
8001 
8002 
8003 
8004 
8005 
8006 
8007 
8008 
8009 
8010 
8011 
8012 
8013 
8014 
8015 
8016 
8017 
8018 
8019 
8020 
8021 
8022 
8023 
8024 
8025 
8026 
8027 
8028 



016340 104000 



016342 
016346 
016352 
016356 
016362 
016564 



016366 
016370 
016376 
016404 
016406 
016410 
016412 
016414 
016416 

016420 
016422 
016424 
016426 
016430 
016432 
016434 

016436 
016440 
016442 
016444 
016446 

016450 
016452 
016454 
016456 
016460 
016462 
016464 
016466 

016470 
016472 
016474 
016476 
016500 
016502 
016504 



105272 
105272 
105572 
105172 
001401 
104000 



000004 
112737 
013737 
000277 
010700 
103002 
102401 
001001 
104000 

010002 
000262 
160002 
103402 
102401 
001401 
104000 

000244 
010203 
103401 
001401 
104000 

000257 
000272 
020203 
103403 
102402 
001001 
100001 
104000 

010002 
010203 
060203 
006302 
020203 
001401 
104000 



177776 
1 77776 
\7777t 

-^77776 



ft0L87: HLT 

INC8 

INC8 

ADC8 

COMB 

BEO 

HLT 



a-2(2) 
a-2(2) 
a-2(2) 
a-2(2) 

.♦4 



(fiO)=000375. CC=1001 

(R0)=000376. CC=1001 

(R0)=000377. CC=1000 

(R0)=000000. LC=0100 



•»*•****•••*••*••****•*•*********•***•••••****•******•*•***»**** 

West i7 check binary ops using address mode o 



000017 
001252 



001252 
17757C 



TST17: 



MOVO: 



SUBO: 



CMPO: 



SCOPE 

M0V8 

MOV 

sec 

MOV 
BCC 
BVS 
BNE 
HLT 



#17.a#$TSTN« 
a*$TSTNM,a#DISPLAY 

;SET 



PC.RO 
MOVO 
MOVO 
.♦4 



.-LOAD TEST NUMBER 
;; DISPLAY TEST NUMBER 
CONDITION CODES 
RO-PC, CC=X001 



MOV 


R0.R2 


;R2=R0 


SEV 




;SET V 


SUB 


R0,R2 


;R2=000000, CC=0100 


BCS 


SUBO 


BVS 


SUBO 




BEO 


.♦4 




HLT 






CLZ 






MOV 


R2.R3 


;R?=R3=000000. CC=0100 


BCS 


MOVOA 




BEO 


.♦4 




HLT 






CCC 






♦SEV 


SEN 


'SET V & N 


CMP 


R2.R3 


;R2=R3=000000. CC=0100 


BCS 


CMPO 


BVS 


CMPO 




BNE 


CMPO 




8PL 


.♦4 




HLT 






MOV 


R0,R2 


;R0=R2 


MOV 


R2,R3 


;R0=R2=R3 


ADD 


R2,R3 


;R3=2*R0 


ASL 


R2 


;R2=2*R0 


CMP 


R2,R3 


;R2=R3=2*R0 


BEQ 


.♦4 




HLT 




.-ERROR! CHECK ADD INSTRUCTION 



016506 005002 



;TH£ FOLLOWING SUBTEST SHIFTS A BIT THROUGH R2 AND R5 AND DOES A 
;8IT TEST (81 T) USING R2 AND R5. 
CLR R2 



CEOKC-E POP '.1/70 CPU EXERCISER HACYll 
CEQKCE.Pn 12-WAR-80 11:27 
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A1 ^Ci A 

0165 10 


AAC OAT 

005202 


I ML 


DO 


• D0-^ 


8030 




A/W/ AT 

00040^ 


OD 

BR 


<:» 




8051 


AT / 


AA^TA'5 

00650c 


1 C . A CI 

i»: A5L 


DO 




80 3< 


Ai ^ 

01O3lO 


i AA/ A7 

10040/ 


OM T 


»»> 




OA7T 

8035 


A^^COA 
01O3c0 


Ai A'^AC 
010^03 


d9 • nov 






805*1 


Ai ^C*^*^ 


A/\A'^77 


err 




.•SET CCS 


OATC 

8055 


Ai ^ C*^/ 

0165^4 


A^ ATAC 

050205 


O T T 


DD DC 
H^,H5 


■ DO— DC rr— vnm 
;Kc-H>, LL-aUUI 


8U30 




1 ATAAO 
10500^ 


DLL 


5» 




OAT7 

803/ 


Ai iLCTA 


1 tVit AI 

10c«»01 


Que 


5« 




8058 


A1 ^CT^ 

01^55c 


AA1 170 

0015/0 


DlUC 


iC 
1 « 




803V 


01o55*» 


1 A/ AAA 

1 Oh 000 


7* . Ul T 

55 : HL 1 






80*»0 


AI ACTX 


A1 AOAC 

01 0<:05 


»•» : nuv 


DC 


• D5 Awr> DC- 1 nAAAn /nr TAi > 

• ri FAD f r • c • 
,LLtW LL o ' 


80*1 1 


A1 AQ/ A 


AAA5C7 


rrr 




BA/ 0 


A1 AC/ 5 


U5UcUj 


D I T 


DO OC 


• d?-dc rr-MW\ 

,Hc—nj, LL— lUUU 














BA/ Z. 


A1 ACZA 


1 AZ.AAA 

IOhOUO 


Ul T 
HL I 


















BA/.iL 

80(>0 


AIACCA 
0 


AACAA5 

OOdOUc 




D5 




WV.7 


A1 ACQ? 


AAA577 


err 




•ccT rr'c 

. dt 1 LL o 


BAAfl 
oU'tO 






QIC 


R0.R2 


• on— or /MTIM— 7PDfn IiATA> 
,nU— rL l»ML<T^tCnJU UMIM/, 


oU*»Tr 


A1 ACCA 


1 ATAA3 


DLL 


D I cn 






A1 ACAA 




nv/c 
ovo 


Df cn 




flAC1 

OU J 1 


A1 ACA7 


nA1 AA1 










A1 ACAA 


1 A/AAA 


OidVJ. ML 1 


















OK) J** 


A1 ACAA 


A1 AAA7 


MAU 

nuv 


DA DX 




BA^<\ 


AI AC7A 


AAA577 
\AJUcf f 


err 

OLL 


•ff-1111 
> UU— 1 1 1 1 


BA^IA 
OUjO 






CLZ 






SAC 7 


A1 AC7A 


A/.AAA'? 


Q I r 
oi L 


DO D't 


,KU— Kj, Ll—viUI 


liA^R 


A1 AC7A 


inXAA7 
1 \Jj\AJj 


or r 

DL L 


Dtrn 

Oi L V 




A1 AAAA 




Due 


D T rn 

Di LU 




aUDU 


A1 AAA? 


AA1 Am 


one 


D r rn 

Oi Lw 




S/V>1 
OUD 1 


A1 AAA/. 


1 AAAA1 


DDI 






OUDC 


A1AAAA 


1 A^AAA 


a I rn • ui t 

OJLU- nL,l 






OUOj 










AAA/, 


AlAAIfl 
U lOO 1 V 


A1 AAAZ. 


MAU 

nuv 


Dn OL 




OUD^ 


niAAl? 
U 1 OO Ic 


AAC1 Ai 


rriM 


OL 
Km 




OUDO 


A1 AA1 A 
u loo IH 


AAAAA/. 


D f r 

□ i L 


DA Di. 


• on— rriMDi pmpmt af da da 


OUOr 


AiAA1 A 
U 1 OO 1 O 




roM 




oUDo 


A1AA5A 


A5AAAA 


rMD 

Lrf 


DA DA 


• on-DA 


OUu7 


AI AA?^ 


W 1 Hv 1 


Dcn 






A1AA3/, 




Ul T 
ML 1 


















Off c 


A1 AA7A 


AI AAA/. 


nuv 


on DL 






ni AAV» 


AAC1 AZ, 


roM 

Lun 


DL 




out 


ni AA7? 
U 1 OO 


A1 Ain7 


MAU 

nuv 


DA DT 


•dx-da 


ft07S 


AI AAI^ 


ACAAA7 
UjVAA/j 


D r e 


on d7 

r<U,Kj 


•D7-rnMPI FMFMT Of QO Ct 


flA7A 
OUfO 


ni AAXA 
U 1 OOjO 


1 UjW I 


Drr 


Di dUM 


J*A77 


U IOOhU 


1 AA/A1 


DMf 






8078 


016642 


104000 


bisoa* HLT 






8079 


016644 


005203 


INC 


R3 


;R3=0 AFTER INC 


8080 


016646 


001401 


BEO 


.♦4 


8081 


016650 


104000 


HLT 






8082 


016652 


010304 


MOV 


R3,R4 


;R3=R4=0 


8083 


016654 


005103 


COM 


R3 


;R3=1 77777 


8084 


016656 


000261 


SEC 




;SET C 



CEQKC-E POP 
CEQKCE.P11 



11/70 CPU EXERCISER MACm 
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SEO 0090 



8085 


016660 


006004 






8086 


016662 


060304 






8087 


016664 


103003 






8088 


016666 


102002 






8089 


016670 


001401 






8090 


016672 


100001 






8091 


016674 


« ^ AAA 

104000 






8092 


016676 


010700 






8093 


016700 


022020 






809^ 


016702 


f\ A/\/\ A ^ 

020007 






8095 


016704 


001401 






8096 


016706 


M A > AAA 

104000 






8097 










8098 


016710 


A 4 A A/\ 

010700 






8099 


016712 


Ay ^^/\A 

062700 


A A A A 4 A 

000010 




8100 


016716 


A 4 AAA 

010002 






8101 


/\4 ^ ^^/\ 

016720 


020700 






8102 


/\4 ^ 

016722 


A A « AA A 

001002 






8103 


/\4 ^ "V^ / 

016724 


A A A A A 

020200 






8104 


016726 


/\/\4 / A4 

001401 






8105 


/\4 y 

016730 


104000 






8106 










(3) 










(3) 










(2) 










(2) 


016732 


AAA A A / 

000004 






(2) 


/\4 ^ "^TP/ 

016754 


1 12737 


AAAA'^A 

000020 


AAi 10*^ 

001252 


(2) 


/\4 ^ "7/ ^ 

016742 


013737 


AA1 

001252 


1 f fOf\J 


8107 


016750 


AAA/ A*) 

000402 






8108 


016752 


AAAAAA 






8109 


/\4 ^ / 

016754 


AAAAAA 

000000 






8110 


016756 


010704 






81 1 1 


A^ A 

016760 


005744 






8112 


016762 


AACA/ i 

005044 






811 3 


Ai ^ ^d^i 

016764 


Ai Ay A7 






81 H 


016766 


AACA/ T 

005043 






O 4 4 C 

8115 










O 4 4 ^ 

8116 


016770 


AAC i i 7 

0051 13 






O 4 4 ^ 

8117 


016772 


005214 






04 4 O 

8118 


016774 


AAA^^ 'S 

000262 






04 4 r\ 

8119 


016776 


061314 






8120 


017000 


4 A7 AA^ 

103002 






04 ^4 

8121 


017002 


4 A ^/ A4 

1 02401 






04 

8122 


A 4 ^AA/ 

017004 


AAi / Ai 

001401 






04 ^7 

8123 


017006 


4 >\/ AAA 

104000 






04 ^/ 

8124 










04 

8125 


A1 7A1 A 

017010 


AAAT^7 

000277 






04 

8126 


A1 7A1 ^ 

01 7012 


AAA^C A 

000250 






8127 


A4 7A1 y 

01 7014 


021314 








U 1 rU 10 








8129 


017020 


102402 






8130 


017022 


001401 






8131 


01 7024 


100401 






8132 


017026 


104000 






8133 










8134 


01 7030 


000277 







ADDO: 



ROR 
ADD 
BCC 
BVC 
BEQ 
3PL 
HLT 
MOV 
CMP 
CMP 
BEQ 

hl: 



R4 

R3.R4 

ADDO 

ADDO 

ADDO 

.♦4 

PC-RO 

(RO)+.(RO)+ 

RO,PC 

.♦4 



.■R4= 100000 

;R3=1 77777, R4=077777. CC=0011 



R0=PC 

R0=R0+4 

PC=PC*4=R0 



MOV PC-RO 

ADD #10. RO 

MOV R0,R2 

CMP PC.RO 

BNE CMPOA 

CMP R2.R0 

BEQ .*4 
CMPOA: HLT 

■•TEST 20 CHECK BINARY OPS USING ADDRESS MODE 1 



;RO=PC 

;R0=PC+10(8) 

;R2=R0 

;R0=PC 

;R2=R0 



TST20: 



ADD1 



CMP1 



SCOPE 
M0V8 
MOV 
BR 

.WORD 

.WORD 

MOV 

TST 

CLR 

MOV 

CLR 

COM 
INC 
SEV 
ADD 
BCC 
BVS 
BEQ 
HLT 

sec 

CLN 
CMP 
BCS 
BVS 
BEQ 
BMI 
HLT 

sec 



#20,»r$TSTNM 

»r$TSTrfi,»rDi SPLAY 



.♦6 

0 
0 

PC.R4 
-(R4) 
-(R4) 
R4.R3 
-(R3) 

(R3) 
(R4) 

(R3),(R4) 
ADDl 
ADD1 
.♦4 



(R3),(R4) 

CMP1 

CMP1 

CMPI 

.♦4 



.•LOAD TEST NUMBER 
;; DISPLAY TEST NUMBER 



.•RESERVE TWO WORDS 
.'RESERVED FOR SOURCE DATA 
.•RESERVED FOR DESTINATION DATA 



;R4 POINTS TO DESTINATION DATA 

;R3 POINTS TO SOUCE DATA 

;(R3)=1 77777 
.•(R4) =000001 
.-SET V 

;(R3)=1 77777. (R4) =000000. CC=0101 



;(R3)=1 77777. (R4)=000000. CC=1000 



CEQKr-E PDP 11/70 CPJ EXERCISER MACYll 
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SEO 0091 



ol 53 


01 f\}5c 


0W24H 




n 7 




fli xa. 

ol JO 




n7i 71/. 
U31 jiH 




D r T 
Hi 1 




O 1 J' 


ni 7nii» 


inTnn? 




Of r 


DT TTI 
Oi 1 1 1 


B1 Til 


ni 7(v n 


1 no/ ni 
lUc*»U I 




Dl/C 


a I TTI 
Di 1 1 ■ 


0 1 5V 




nni / ni 




DCU 


*L 


fliz.n 




in/ nnn 


QI TT1 • 


Ul r 
HL ( 




niz. 1 

O i"» 1 














ni 7(v 


nnno77 




err 




B1 


/Si 7rt«;rt 
Ul 'UjU 


tv^'iL^ 
UUUc**? 




*ri r 


ri 7 


fli 


U 1 ryJjc 


nn^i 1 L 
UU5 1 i*» 




Lun 


(OL > 


fli 

0 1 


U 1 iVj'* 


1<»1 71/. 




CI n 


/p7i lOL^ 


fli LA. 


ni 7n^A 

U 1 ^U70 


1 n7z.n? 




ore 


C B1 

0 JO 1 


fl1Z.7 


ni 7rv»n 
U 1 f uou 


in?/.ni 

1 UchU I 




OV5 


CI m 


fl1 LA 


U 1 f UOc 


nni z.ni 
UU 1 hU I 




DCU 


a/ 


fli AO 


ni 7nAZ, 
U 1 ' uo*» 




CI B1 • 


ul T 

nL 1 




81 












fli ^1 


ni 7fVsA 


insni X 




ri OR 


/R7) 
IFtj/ 


fli 

O 1 Jc 


ni 7n7n 

U 1 f\Jr\J 


nnn7i 7 






f D7) 


fli 


ni 7n7? 

U 1 ' Ur c 


0<S0?70 
Wvc' U 




CFM 




O 1 J** 


m 707^ 


ni 1 71/ 




Mnv/ 

HUV 


/07) IDL\ 
\f\Ji t \ w\H9 


flISS 


01 7n7A 


100001 




QPI 




O 1 jo 


ni 71 nn 


10AOOO 
1 UHUW 




Ul r 

nL 1 




fl1S7 


ni 71 np 


00071/ 




CLIAO 




O 1 JO 


m 7in^ 


000?*»7 




♦ CFT 
^ OC L 


CPU 
oc V 


O 1 J7 


ni 7inA 


nsi ^iA 




Rt C 
Di o 


vnj/ 0 VnH/ 


O 1 uv 


ni71 10 


10^00? 






RTC1 
Di O 1 


fl1A1 

O 1 0 1 


01 711? 


10?i01 




RV/C 


RT^I 
Oi O 1 


fl1A7 
O 1 Oc 


0171 1 A 


lOOiOl 




RMT 




O 1 0 J 


01 71 1 A 


10AOOO 


nt^l • 

□ 1 O 1 • 


Ul r 
HL 1 




R1A/> 

O lO'^ 












O lOJ 


0171P0 


Oil ■^li 




RT r 
Di L 


/R7) fQ/) 


A1AA 

O luO 


01 71?? 


10^00? 




Rrr 

DU U 


Rtn 

Di L 1 


A1A7 

O 1 Of 


0171?^ 


10?i01 




RV/C 
DV J 


Rtn 

Di L 1 


AIAA 

O lOO 


01 71 ?A 


lOOiOl 




RMT 


■ 


O |07 


01 71 VJ 


lOiOOO 


Oi L 1 • 


Ul T 
nL 1 




A170 














0171 ^? 


000?A? 
VAA/COc 




dC V 




R17? 

O I ' C 


01 71'^ 


0?1'^1i 






fD7) ttiL\ 


A1 7"^ 


01 71 Vi 


10X007 

1 \JjWj 




Rrr 

Dl. L 


rMDI A 

\.rr \n 


fli 7i 


0171^0 


10?iO? 




RV/C 




R17S 


01714? 


OOliOl 




RFQ 


L»w^ 1 ^ 


A1 7A 


01 71^^ 


100001 

1 KAJvKJ I 




RPI 
OrL 




A1 77 


01 71^A 


lOiOOO 


Lrr IM • 


Ul T 
nL 1 




fl17A 












A170 


01 71 SO 


00S01 7 




ri R 




O 1 Ov 


0171S? 


000PA1 

vvvCO 1 




cpr 

oc I. 




R1R1 

O 1 O 1 


01 71 Si 


00*!>01 




ROD 
nun 




O 1 Oc 


ni7iSA 


01 1 Tli 




Mnv/ 




O 1 OJ 


01 71/V) 
U 1 f low 


00S1 1i 

Vv J 1 1 




rnM 


(OL'S 


8184 


017162 


161314 






(R3} (R4) 


8185 


01 7164 


103002 




BCC 


SUB1A 


8186 


017166 


102001 




BVC 


SLBIA 


8187 


017170 


100401 




BMI 


.♦4 


8188 


017172 


104000 


SUB1A: 


HLT 




8189 












8190 


017174 


000277 




sec 





;(R3)=177777,(R4)=000000. CC=0101 



;(R4)=1 77777 

;(R3)=1 77777. (R4) =000000, CC=0100 



;(R3) =177400 
;(R3) =000377 



;(R3)={R4)=000377 



{R3)=000377, (R4)=177400 
SET C ft V 

(R3)=000377, {R4)=177777. CC=1001 



;{R3)=000377,{R4)=177400, CC=1001 



;SET V 

; {R3)=000377, (R4)=177400, CC^OOOI 



;(R3) =000000 

;(R3) =100000 
;(R3>=(R4) =100000 
; (R4)=077777 

;(R3)=100000.(R4>=1 77777, CC=1011 



CEQKC-€ POP 11/70 CPU EXERCISER HACvII 
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1 



SCO 0092 



8191 
8192 
8193 
8194 
8195 
8196 
8197 
8198 
8199 
8200 
8201 
820 
820 
8204 
8205 
8206 
8207 
8208 
8209 
8210 
8211 
8212 
821? 
8214 
8215 
8216 
8217 
8218 
8219 
8220 
8221 
8222 
(3) 
(3) 
(2) 
(2) 
(2) 
(2) 
8223 
8224 
8225 
8226 
8227 
8228 
8229 
8230 
8231 
8232 
8233 
8234 
8235 
8236 
8237 
8238 
8239 
8240 



017176 
017200 
017202 
017204 
01 7206 

017210 
017212 
017214 
017216 

017220 
017222 
01 7224 
017226 
017230 
017232 

017234 
017236 
017240 
01 7242 
017244 
017246 
017250 



1613U 
101402 
102401 
100001 
104000 

011314 
001401 
100401 
104000 

061314 
103003 
102002 
001001 
100001 
104000 

005113 
011314 
061314 
103402 
102001 
100401 
104000 



SIB18: 



MOVl: 



ADDIA: 



ADDIB: 



017252 062714 

017256 005714 

017260 001401 

017262 104000 



000002 



SUB 


(R3),(R4) 


BLOS 


SUBIB 


BVS 


SUBIB 


RPi 




HLT 




MOV 


(R3).(R4) 


6EQ 


MOVl 


ani 


.♦4 


HLT 




ADD 


(R3),(R4) 


BCC 


ADDIA 


BVC 


ADDIA 


BNE 


ADDIA 


BPL 


.♦4 


HLT 




COM 


(R3) 


MOV 


(R3) . (R4) 


ADD 


(R3).(R4) 


8CS 


ADDIB 


BVC 


ADDIB 


BMI 


.♦4 


HLT 




ADD 


#2.(R4) 


TST 


(R4) 


BEQ 


.♦4 


HLT 





;(fl3)=1 00000. (R4) =077777. CC=0000 
.•BRANCH IF C OR 2 IS SET 



; (R3)=1 00000. CR4) =100000. CC=1000 



(R3) =100000. (R4) =000000. cc=oni 



(R3) =077777 
(Ri,) =077777 

{RD =077777 AM) =y7777t, CC=1010 



.-CHECK FINAL RESULT 



•••*•* **************** ***•**••**•••*»*••*•••*•** ••****••••*•••** 

•TEST 21 CHECK BINARY BYTE OPS USING ADDRESS MODE 1 

- ********************* 



017264 


000004 






TST21: SCOPE 






017266 


112737 


000021 


001252 


MOVB 


«2i,anTSTr#4 


.•LOAD TEST 


017274 


013737 


001252 


177570 


MOV 


anrsTfM.airDi SPLAY .-.-display 


017302 


000402 






BR 


.♦6 




017304 


000000 






.yORD 


0 




017306 


000000 






.yORD 


0 




017310 


010705 






MOV 


PC,R5 




017312 


005745 






TST 


-(R5) 




017314 


005045 






CLR 


-(R5) 


;(R5) =000000 


017316 


010502 






MOV 


R5,R2 




017320 


005042 






CLR 


-(R2) 


;(R2) =000000 


017322 


005202 






INC 


R2 


;R? POINTS TO ODD 


017324 


105112 






COMB 


(R2) 


;(R2) =177400 


017326 


000277 






see 






017330 


111215 






MOVB 


(R2).(R5) 


; (R2) =1 77400. (R5)= 


017332 


103005 






BCC 


M0VB1 


017334 


102404 






BVS 


M0V81 




017336 


001403 






BEQ 


M0V81 




017340 


100002 






BPL 


M0V81 




017342 


105215 






INC8 


(R5) 


.'CHECK RESULT 



CEQ»cC-€ POP 11/70 CPU EXERCISER MACm 
CEQKCE.P11 12-MAR-80 11:27 



C 8 

30A(1052) 12-WAR-80 11:50 PAGE 47-68 
T21 CHECK BIMARy BYTE OPS USING ADDRESS MODE 



SEO 0093 



8241 

8242 

8243 

8244 

8245 

8246 

8247 

8248 

8249 

8250 

8251 

8252 

8253 

8254 

8255 

8256 

8257 

8258 

8259 

8260 

8261 

8262 

8263 

826^ 

8265 

8266 

8267 

8268 

8269 

8270 

8271 

8272 

8273 

8274 

8275 

8276 

8277 

8278 

8279 

8280 

8281 

8282 

8283 

8284 

8285 

8286 

8287 

8288 

8289 

8290 

8291 

8292 

8293 

8294 

8295 

8296 



017344 
017346 

017350 
017352 
017354 
017356 
017360 
017362 
017364 
017366 
017370 
017372 

017374 
01 7376 
017400 
01 7402 
017404 
017406 
017410 
017412 
017414 
017416 

017420 
017422 
01 7424 
017426 

017430 
01 7432 
017434 
017436 
01 7440 

01 7442 
01 7444 
01 7446 
017450 

017452 
017454 
017456 
017460 
017462 

017464 
017466 
017470 
017472 
017474 
017476 
017500 
01 7502 
017504 



001401 
104000 

106312 
102376 
106012 
105315 
106015 
000257 
121512 
102001 
100401 
104000 

005003 
000261 
006003 
050315 
000273 
131215 
103002 
102401 
001401 
104000 

151215 
103001 
100401 
104000 

141215 
103002 
001401 
100001 
104000 

105112 
121215 
001401 
104000 

141512 
001002 
105712 
001401 
104000 

000402 
000000 
000000 
010705 
005745 
105045 
010504 
105044 
010403 



M0V81 



CMPSI 



BIT81 



Bisei 



BIC81 



BEQ 
HLT 

ASLB 

BVC 
RORB 
DECS 
R0R8 

CCC 

CMpe 

BVC 

BUI 

HLT 



(R2) 

.-2 

(R2) 

(R5) 

(R5) 



CLR 
SEC 
ROR 
BIS 



(R5),(R2) 

CMPBl 

.♦4 



R3 



R3 

R3,(R5) 
♦SEC.SEV.'SEN 
BITS (R2).(R5) 
81 TBI 
BIT81 
.♦4 



6CC 
BVS 
BEQ 
HLT 



BISB 
BCC 
BHJ 
HLT 

8JC8 

3CC 

BEQ 

8PL 
HLT 

COMB 
CMP8 
BEQ 
HLT 



81 CB 
BNE 
TST8 
BEQ 

8IC81A: HI T 
BR 

.WORD 
.WORD 
MOV 

TST 

CLR8 

MOV 

CLR8 
MOV 



(R2),(R5) 

8JS81 

.♦4 



(R2).(R5) 
BIC81 

Bicei 

.♦4 



(R2) 

(R2).(R5) 
.♦4 



(P5),(R2) 
8IC81A 
(R2) 
.♦4 



.♦6 

0 
0 

PC,R5 
-(R5) 
-(R5) 
R5.R4 
-(R4) 
R4.R3 



.•SHIFT (R2) UNTIL 
;(R2) =000000 
;(R2)=100000 
;(R5)=00377 
;(R5) =0001 77 

;(R5)=000V7.(R2)=100000. CC=1010 



R3= 100000 
(R5)=100177 
SET C.V- t N 

(R2)=100000.(R5)=100177, CC=0101 



;(R2)=100000.(R5)=100377, CC=1001 



; (fi2) =1 00000. (R5) =1001 77. CC=0001 



;(R2)=077400.(R5)=1001 77 



; (R5) =1001 77. (R2) =000000. CC=0100 



RESERVE TyO WORDS FOR DATA 
SOURCE DATA 
DEST DATA 



;R5 POINTS TO DEST ODD BYTE 
;R4 POINTS TO DEST EVEN BYTE 



CEQKC-E POP 
CFQKCE.P11 



8297 
8298 
8299 
8300 
85C1 
8302 
8303 
8304 
8305 
8306 
8507 
8308 
8509 
8310 
8311 
8312 
8313 
83K 
8315 
8316 
8317 
8318 
8319 
8320 
8321 
8322 
8323 
832A 
8325 
8326 
8327 
8328 
8329 
8330 
8331 
8332 
8333 
833^ 
8335 
8356 
8337 
8338 
8339 
(3; 
(3) 
(2) 
(2) 
(2) 
(2) 
8340 
83^1 
83A2 
83A5 
83^4 
85^5 
8346 



11/70 CPU EXERCiSfP «ACr11 
12-nAR-80 11:27 



0 8 

30A(1052) 12-rtAR-80 11:30 PAGE 47-69 
T21 CHECK BINARY BYTE OPS USING ADWESS 



MODE 1 



SEO 009^ 



017506 


105043 


CLR8 


-(R3) 


;R3 POINTS TO SOURCE ODD BYTE 


017510 


010302 


MOV 


R3.R2 


;R2 POINTS TO SOURCE EVEN BYTE 


017512 


105042 


CLR8 


-(R2) 






.•COMMENTS ARE 


LEAST SIGNIFICANT 


4 BITS OF BYTES POINTED TO BY R2.H 






:R4. AND R5 RESPECTIVELY AND THE 


REMAINING BITS ARE O'S. 


017514 


000261 


SEC 




.SET CARRY 






;(R2).(R3).(R4),(R5) 


017516 


106112 


ROLB 


(R2) 


;0001 « 0000. 0000, 0000 


017520 


111214 


MOVB 


(R2),(R4) 


;0001 ,0000,0001 ,0000 


017522 


106112 


ROLB 


(R2) 


; 001 0,0000. 0001 ,0000 


01 7524 


111215 


MOVB 


(R2). (R3) 


4k 4k A 4k 4k 4^ 4 4k 4k 4k 4k 4 4k Jk 4k 4k 

.•0010,001 0,0001 ,0000 


017526 


106112 


ROLB 


(R2) 


4k A 4k 4k 4k 4k A 4k 4k 4k 4k A 4k 4k 4k 4k 

.•0100,001 0,0001 ,0000 


017530 


111315 


MOVB 


(R3).(R5) 


4k d 4k 4k 4k 4k A 4k 4k 4k 4k A 4k 4k A 4k 

; 01 00, 001 0,0001 ,0010 


017552 


106112 


ROLB 


(R2) 


m 4k4k4k 4kMM 4k 4^AA4 4k4k4 A 

; 1 000 , 001 0 , 0001 , 001 0 


017534 


106113 


ROLB 


(R3) 


; 1000,0100,0001 ,0010 


017556 


151215 


BIS8 


(R2).(R5) 


A 4k 4k 4k 4k A 4k 4k 4k 4k 4k A A 4k 4 A 

; 1000, 0100, 0001, 1010 


01 7540 


131512 


BITB 


(R5).(R2) 


m 4k 4k 4k 4k A 4k 4k 4k 4k 4k A A 4k ^ 4k 

; 1000.0100,0001 ,1010 


017542 


001426 


BEO 


BIN1 




017544 


151314 


BIS6 


(R3).(R4) 


.•1000.0100. 0101. 1010 


017546 


131413 


BITB 


(R4).(R3) 


M 4k4kM 4k A 4k 4k 4kM4k4 44k44k 

; 1000, 0100, 0101, 1010 


017550 


00142? 


BEO 


BINI 


A 4k 4k 4k 4k 4 4k M 4k 4 4k M M ^k 4 ^k 

.-1000.0101 ,0101 ,1010 


017552 


105213 


INCB 


(R3) 


017554 


121314 


CMPB 


(R3).(R4) 


«4k4k4k 4k«4k« 4k«4k« 

.-1000.0101. 0101. 1010 


017556 


001020 


BNE 


BIN1 




017560 


106113 


ROLB 


(R3) 


A 4k 4k 4k A 4k M 4k 4k M 4k M M 4k M 4k 

.-1000.1010,0101 ,1010 


01 7562 


121315 


CMPB 


(R3).(R5) 


« 4k 4k 4k m 10% m J0% 4k«4k4 44\«A 

.-1000,1010,0101 .1010 


017564 


001015 


BNE 


BINI 


.-0100,1010,0101 ,1010 


017566 


106212 


ASRB 


(R2) 


017570 


131214 


ni TR 




4k m 4k 4k «4k44k 4k«4k4 

.-0100,1010,0101 ,1010 


017572 


001412 


BEO 


BIN1 




0175/4 


106015 


RORB 


(R5) 


.•0100,1010,0101,0101 


017576 


121415 


CMPB 


(R4).(R5) 


.-0100,1010,0101,0101 


017600 


001007 


BNE 


BINI 


,0100,1010,0100,0101 


017602 


105314 


DECS 


(R4) 


017604 


141214 


BICB 


(R2).(R4) 


•0100,1010.0000.0101 


017606 


001004 


BNE 


BINI 




017610 


111314 


MOVB 


(R3),(R4) 


.0100,1010,1010,0101 


01/'612 


106213 


ASRB 


(R3) 


.-0100.0101,1010,0101 


017614 


141315 


BICB 


(R3).(R5) 


.-0100,0101,1010,0101 


017616 


001401 


BEO 


.♦4 




017620 


104000 


BIN1 : HLT 










■iTEST 22 


CHECK BINARY WORD OPS USING ADDRESS MODE 2 S 4 



01 7622 
01 7624 
01 7632 
017640 
017644 
017650 
017654 
017660 
017662 
017666 



000004 
112737 
013737 
012704 
012702 
063702 
063704 
010405 
012715 
012712 



000022 
001252 
017470 
01 7466 
001604 
001604 

000001 
177777 



001252 
177570 



JST22: SCOPE 

MOVB #22, *r$TSTf#^ 

MOV airSTSTFM,a#DISPLAv 

MOV #8IC81A*6,R4 

MOV #8IC81A*4,R2 

ADD iff AC TOR, R2 

ADD a(rFACT0R.R4 

MOV R4.R5 

MOV #1,(R5) 

MOV #-l.(R2) 



.-LOAD TEST NllBER 
.-.-DISPLAY TEST NlMBER 



.-SET DESTINATION REGISTER 



CEQKC-€ POP 11/70 CPU EXERCI:FR HACrll 
CEOKCE.Pn 12-W-80 11:27 



50A(1052) 12-mR-80 
122 CHECK BINAR" 



E 8 

11:50 PAGE <.7- 
yORO OPS USING 



70 

ADDRESS 



MODE 2 14 



SEO 0095 



8547 


017672 


000257 




8548 


01 7674 


000262 




8549 


01 7676 


062225 




85S0 


017700 


103002 




8551 


017702 


102401 




8552 


017704 


001401 




8555 


017706 


104000 




8554 








8555 


017710 


000262 




8556 


017712 


024527 


000001 


8557 


017716 


103002 




8558 


017720 


102401 




8559 


017722 


100401 




8560 


017724 


104000 




8561 








8562 


017726 


054225 




8565 


017750 


103001 




8564 


01 7752 


100401 




8565 


017734 


104000 




8566 


017756 


000277 




8567 


017740 


000244 




8568 


01 7742 


162245 




8569 


01 7744 


103402 




8570 


01 7746 


102401 




8571 


017750 


001401 




8572 


017752 


104000 




8575 








8574 


017754 


005442 




8575 


01 7756 


005115 




8576 


017760 


000277 




8577 


017762 


000250 




8578 


017764 


042225 




8579 


017766 


105005 




8580 








8581 


017770 


102402 




8582 


017772 


001401 




8585 


01 7774 


100401 




8584 


01 7776 


104000 




8585 








8586 


020000 


012742 


125252 


8587 


020004 


012245 




8588 


020006 


005125 




8389 


020010 


000262 




8390 


020012 


034245 




8591 


020014 


103002 




8592 


020016 


102401 




8595 


020020 


001401 




8594 


020022 


104000 




8395 








8596 


020024 


000262 




8397 


020026 


052225 




8398 


020030 


103002 




8399 


020052 


102401 




8400 


020034 


100401 




8401 


020036 


104000 




8'.02 











f r r 
CCC 






SEV 






ADD 


(R2)*.(R5)* 




BCC 


AD02 




BVS 


ADD2 




BEQ 


.♦4 


ADD2: 


HLT 






SEV 






CMP 


-(R5).#l 




BCC 


CMP2 




BVS 


CMP2 




BMI 


.♦4 


Cf1P2: 


HLT 






BIS 


-(R2).(R5)* 




BCC 


BIS2 




m\ 


.♦4 


BIS2: 


HLT 






err 
bCC 






CLZ 






SUB 


(R2)*.-(R5) 




BCS 


SIJEJ2 




BVS 


SUB2 




BEQ 


.♦4 


SUB2: 


HLT 






NEG 


-(R2) 




COM 


(R5) 




sec 






CLN 






D T r 
Di C 






BCC 


BIC2 




BVS 


8IC2 




BEQ 


8IC2 




BMI 


.♦4 


BIC2: 


HLT 






MOV 


#125252. -(R2) 




MOV 


(R2)+,-(R5) 






\t\ii * 




SEV 






BIT 


-(R2),-(R5) 




BCC 


BITT2 




BVS 


BITT2 




BEQ 


.♦4 


BITT2: 


HLT 






SEV 






BIS 


(R2)*,(R5)* 




BCC 


BIS2A 




BVS 


6IS2A 




BMI 


.♦4 


BIS2A: 


HLT 





;(R2)=177777.(R5)=000000. CC-01C1 



.-SET V 

;(R5)=000000. CC=1001 



; (R2) -1 inn. (R5) = 177777,CC=1001 



(R2)=177777. {R5)=000000. CC=0100 



(R2) =000001 
(R5)=177777 



(R2) =000001. (R5)=l 77776, CC=1001 



;(R5)=052525 

; (R2)=125252. (R5)=052525. CC=0101 



;(R2)=125252.(R5)=177777. CC=1001 



ctoKC-E POP ^^/70 cpu exerci:er nAcm 

CEQKCE.P11 11:27 



r 8 

50A(1052) 12-MAR-80 11:30 PAGE 47-71 
T22 CHECK BINARr WORD OPS USING ADDRESS MODE 



2 i 4 



SFO 009t: 



840? 

8A05 
8406 
8407 
8408 
8409 
8410 
8411 
8412 
8413 
8414 
8415 
8416 
8417 
8418 
8419 
8420 
8421 
8422 
8423 
(3) 
'3) 
(2) 
(2) 
(2) 
(2) 
8424 
8425 
8426 
8427 
8428 
8429 
8430 
8431 
8432 
8433 
8434 
8435 
8436 
8437 
8438 
8439 
8440 
8441 
8442 
8443 
8444 
8445 
8446 
8447 
8448 
8449 
8450 
8451 
8452 



020040 042745 125252 

020044 005125 

020046 024245 

020050 001401 

020052 104000 

020054 005012 

020056 005122 

020060 162742 000001 

020064 103402 

020066 102401 

020070 100401 

020072 104000 

020074 010702 

020076 010205 

020100 124245 

020102 001401 

020104 104000 

020106 020237 001610 

020112 001372 



020114 000004 

020116 112737 000023 001252 

020124 013737 001252 177570 

020132 000402 

020134 000000 

020136 000000 

020140 010703 

020142 005743 



0201 4<. 010300 

020146 010002 

020150 005302 

020152 010604 

020154 010605 

020156 005745 

020160 114046 

020162 020506 

020164 001021 

020166 020200 

020170 001017 

020172 122026 

020174 020406 

020176 001014 

020200 020003 

020202 001012 

020204 154640 

0?0206 020506 

020210 001007 

020212 020200 



BIC 
COM 
CtV> 
BEQ 

HLT 

CLR 
COM 

sue 

BCS 
BVS 
BMI 

SLI32A: HLT 
MOV 
MOV 
CMPB 
BEG 
HLT 
LMP 
BNE 



1$: 



#125252, -(R5) 
(R5)* 

-(R2).-(R5) 
.♦4 



(R2) 

(R2)* 

#1.-(R2) 

SLB2A 

SLB2A 

.♦4 

PC.R2 
R2.R5 

-(R2).-(R5) 
.♦4 

R2,a*FRSTAD 
1$ 



;(R5) =052525 
;(R5)=125252 



:(ti2) = ^77777 

;(R2) -177776. fC=1000 



;GET CURRENT PC 
.•MOVE TO R5 

.'COMPARE ALL PREVIOUS MEMORY ADDRESSES 
'ERROR ' 

•CHECK* FOR LOU LIMIT 



•TEST 23 



CHECK BINARY BYTE OPS USING ADDRESS MODE 2 i 4 



TST23: SCOPE 

M0V8 #23.anTST»#l ;LOA0 TEST NUMBER 

MOV airSTSTW.aWI SPLAY .-.DISPLAY TEST NIJ«ER 

BR .♦6 .'RESERVE TUG WORDS 

.WORD 0 .-SOURCE DATA 

.WORD 0 .'DESTINATION DATA 

MOV PC.R3 

TST -(R3) 



;FIRST CHECK AUTO INCREMENT/DECREMENT 



MOV 
MOV 
DEC 
MOV 
MOV 
TST 

M0V8 

CMP 

BNE 

CMP 

BNE 

CMP8 

CMP 

BNE 

CMP 

BNE 

B1S8 

CtV> 

BNE 

CMP 



R3.R0 
R0.R2 
R2 

SP.R4 
SP.R5 
-(R5) 

-(RO),-(SP) 

RS.SP 

BINB 

R2,R0 

BINB 

{RO)*.(SP)* 

R4.SP 

BINB 

R0.R3 
BI^e 

-(SP). -(RO) 
R5.SP 
BINB 
R2.R0 



.R0=ADDRESS OF MOV ABOVE 
;R2=R0 
;R2=R0-1 



.•R5=SP-2 

;R0=R0-1. SP=SP-2 
;R5=SP 

;R2=R0 

;R0=R0*1. SP=SP*2 

:R4=SP (SP BACK TO ORIGINAL) 



.'R0=R3 (RO BACK TO ORIGINAL) 

;SP=SP-2. R0=R0-1 
;R5=SP 

;R2=R0 



'EQKC-E POP 11/70 CPU EXERCi.fR tlACvH 
CEQKCE. Pn 12-W-80 11 :?7 



50A(1052) 12-*W-80 
T23 CHECK BJNAftV 



C 8 

11 :50 PAGE 47- 
BYTE OPS USING 



72 

ADDRESS 



MODE 2 4 4 



'.i i 0097 



8453 


020214 


001005 




8A54 


020216 


142620 




8455 


020220 


020406 




8456 


020222 


001002 




8457 


020224 


020003 




8458 


020226 


001401 




8459 


020230 


104000 




8460 


020232 


010003 




8461 


020234 


112743 


000200 


8462 


020240 


112743 


000377 


8463 


020244 


010304 




8464 


020246 


112744 


000177 


8465 


020252 


112744 


0^ 0^ A A A A 

000000 


8466 


020256 


001401 




8467 


020260 


104000 




8468 








8469 


020262 


152324 




8470 


020264 


100401 




8471 


020266 


4 J AAA 

104000 




8472 








8473 


020270 


122324 




8474 


020272 


1 0340? 




8475 


020274 


102001 




8476 


020276 


100001 




8477 


020300 


4 A J AAA 

104000 




8478 








8479 


020302 


000261 




8480 


020504 


134344 




8481 


020306 


103002 




8482 


020310 


102401 




8483 


020312 


001401 




8484 


020314 


104000 




8485 








8486 


020316 


000244 




8487 


020320 


144344 




8488 


020322 


001401 




8^.89 


020324 


104000 




8490 








(3) 








(3) 








(2) 








(2) 


020326 


000004 




(2) 


020330 


1 12737 


A A A A A / 

000024 


(2> 


020336 


013737 


001252 


8491 


020344 


000404 




8492 


020346 


000000 




8493 


020350 


000000 




8494 


020352 


A^VA A A A 

000000 




8495 


020354 


A A A A A A 

000000 




8496 


020356 


OlUr^Ul 




8497 


020360 


010100 




8498 


020362 


024040 




8499 


020364 


010005 




8500 


020366 


024545 




8501 


020370 


010015 




8502 


020372 


010502 





BI^B: 



BNE 

Bice 

CMP 

BNE 

CMP 

BEO 

HLT 

MOV 

MOVB 

M0V8 

MOV 

M0V8 

MOVB 

BEQ 

HLT 



BIM3 

(SP)*.(RO)* 

R4.SP 

BINB 

R0.R3 

.♦4 

R0-R3 
#200. -(R3) 
#377. -(R3) 
R3,R4 
#177. -(R4) 
#0.-(R4) 
.*4 



;SP=SP*2,R0=R0*1 (SP BACK TO ORIGINAL : 
;R4=SP 

;R0-R3 . 



;R0=R3 

;R3=0DD BYTE (UPPER BYTE) 
;(R3)=100377, R3=EVEN BYTE (LOWER BvTC) 

;R4= ODD BYTE (UPPER BYTE) 
;(R4)=077400. R4=EVEN BYTE (LOWER BYTE) 





BIS8 

BMi 

HLT 


(R3)*,(R4)* 
.*4 


;(R3)=100377.(R4)=077777 


CMP82: 


CMP8 

BCS 

BVC 

BPL 

HLT 


(R3)*,(R4)* 
CMP82 
CMP82 
.*4 


;CC=0X10 


BIT82: 


SEC 

BITS 

BCC 

BVS 

BEQ 

HLT 


-(R3^-(R4) 
BITB2 
BITB2 
.♦4 


;SET C BIT. CC-OXll 
;CC=X101 




CLZ 
BIC8 
BEQ 
HLT 


-(R3).-(R4) 
.♦4 


; (R3) =1 00377. (R4) =077400 


.••TEST 


24 


CHECK BINARY WORD OPS USING ADDRESS MODES 3 ft 5 



001252 
177570 



TST24; 



2S: 



SCOPE 
MOVB 
MOV 
BR 

.WORD 

.WORD 

.WORD 

.WORD 

MOV 

MOV 

CMP 

MOV 

CMP 

MOV 

MOV 



#24.a#$TSTW1 

a#$TST^r.a#OISPLAY 



2$ 

0 
0 
0 
0 

PC.R1 
Rl.RO 

-(RO).-(RO) 
R0,R5 

-(R5),-(R5) 

R0.(R5) 

R5.R2 



.•LOAD TEST NUMBER 
; .-DISPLAY TEST NUMBER 



RESERVE SPACE FOR DATA AND ADDRESSES 
CONTAINS ADDRESS OF SOURCE DATA 
CONTAINS ADDRESS OF DEST DATA 
CONTAINS SOURCE DATA 
CONTAINS DEST DATA 

SET SCOPE PTR 
ADJUST RO 

R5 POINTS TO DEST DATA 
SUB 4 FROM R5 

R5 POINTS TO ADDRESS OF DEST DATA 



H 8 

CEQKC-E POP n/70 CPU EXERCISER HACVll 30A{1052) 12-nAft-80 11:30 PAGE A7-73 

CEQKCE.PII 12-MAR-80 11:27 T24 CHECK BIMARV WORD OPS USING ADDRESS MODES 3 t 5 



SEO 0098 



8503 


020374 


010004 




850A 


020376 


005740 




8505 


020400 


010003 




8506 


020402 


010042 




8507 


0^0404 


005013 




8508 


020406 


005014 




8509 








8510 


020410 


000277 




851 1 


020412 


000244 




8512 


020414 


163235 




8513 


020416 


103402 




85U 


020420 


102401 




8515 


020422 


001401 




8516 


020424 


» A t AAA 

104000 




8517 








8518 


020426 


052752 


100000 


8519 


020432 


062755 


A AA AA 4 

000001 


8520 


020436 


163235 




8521 


020440 


103002 




8522 


020442 


102001 




8523 


020444 


100401 




8524 


020446 


104000 




8525 








8526 


020450 


005414 




8527 


020452 
020454 


035255 




8528 


001401 




8529 


020456 


104000 




8530 


020460 


023235 




8531 


020462 


102401 




8532 




104000 




8533 


020466 


0051 5^ 




8534 


020470 


000257 




8535 


020472 


063255 




8536 


020474 


102001 




8537 


020476 


100401 




8538 


020500 


4 /\y 

104000 




8539 


020502 


000261 




8540 


020504 


045235 




8541 


020506 


103001 




8542 


020510 


100401 




8543 


020512 


104000 




8544 








8545 


020514 


005155 




8546 


020516 


023235 




8547 


020520 


001401 




8548 


020522 


4 Ay AAA 

104000 




8549 








(3) 








(3) 
















(2) 


020524 


000004 
112737 




(2) 


020526 


000025 


(2) 


020534 


013737 


001252 


8550 


0205',2 


000406 




8551 
8552 


020544 


000000 




020546 


000000 





SUB3: 



SLB3A: 



ADD 3: 



BIC3: 



MOV 

TST 
NOV 
NOV 

CLR 
CLR 

sec 

CLZ 
SUB 
BCS 
BVS 
BEO 
HLT 

BIS 
ADD 
SUB 
BCC 
6VC 
BMI 
HLT 

NEG 
BIT 
BEQ 
HLT 
C/1P 
BVS 
HLT 
COM 
CCC 
ADD 
BVC 
BMI 
HLT 
SEC 
BIC 
BCC 
8MI 
HLT 

COM 
CMP 
BEO 

HLT 



R0,R4 

-(RO) 

R0,R3 

R0--(R2) 

(R3) 

(R4} 



a(R2)*.a(R5)* 

SUB3 

SU83 

.♦4 



#100000.a-(R2) 

*i,a-(R5) 
a{R2)*,a(R5)* 

SUB3A 
SLB3A 
.♦4 



(R4} 

a-(R2).a-(R5) 
.♦4 

a(R2)*.a(R5)* 

.♦4 

a-(R2) 

a(R2)*.a-(R5) 

ADD 3 
.♦4 



a-(R2).S(R5)* 

BIC3 

.♦4 



a-(R5) 

a{R2)*.a{R5)+ 

.♦4 



;R4 POINTS TO DEST DATA 

;R3 POINTS TO SOURCE DATA 

;R2 POINTS TO ADDRESS OF SOURCE DATA 

.PRESET SOURCE DATA 

.•PRESET DEST DATA 



;( R3) =000000. (R4) =000000. CC=0100 



{R3) =100000 
{R4) =000001 

(R3)=100000.{R4)=100001. CC=1011 



;(R4) =077777 

;(R3)-1 00000, (R4) =077777 



(R3) =077777. {R4) -100000 



;(R4) =077777 

;{R3)=077777.(R4)=077777 



.••TEST 25 CHECK BINARY BYTE OPS USING ADDRESS MODES 3 6 5 

••»»»•••••••♦•••»••••»•♦♦••••••••••••••••••••••*•••••••••»••••••• 



001252 
177570 



TST25: 



SCOPE 
M0V8 
MOV 
BR 

.WORD 
.WORD 



#25.anTSTf#1 

ariTSTNM.arDisPLAY 



IS 

0 
0 



.-LOAD TEST Nlf«ER 
; .-DISPLAY TEST NUMBER 



RESERVE SPACE FOR ADDRESS AND DATA 
CONTAINS ADDRESS OF SOURCE DATA (EVEN BYTE) 
CONTAINS ADDRESS OF SOURCE DATA (ODD BYTE) 



I 8 

CEQKC-E POP n/70 CPU EXERCi:fR MACVll 30A(1052) 12-MAR-80 11:30 PAGE 47-74 

CEQKCE.P11 12-MAR-80 11:27 T25 CHECK BINARr BrTE OPS USING ADDRESS MOOES 3 6 5 



SEO 0099 



8553 
8554 
8555 
8556 
8557 
8558 
8559 
8560 
8561 
8562 
8563 
8564 
8565 
8566 
8567 
8568 
8569 
8570 
8571 
8572 
8573 
8574 
8575 
8576 
8577 
8578 
8579 
8580 
8581 
8582 
8583 
8584 
8585 
3586 
8587 
8588 
8589 
8590 
8591 
8592 
8593 
8594 
8595 
8596 
8597 
8598 
8599 
8600 
8601 
(3) 
(3) 
i2) 
(2) 
(2) 
(2) 
8602 



020550 
020552 
020554 
0205S6 

020560 
020562 
020564 
020566 
020570 
020572 
020574 
020S76 
020600 
020602 
020604 
020606 
020610 

020612 
020614 
020620 
020624 
020626 
020630 
020632 
020634 
020640 
020642 
020644 
020646 
020650 
020652 
020656 
020660 
020662 
020664 
020666 
020670 
020672 
020674 
020676 

020700 
020702 
020704 
020706 
020710 



020712 
020714 
020722 
020730 



000000 
000000 
000000 
000000 

010700 
024040 
010003 
010305 
005743 
010043 
005213 
010043 
010504 
005740 
010044 
005214 
010044 

000261 
012734 
112734 
115433 
115433 
103401 
104000 
022715 
001401 
104000 
024343 
153433 
153433 
022715 
001401 
104000 
145453 
145453 
133433 
001002 
135433 
001001 
104000 

123453 
001002 
123453 
001401 
104000 



000004 
112737 
013737 
000402 



IS: 



177001 
000200 



000600 



100601 



.WORD 


0 


.WORD 


0 


.WORD 


0 


.yoRD 


0 


MOV 


PC.RO 


CMP 


-(RO) ,-(R0) 


MOV 


R0,R3 


MOV 


R3,R5 


TST 


-(R3) 


MOV 


R0.-(R3) 


INC 


(R3) 


MOV 


R0.-(R3) 


MOV 


R3,R4 


TST 


-(RO) 


MOV 


R0,-(R4) 


INC 


(R4) 


MOV 


R0,-(R4) 


SEC 




MOV 


#177001 ,a(R4)'«- 


MOVE 


*200,a(R4)'«- 


MOVB 


•-(R4) .aiRi)* 


M0V8 


i-(R4) ^acRS)* 


BCS 


.♦4 


HLT 




CMP 


#600, (R5) 


BEQ 


. ♦4 


HLT 




CMP 


-(R3) ,-(R3) 


BJS8 


a(R4)*,a(R3)* 


B1S8 


a(R4)*,a(R3)* 


CMP 


#100601 ,(R5) 


BEQ 


.♦4 


HLT 




BICB 


a-(R4),a-(R3) 


BIC8 


a-(R4),a-(R3) 


BJT8 


a(R4)*,a(R3)* 


BNE 


BI T83 


BITB 


a-(R4) ,a(R3)* 


BNE 


.•••4 


HL I 




CMPB 


a(R4)*,a-(R3) 


BNE 


CMP83 


CMPB 


a(R4)^,a-(R3) 


BEQ 


.♦4 


HLT 





CONTAINS ADDRESS OF DEST DATA (fcVEN BrTE) 
CONTAINS ADDRESS OF DEST DATA (ODD BYTE) 
CONTAINS SOURCE DATA 
CONTAINS DEST DATA 



;RO=ADDRESS OF DEST DATA 
;R3 

•R5 " " 
•SUB 2 FROM R3 

;R3 POINTS TO ADDRESS OF DEST DATA 
.ODD BrTE 
.-EVEN BYTE 

:RO=ADDRESS OF SOURCE DATA 

:R4 POINTS TO ADDRESS OF SOURCE DATA 

.ODD BYTE 

.•EVEN BYTE 

;SET CARRY 

.•SOURCE DA TA=1 00001 

;DEST DATA=000600 

;ERR0RI MOV DOES AFFECT C BIT IN PSW 
.CHECK DEST DATA 

.error; INCORRECT RESULT 
.-POINT R4 BACK TO EVEN BYTE 

;DEST DATA=1 00601 
.•CHECK RES'JLT 

;ERR0R.' INCORRECT DEST DATA AFTER BIS8 



BIT83: 



CMP83: 



.••TEST 26 



CHECK BINARY OPS USING ADDRESS MODE 6 



000026 
001252 



001252 
177570 



TST26: 



SCOPE 
MOVB 
MOV 
BR 



#26.a#$TSTNM ;LOAD TEST NLWBER 

a#$TSTNM.a#DI SPLAY ..'DISPLAY TEST NUMBER 

,♦6 .-RESERVE TWO LOCATIONS 



J 



CtOKC-E POP 11/70 CPU EXERCISER MACm 

CEOKCE.pn i2-nAR-80 ^^:27 



J 8 

30A(1052) 12-mR-80 11:30 PAGE 47-75 
T26 CHECK BINARY OPS USING ADDRESS MODE 



SEQ 0100 



8603 


020732 


000000 






SDATA: 


.WORD 


8604 


020754 


000000 






DDATA: 


.WORD 


8605 














8606 


020736 
020742 


013702 


001604 






MOV 


8607 


010205 








MOV 


8608 


020744 


005065 


/\ ^ft ^7 y 

020734 






CLR 


8609 


020750 


01 2762 


ftft/* ftft 4 

000001 


ft 1ft ^7 1 

020732 




MOV 


8610 


020756 


056265 


020732 


ft 1ft ^7y 

020734 


1$: 


BIS 


8611 


020764 


006362 


/\ "^ft ^7 1 

020732 






ASL 


8612 


020770 


ftftZ 7^ 1 

006362 


ft 1ft ^7 1 

020732 






ASL 


861 3 


020774 


4 ft77^ft 

103370 








BCC 


8614 


020776 


ft H 7X C 

022765 


ftC IdC 

052525 


ft1A77y 

020754 




CMP 


8615 


021CX)4 


ftft4 y ft4 

001401 








ft c ft 

BcQ 


8616 


021006 


4 fty ftftft 

104000 








111 T 

HL T 


8617 


021010 


ftl 1 


\ ( ( ( ( f 


ATA77'^ 

020/3c: 




MAI/ 


8618 


ft ^ 4 ft4 Z 

021016 


fty z cx 1 

046562 


ftlft77y 

020734 


ATA77T 

020732 




BiC 


8619 


fti4 ft^y 

021024 


ft 7X IX C 


A1A7T1 


ATA77y 

020754 




n r T 


8620 


ftH ftV^ 

021032 


AA1 y Ai 

001401 








OCA 

BcQ 


a^ ^1 

8621 


ft'Sl ftT/ 

021034 


4 fty AAA 

104000 








ML 1 


8622 


ftH ftTX 

021036 


ftftX 7X C 

CX)6365 


ft lA^T / 

020/34 






ASL 


8625 


fti 1 fty 

0? "042 


ATX TX C 

026265 


ATA7TT 

020732 


ATA77y 

020734 






8624 


ATI ACA 

021050 


AA1 y Ai 

001401 










8625 














8626 


ATI AC '5 

021052 


1 Ay AAA 

104000 








HL 1 


8627 


021054 


AAATC 7 








r r r 

CCC 


ay 

8628 


ft T1 ft C Z 

021056 


ftXX IX c 

066265 


ATA77T 

020732 


ATA77y 

020754 




ADD 


oocv 


ft-J 1 ftX / 


1 A7AAT 

103002 








or r 
OCC 


8630 


ftTi ftXX 

021066 


1 ATAA1 

102001 








BVC 


8651 


A^l ATyA 

021070 


i AAAA1 
100001 








BrL 


8652 


ftl 1 rt^l 

021072 


1 Ay AAA 
104 000 






A r\r\X • 


HL T 
















7/ 

8654 


A^l A7/ 

021074 


AAX 7X T 

Ca)6562 


ATATTT 
020/3^ 






ACI 

ASL 


8655 


ATI 1 AA 

021 lOO 


1 XXTXC 

166265 




ATA77y 

0^0/ 3»» 




SUB 


OX 7X 

8656 


Alii AX 

021 106 


1 A7/ AI 

103401 








ore 
BCS 


8657 


ATI 1 1 A 

021 110 


AA1 / AI 

001401 








OCA 


ox. 7D 

86 5o 


ATI 1 1 T 

021 112 


1 A/ AAA 

104000 






CI DiL. ■ 


HL I 


ox 7ft 

8659 














So^O 


ftT i 1 1 y 


i 1 T^AA 

1 12700 


AAA777 

0003/ / 






MOVo 


864 1 


All 1 

021 120 


AI AAX T 

010062 


ATA"77 T 






MAI/ 

MOV 


az / o 

8642 


ftH 1 1/ 

021 124 


AIT 7X C 

012/63 


\ f f f f 1 


ATA77/ 

0^0/ 34 




MAI/ 

MOV 


Oz / 7 

8645 


ftH 1 71 

0211 52 


1 XX C AA 

166500 








CI D 

SUB 


8644 


ftH 1 7X 


AA1 y A1 

001401 








OCA 

BcQ 


8645 


ft 1 1 1 y ft 

021 140 


4 fty ftftft 

104000 








Ul T 

HLT 


OZ / X. 

8646 


ftH 1 y 1 

02114^ 


AXX 1X C 

066265 


ATA77T 


ATA77y 
0^0/ 34 


1 c . 

15. 


ADD 


OZ / "7 

8647 


ATI 1 CA 
021 1 50 


AAX 7X T 

006562 


ATA77T 

020/3<: 






ACI 

ASL 


oxy o 

o64o 


ATI icy 

021 1 !>4 


AAC1 X T 

00j16<: 


ATA77T 






r AM 

COM 


ox / 

8649 


AT1 1 XA 

021 160 


A7XTXC 

056<:65 


ATA77 T 

0c0/3c 


A TA y* / / 

OirC / 4 




Bi T 


ox C A 


ATI 1 XX 

021 166 


AA1 y A1 

001401 








QC A 

Bcw 


Ox C 1 

8651 


AT1 1 7A 

021 1 ' 0 


1 Ay AAA 
104000 








Ul T 

HL I 


OO JC 


Uc life 


Wj IOc 










8653 


021176 


026265 


020732 


020734 




CMP 


8654 


02^?(^ 


001401 








BEO 


8655 


021 c,o 


104000 








HLT 


8656 


021210 


026200 


020732 






CMP 


8657 


021214 


001352 








BNE 


8658 










9 • 





0 
0 

a»FACT0R.R2 

R2.R5 

DDATA(5) 

#1 .SDATA(2) 

SDATA(2).DDATA( 

SDATA(2) 

SDATA(2) 

1$ 

#52525, DDATA(5) 
.*4 

#-1,SDATA(2) 
DDATA(5),SDATA( 
SDATA(2).DDATA( 
.+4 

DDATA(5) 

SDATA(2),DDATA( 

.♦4 



.•RESERVED FOR SOURCE DATA 
.•RESERVED FOR DESTINATION DATA 

.-GET RELOCATION FACTOR AND USE AS AN 
.•INDEX VALUE TO POINT ^0 DATA 
.•PRESET DESTINATION DATA 
;THIS ROUTSINE FVIT A 1 BIT INTO EVERt 
5) .-OTHER BIT POSITION IN THE DEST- 

;INATION ADDRESS (52525) 



.■CHECK RESULT 

; ERROR. INCORRECT RESULT 



2) 
5) 



.'iCAJRCE DATA=1 25252 



.-ERROR' BIT INST FAILED 
;DDATA= 125252 



.•ERROR. CMP INST FAILED 



SDATA(2).DDATA(5) 

ADD6 

ADD6 

.+4 



SDATA (2) ;SDATA=52524 

SDATA(2),DDATA(5) 

SUB6 

.+4 



#377. RO ;R0=1 77777 (MOVB XR EXTENDS SIGN) 

RO. SDATA (2) 

#-1.DDATA(5) 

DDATA(5),R0 

.*4 

SDATA(2).DDATA(5) 
SDATA (2) 
SDATA(2) 

SDATA(2).DDATA(5) 
.-^4 

SDATA(2) 

SDATA(2).DDATA(5) 
.+4 

SDATA(2),R0 
1$ 



CEQKC-E POP 11/70 CPU EXERCISFR MACVII 
CEQKCE.P11 12-nAP-80 11:27 



K 8 

3OA(1052) 12-*1AR-80 11:30 PAGE 47-76 
T27 CHECK BINARY BYTE OPS USING ADDRESS MODE 



(1) 
(3) 
(2) 
(?) 
(2) 
(2) 
8659 
8660 
8661 
8662 
8663 
8664 
8665 
8666 
8667 
8668 
8669 
8670 
8671 
8672 
8673 
8674 
8675 
8676 
8677 
8678 
8679 
8680 
8681 
8682 
8683 
8684 
8685 
8686 
8687 
8688 
8689 
8690 
8691 
8692 
8693 
8694 
8698 
(3) 
(4) 
(3) 
(2) 
(2) 
(2) 
(2) 
8699 
8700 
8701 
8702 
8703 
8704 



021216 
021220 
021226 



021254 
021240 
021242 
021244 
021246 
021250 
021252 
021260 
021266 
021274 
021302 
021310 
021312 

021314 
021322 
021324 
021 326 
021334 
021336 

021340 
021346 
021354 
021356 

021360 
021366 

021370 
021372 
021374 
021376 



021400 
021402 
021410 
021416 
021420 
021422 
021424 



000004 
112737 
013737 



013702 
010204 
010403 
005203 
010305 
000261 
012762 
112763 
016264 
052764 
136263 
001401 
104000 

146264 
103401 
104000 
126364 
001401 
104000 

146365 
126265 
001401 
104000 

136564 
001401 
104000 
000415 
000000 
000000 



000004 
112737 
013737 
000000 
000000 
000000 
000000 



000027 
001252 



001604 



125252 
177125 
021374 
125125 
021374 



021374 
021374 



021374 
021374 



000030 
001252 



SEO 0101 



001252 
1 77570 



021374 
021374 
021376 
021376 
021374 



021376 
021376 



021376 
021376 



021376 021376 



001252 
177570 



.••TEST 27 



CHECK BINARY BYTE CPS USING ADDRESS MODE 6 



TST27: SCOPE 

M0V8 #27. a#$TST>ri ;L0AD TEST NUMBER 

MOV a#STSTNM.a#D] SPLAY -.•DISPLAY TEST NUMBER 

;N0TE: SDATAB(2). AND DDATAB(4) REFERENCE EVEN BYTE OF SOURCE t DEST DATA 
.AND SDATAB(3), AND DDArAB(5} FEFERENCE ODD BYTE OF SOURCE ft DEST DATA 



MOV 

MOV 

MOV 

INC 

MOV 

SEC 

MOV 

M0V8 

MOV 

BIS 

BITS 

BEO 

BIT86: HLT 

BICB 

BCS 

HLT 

CMP8 

BEO 

HLT 

BIC8 
CMP8 
BEO 

HLT 

BITS 
BEO 
HLT 
BR 

SDATA8: .WORD 
DDATA8: .WORD 



a»FACT0R.R2 

R2,R4 

R4,R3 

R3 

R3.R5 



.-GET INDEX VALUE 

;R2 FOR SOURCE EVEN BYTE INDEX. R4 FOR 
;DEST ODD BYTE. R3 FOR SOURCE EVEN 
;AND R5 FOR DEST ODD BYTE 



#125252,SDATA8(2) 

#177125,SDATA8(3) 

SDATAfl(2),DDATA8(4) 

#125125.DDATA8(4) 

SDATAB(2).SDATAB(3) 

.♦4 



SET CARRY 

SOURCE DATA - 052652 
DEST DATA - ^77777 



SDATAB(2).DDATAB(4) 
.♦4 

.•ERROR M0V.8IS.8IT;8IC DO NOT AFFECT 'C' 
SDATAfl(3).DDATAB(4) 
.♦4 



SDATA8(3).DDATAB(5) 
SDATAB(2).DDATAB{5) 
.*4 



DDATAB(5),DDATAB(4} 
.♦4 



LJB7 

0 

0 



.•RESERVE TWO WORDS 
.RESERVED FOR SOURCE DATA 
.RESERVED FOR DEST DATA 



**************************************************************** 

'•TEST 30 CHECK BINARY WORD OPS USING ADDRESS MODE 7 

• R2=ADDRESS OF SOURCE DATA. AND R3= ADDRESS OF DEST DATA 

**************************************************************** 



TST30: SCOPE 
M0V8 
MOV 

S8IN7: .WORD 
D6IN7: .WORD 
.WORD 
.WORD 



a#$TSTNM.a#DI SPLAY 



021426 010700 



Ue7: 



MOV 



0 
0 
0 
0 

PC.RO 



;LOAD TEST NLWBER 
.'.•DISPLAY TEST NUMBER 



CONTAINS ADDRESS OF SOURCE DATA 
CONTAINS ADDRESS OF DEST DATA 
CONTAINS SOURCE DATA 
CONTAINS DEST DATA 



CEOKC-E POP 
CE0KCE.P11 



11/70 CPU exerci:er 

12-#1AP-80 11:27 



L 8 

I^CYll 30A{1052) 12H1AR-80 11:30 PAGE 47-77 

T30 CHECK BINARY WORD OPS USING ADDRESS MODE 



8705 
8706 
8707 
8708 
8709 
0710 
8711 
8712 
8713 
87U 
8715 
8716 
8717 
8718 
8719 
8720 
8721 
8722 
8723 
8724 
8725 
8726 
8727 
8728 
8729 
8730 
8731 
8732 
8733 
8754 
8735 
8736 
8737 
8736 
8739 
8740 
8741 
8742 
8743 
8744 
8745 
8746 
8747 
8748 
8749 
8750 
8751 
8752 
8753 
8754 
8755 
8759 
(3) 
(4) 
(3) 
(?) 



021430 
021432 
021434 
021436 
021440 
021442 
021444 

021446 
021450 
021456 
021464 
021466 
021470 
021472 
021476 
021500 
021502 

021504 
021512 
021514 
021516 
021520 

021 522 
021530 
021532 
021534 
021536 
021540 

021542 
021546 
021554 
021556 
021560 
021562 
021564 

021566 
021574 
021576 

021600 
021606 
021610 



024040 








CMP 


-(R0),-(R0) 


010002 








MOV 


R0,R2 










rMD 


-(R2)--(R2) 










Mnv/ 
nuv 


r\\J f \ j\C ' 










nuv 
























MOW 

nuv 


Rf) fPs) 


WUcO 1 












ni 5777 


1 UUWv 


1 777LC\ 






ni 7777 


1 777^ 


1 m\L 






a<;RiN7 aDR I n7 


103001 








6CC 


M0V7 


100401 








BMI 


.*4 


1 (\LfW\ 
1 \)h\AAJ 










duo i nl r 




1777?? 








1 \Jc\AJ 1 








OVL 












DC W 




104000 








HLT 




KJcf (if 


1 777nA 

Mil UO 


1 777nA 

1 1 1 lyjo 




rMP 












nr^ 

□ LO 




1 Uc*«v 1 








ovo 


rMP7 


i<vu.ni 




















Ml T 






1 77670 


1 77670 




SUB 


SSeiN7,aDBIN7 












^m7 


1 \jC\rJc. 












\J\J 1 HU 1 








RFO 




ifvu.ni 








RMT 


■f4 








R7 ■ 


Ml T 




006277 


177650 






ASR 


aS6IN7 


067777 


177644 


177644 




ADD 


aSBIN7,aDBIN7 












ADD7 










R\/r 


ADD7 


001401 








BEQ 


ADD7 


100001 








BPL 


.♦4 


inZiOnn 

1 \JH\AJ\J 








Ml T 




0U7777 


1 77624 


177624 




BIC 


aSBIN7,aDBIN7 


001401 








BEQ 


.♦4 


1 \JH\J\J\J 








HI T 




0S7777 


177612 


1 7761 2 




BIS 


aS8IN7,a06IN7 


100401 








BMI 


.*4 


104000 








HLT 




027777 


177600 


177600 




CMP 


aSBIN7,aDBIN7 


001401 








BEO 


.*4 


104000 








HLT 





.•SOURCE DATA = 100000 
;DEST DATA = 100000 



;DEST DATA = 000000 



; (R2)=100000. (R3)=000000 



; (R2) =100000. <R3) =100000 



;(R2) =140000 

; (R2) = 1 40000, (R3) =040000 



************************************************************** 

;iTEST 31 SOME MISCELLANEOUS OPERATIONS INVOLVING THE PC 

NOTE: NONE OF THESE OPERATIONS SHOULD AFFECT THE PC 
••••*«***********»«*•*****************•****•***•*•*•«**•****** 



''EQK.C-E PDP 
CEQKCE.P11 



f2) 

(?) 

8760 
3761 
8762 
8765 
8764 
876S 
8766 
8767 
8768 
8769 
8770 
8771 
8772 
8773 
8774 
8775 
8776 
8777 
8778 
8779 
8780 
8781 
878? 
8783 
8784 
8785 
8786 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
8787 
(3) 
(3) 
(2) 
(2) 
(2) 
(2) 
(2) 
8788 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 



11/70 CP«J EXERCISER MACVH 
12-mR-80 11:27 



30A(1052) 12-mR-80 11:30 
^31 SOME MISCELLANEOUS 





/VWW 






1 ST 31 : StOrt 




Oc ' OCO 


1 1 0717 

l\df J' 




Am 0 

UU 1 C3d 


nuvo 


•31 .■•♦TSTNM 


n51 AT/. 


ni T717 




1 77570 


nov 


«f > 1 5 TNn , a#D J SPLAY 




LKJ jUW 






CLR 


on 


yjc 1 OHH 








CLR 


l> 




ni ri7n7 
U 1 \j/\)f 






MOV/ 


rC.PC 


1 0 Jc 


1 5n7n7 








or or 
PL ,rL 


Ut 1 05*t 


f\Xf^7r\7 

vyjfijf 






D I T 

oJ 1 


o/" or 
PC ,rC 




■'WW\7 








on or 


\)c 1 OOv 


1 ^^^717 
1 Uj' Of 






T C TD 


PC 












PC 


021664 


021007 






CMP 


(«0).PC 


021666 


131007 






BITS 


(RO).PC 


021670 


062707 


000000 




ADD 


*0,PC 


02'' 674 


023707 


001604 




CMP 


atfACTOR.PC 


021700 


133707 


001604 




BITS 


a»FACT0R,PC 


021704 


000240 






NOP 



M 6 

PAGE 47-78 
OPERATIONS INVOLVING THE PC 



.•LOAD TEST NUMBER 

;, -DISPLAY TEST NUMBER 



I 



SEO 0103 



021706 
021712 
021716 
021 720 
021 722 
021 724 
021730 
021734 
021740 
021742 
021 744 
021746 
021 750 
021754 
021760 



163707 
063707 
000240 
024607 
1 32607 
026707 
166707 
046707 
000401 
000000 
000004 
010702 
062702 
012707 
000000 



001604 
001604 



000012 
000006 
000002 



000012 
044042 



;THE NEXT TWO INSTRUCTION CAUSE THE PROGRAM TO JUMP TO THE UNRELOCATED 
;COOE AND TO RETURN ON THE FOLLOWING INST (IF THE CODE IS RELOCATED) 



1$: 

RELE2: 



REL22: 



SUB 
ADD 
NOP 
CMP 
BITS 
CMP 
SUB 
BIC 
BR 
0 

SCOPE 
MOV 
ADD 
NOV 
.WORD 



a»FACTOR,PC 
a#FACTOR.PC 

-(SP),PC 

(SP)*, PC 

1$,PC 

IS.PC 

IS.PC 

.♦4 



PC.R2 
#12.R2 
#RELOC.PC 
0 



.•JUMPS TO UNRELOCATED CODE 
.•RETURNS 



.-BRANCH OVER IS 



:G0 RELOCATE PROGRAM CODE 



.2222222222222 LAST ADDRESS OF CODE TO BE RELOCATED 22222222222 



•TEST 32 



CHECK BINARY BVTE OPS USING ADDRESS 



; ********* 



021 762 
021770 
021 772 
022000 



022006 
022010 
022012 
022016 
022020 
022024 
022030 
022034 
022042 



012767 
000004 
112737 
013737 



010700 
005740 
010037 
010700 
162700 
010037 
010737 
062737 
013737 



000001 157406 



000032 
001252 



001610 

022020 
001604 
001262 
000030 
001262 



001252 
177570 



TST32; 



nov 

SCOPE 

NOVB 

MOV 



#1.STIMES 



;;D0 1 ITERATION 



#32,anTST^#! 

a«$TST^M,alrDI SPLAY 



;LOAD TEST NUMBER 

; .-DISPLAY TEST NUfBER 



.S8TTL START OF SECTION 3 
.-3333333333333 FIRST ADDRESS TO BE RELOCATED 333333333 



001262 
001260 



REL3: MOV PC.RO 

TST -(RO) 

nov RO.aiTFRSTAD 

nov pc.RO 

SUB It. .RO 

nov R0,a#FACTOR 

MOV PC.arSLPERR 

ADD *30.a#$LPERR 

MOV a«SLPERR.a#SLPADR 



GET PC 

RO CONTAINS THE ADDRESS OF REL3 
SAVE 

GET CURRENT PC 
SUBTRACT RELOCATION FACTOR 
SAVE RELOCATION FACTOR 
SET LOOP ADDRESS 
ADJUST 



N 8 

CEOKC-E PDP n/70 CPU EXERCISER MACrll 30A(1052) 12H1AR-80 11:30 PAGE 47-79 
CEQKCE.PII 12-#1AR-80 11:27 START OF SECTION 3 



SEO 0104 



( 1 ) 






001600 






T^TO 
1 d 1 0 


( 1 ) 


o??ns4 

wcCv/ J*ff 


001^07 










V 1 / 






\J\JCj I *• 






JMP 








1 ?S?S? 






nuv 




npp06/^ 










FtUV 




0PP070 










Di LO 


879? 


0PP07P 




1P5000 










0??n76 










DC W 


8794 


vC c 1 vV 


1 VHVA/V 








U/ T 
riL 1 


a79S 












8796 




005004 










8797 


02P104 


150304 








RI ^ 






0??704 


000P5? 










0221 12 


001401 










8800 


02?1 14 


104000 








Ml T 
ML 1 


8801 














880? 


0221 16 


1 10404 








Mnv/o 


8803 


02? 120 


022704 


1 77652 










022124 


001401 








RFQ 

DC «■ 


8805 


0221 26 


104000 








HI T 


8806 














8807 


022130 


132704 


177525 






RITR 

Olio 


8808 


022134 


OOT401 








RFO 


8809 


022136 


104000 








HI T 


8810 














8811 


022140 


105104 










8812 


022142 


110404 








MOVB 


8813 


022144 


022704 


000125 






fMP 


8814 


022150 


001401 








RPO 
□c w 


8815 


022152 


104000 








HLT 


8816 














881 7 


022154 


1 50304 








AT W 
Oi oo 


8818 


022156 


105204 










8819 


022160 


001401 










8820 


022162 


104000 








HL T 


8821 














(3) 














(3) 














(2) 














(2) 


022164 


000004 










(2) 


022166 


112737 


000033 


001252 






(2) 


0221 74 


013737 


001252 


177570 




MOV 


8822 


022202 


000406 








BR 


8823 


022204 


000000 






S8II«7: 


.WORD 


8824 


022206 


000000 








UORf) 


8825 


022210 


000000 










8826 


022212 


000000 

www 










8827 


022214 


000000 

www 






f)RTAR7- 




8828 
8829 


022216 


000000 

W V W V 








uopn 


8830 


022220 


010700 






BINB7: 


MOV 


8831 


022222 


024040 






CMP 


8832 


02222U 


010060 


1 77772 






MOV 


8833 


022230 


010060 


1 77774 






MOV 


8834 


02221^ 


005260 


17777^ 






INC 


8835 


022240 


005740 








TST 



aVNEXEC 

.♦6 

RELE3 

#125252. R3 

R3.R4 

R3.R4 

#1 25000. R4 
.+4 



R4 

R3,R4 

*252.R4 

.♦4 



R4.R4 

#1^7652,R4 
.♦4 



#1 77525. R4 
.♦4 



R4 

R4.R4 

#125.R4 

.♦4 



R3.R4 

R4 

.♦4 



;8R If TEST CODE TO BE EXECUTED 



R3-R4=1 25252 

R3=1 25252, R4=1 25000 

CHECK RESULT 



R3=125252.R4=0 
R3=1 25252. R4=000252 
CHECK RESULT 



;R4=1 77652 
.•CHECK RESULT 



R4=1 77525 
R4=000125 
CHECK RESULT 



;R3=125252.R4=000377 



CHECK BINARY BYTE OPS USING ADDRESS MODE 7 



#33.a#$TSTNM 
WrSTSTNM.arDISPLAY 



BJ/«7 
0 
0 
0 
0 
0 
0 

PC.RO 

-(RO),-{RO) 

R0.-6(R0) 

R0.-4{R0) 

-4(R0) 

-(RO) 



;LOAD TEST NUMBER 
; .-DISPLAY TEST NUMBER 



RESERVE SPACE FOR ADDRESSES & DATA 
CONTAINS ADDRESS OF SOURCE EVEN BYTE 
CONTAINS ADDRESS OF SOURCE ODD BYTE 
CONTAINS ADDRESS OF DEST EVEN BYTE 
CONTAINS ADDRESS OF DEST ODD BYTE 
CONTAINS SOURCE DATA 
CONTAINS DEST DATA 



;R0 = ADDRESS OF DEST DATA 

.■LOAD ADDRES OF DEST EVEN BYTE DATA 

.•LOAD ADDRESS OF DEST ODD BYTE DATA 
;RO=ADDRESS OF SOURCE DATA 



CEQKC-E POP n/^'O CPU EXERCISER WACVll 
CFQICCE.PII 12-^-80 11:27 



B 9 

50A(1052) 12-fVVR-80 11:50 PAGE A7-80 
T53 CHECK BINARY BYTE OPS USING ADDRESS MODE 



S£Q 0105 



8836 

8837 


0222^2 


010060 


}77770 


022246 


010060 


}77772 


8858 


022252 


005260 


}77772 


8839 








8840 


022256 


005002 




8841 


022260 


012705 


000002 


8842 


022264 


012704 
012705 


}77?7it 


8845 


022270 


1 77776 


8844 








8845 








8846 


02227^ 


005020 
005010 




8847 


022276 




8848 


022500 


015746 


001604 


8849 


022504 


061602 




8850 


022506 


061605 




8851 


022510 


061604 




8852 


022512 


062605 




8853 








8854 


022514 


112775 


y77777 


8855 


022122 


152772 


000577 


8856 


022550 


001401 




8857 


022552 


104000 




8858 








8859 


022554 


157574 


022204 


8860 


022542 


105274 


022214 


8861 


022546 


001401 




8862 


022550 


104000 




8863 








8864 


022552 


105575 


022214 


8865 


022556 


005274 


022214 


8866 


022362 


^ 27 575 


022204 


8867 


022570 


001401 




8868 


022572 


4 ft y ftft ft 

104000 




8869 








8870 


022574 


147575 


022204 


8871 


022402 


001401 




8872 


022404 


4ft/ ftA^ 

104000 




8873 








8874 


022406 


105075 


022204 


8875 








8876 








8877 


022412 


1 57475 


022214 


3878 


022420 


1061 74 


022214 


8879 


022424 


105572 




ft ft ft ^ 

8880 


022426 


022772 


4 ^^y f\f\ 

1 77400 


8881 


022454 


001401 




8882 


022456 


104000 




8885 








ft ft ft / 

8884 


022440 


000572 


022204 


OODC 


U2c44«t 


1 1 '577C 


UuUcUU 


8886 








8887 


022452 


147572 


022214 


8888 


022^60 


106075 


022214 


8889 


022464 


105572 




8890 


022466 


005772 


022204 


8891 


022U72 


001401 





MOV 
MOV 

INC 

CLR 
MOV 
MOV 
MOV 



CLR 
CLR 
MOV 
ADD 
ADD 
ADD 
ADD 

MOVE 
BITS 
BEQ 

HLT 

BIS6 
INC8 
BEO 
HLT 

DECS 

INC 

CMP8 

BEQ 

HLT 

BICB 

BEQ 

HLT 



RO.-IO(RO) 

R0.-6(R0) 

-6(R0) 

R2 

*2.R5 

*-4.R4 

*-2.R5 



.LOAD ADDRESS OF SOURCE EVEN BYTE DATA 
.LOAD ADDRESS Of SOURCE ODD BYTE DATA 
.SET INDEX REGISTERS 

:as6ire7(2):as8ire7(5) reference even ( 

.-ODD BYTE SOURCE DATA; aD8ire7(4} ;aD6INB7(5) 
.•REFERENCE DEST EVENt ODD BYTE DATA 



PRESET SOURCE DATA 
PRESET DEST DATA 
GET RELOCATION FACTOR 
AND ADD TO INDEX VALUES 



(RO)* 
(RO) 

atFACTOR.-CSP) 
(SP).R2 
(SP).R5 
(SP).R4 
(SP)*.R5 

#-1,8S8INB7(5) ;SRC DATA = 177400 

*577,aS8INB7(2) .-CHECK THAT EVEN BYTE WAS NOT AFFECTED 
.♦4 ;8Y MOVE INSTRUCTION 



as8iNB7(5).aD8ire7(4) 

a08INB7(4) .-CHECK THAT BIS SET ALL BITS 

.♦4 



aDeiNB7(5) ;DEST DATA 

aD8INB7(4) ;DEST DATA 

aS6INB7(5).aoeiNB7(5) 
.♦4 



aseiNB7(5).aoeiNB7(5) 

.♦4 



177400 
1 77401 



CLR8 aS8INB7(5) ;SRC DATA = 000000 

.•THIS ROUTINE SETS ALL BITS IN THE SOURCE ODD BYTE BY BISING A BIT FROM 
;THE DEST EVEN BYTE INTO THE SOURCE ODD BYTE 
BIS7: BIS8 aDaiNB7(4) .aS8ir«7(5) 
aDeiNB7(4) 
BIS7 

*177400.aSBIfC7(2) ;CH£CK RESULT 

.♦4 



R0L8 
BCC 
CMP 
BEQ 

HLT 



SUAB aS8INB7(2) ;SRC DATA = 000577 

MOVB #200.aDeI^C7(5) ;DEST DATA = 100000 

BIC7: BICB aoeire7(S) .asBire7(2} 

RORB aoeI^e7(S) 

BCC BIC7 

TST aS8I^C7(2) 

BEQ .♦4 



CEQKC-E POP n/?0 CPU ExERCI:ER MACVII 30A(1052) 12H 

CEQKCE.Pn 1?-«Afi-80 11:27 T33 CHECK 

8892 022474 mOOO HLT 
tt893 

8894 022476 012702 00000^ OAERR: MOV 

8895 022502 010703 MOV 

8896 022504 000401 BR 

8897 022506 000000 .WORD 

8898 022510 005723 TST 

8899 022512 010313 MOV 

8900 022514 005213 INC 

8901 022516 012737 022644 000004 MOV 

8902 022524 063737 001604 000004 ADD 
8905 022532 013737 000004 000010 MOV 
8904 

8905 022540 000277 SCC 

8906 022542 160212 SUB 

8907 022544 104000 HLT 

8908 022546 060222 ADD 

8909 022550 104000 HLT 

8910 022552 006342 ASL 

8911 022554 104000 HLT 

8912 022556 106512 MFPD 

8913 022560 104000 HLT 

8914 022562 170412 CLRF 

8915 022564 104000 HLT 

8916 022566 042202 BIC 

8917 022570 104000 HLT 

8918 022572 164202 SUB 

8919 022574 104000 HLT 

8920 022576 155202 BIS8 

8921 022600 104000 HLT 

8922 022602 105532 A0C8 

8923 022604 104000 HLT 

8924 022606 163302 SUB 

8925 022610 104000 HLT 

8926 022612 005733 TST 

8927 022614 104000 HLT 

8928 022616 106533 MFPD 

8929 022620 104000 HLT 

8930 022622 170453 CLRD 

8931 022624 104000 HLT 

8932 022626 137702 177775 BITS 

8933 022632 104000 HLT 

8934 022634 105477 177773 NEGB 

8935 022640 104000 HLT 

8936 022642 000406 BR 
8937 

8938 022644 062716 000002 1$: ADD 

8939 022650 052766 000017 000002 BIS 

8940 022656 000002 RTl 
8941 

8942 022660 012706 000700 2$: MOV 

8943 022664 012737 064422 000004 MOV 

8944 022672 012737 064350 000010 MOV 

8945 - 

(3) ;*TEST 34 

(5) ••»»•••••••••, 



C 9 

IAR-80 11:30 PAGE 47-81 

BINARY BYTE OPS USING ADDRESS MODE 7 



SEO 0106 



#1.R2 .-LOAD R2 WITH ODD # 

PC.R3 

.♦4 .RESERVE SPACE FOR A WORD 

0 ;WILL CONTAIN AN ODD ADDRESS 

(R3)* ;STEP R3 TO POINT TO WORD ABOVE 

R3.(R3) 

(R3) .-AND MAKE ODD 

f1$.8#ERRVEC ;SET ODD ADDRESS ft RESERVED INSTRUCTION 
d#FACT0R,a4rERRVEC 

a^TERRVECdVRESVEC :T0 TRAP TO IS BELOW 

;SET ALL CCS 

R2.(R2) 

R2.(R2)* 

-(R2) 

(R2) 

(R2) 

(R2)*.R2 

-(R2).R2 

a-(R2).R2 

9(R2)« 

a(R3)*.R2 

a(R3)* 

a(R3)* 

a-(R3) 

a.+i.R2 
a.-i 

2$ 

#2,(SP) .-ADJUST RETURN PC 

#17.2(SP) .SET CONDITION CODES ON RETURN 



fSUPSTK.SP .RESET STACK PTR 

#ERPRT,a#ERRVEC .RESET TIME OUT VECTOR 
#RESERR.a#RESVEC 



CHECK JUMP INSTRUCTIONS 



(.fOKC-E POP 11/7C CPU EXERCISER nACrM 30A(105?) 12H 
CEQKCE.PII 1?-*UR-80 ^^:27 T34 CHECK 



(?) 
(?) 


02? 700 


000004 






^ST34: 


SCOPE 


(?) 


022702 


112737 


000034 


001 ?52 




M0V8 


(?) 


0??710 


013737 


001?5? 


177570 




MOV 




0??716 


010700 








MOV 




022720 


062700 


00001? 






ADD 


89<i8 


02272'* 


000277 








sec 


89<i9 


022726 


000110 








JMP 


8950 


022710 


00040? 








BR 


8951 


022712 


000?50 








CLN 


895? 


0??734 


000775 








BR 


8953 














995A 


0??736 


103003 








see 


8955 


0??740 


10?00? 








BVC 


8956 


0227U2 


001001 








BNE 


8957 


0227t>i> 


lOCXWI 








BPL 


8958 


022746 


4 y\ y /\y\/N 

104000 






JMP1 : 


HLT 


8959 














8960 


022750 


00500? 








CLR 


8961 


022752 


010703 








WOV 


896? 


022754 


000401 








BR 


8963 


022756 


000000 








.WORD 


8964 


022760 


0057?3 








T C T 

TST 


8965 


022762 


010313 








UAl / 

PTOv 


8966 


022764 


010300 








nov 


8967 


022766 


y\^ ^^^4 7 

06?713 


AAA A 

0000?? 






ADD 


8968 


022772 


y\4 

010300 








MAI ( 

MOv 


8969 


02277 1* 


r\J\A\ 4 77 

000133 








JMP 


8970 


022776 


/\AAy A^ 

000402 








BR 


8971 


023000 


00510? 








COM 


8972 


023C02 


y\y\y\ ■7'7C 

(XX) 775 








BR 


8973 


023004 


/\AC "^A"^ 

005?0? 








INC 


897A 


023006 


001003 








BNE 


8975 


023010 


005 7?0 








T C T 

TST 


8976 


A^9A4 ^ 

023012 


A ^ AAA 7 

0?0003 








CMP 


8977 


023014 


AA ^ y A 1 

001401 








OC A 

BEQ 


8978 


023016 


4 A y AAA 

104000 






JnP3: 


111 T 

HLT 


8979 














8980 


023020 


AA C AA 

00500? 








CLR 


8981 


023022 


A4 A^A / 

010704 








MOV 


898? 


023024 


A 4 A / AA 

010400 








MOV 


8983 


023026 


AAA y A 

00040? 








BR 


8984 


025030 


00510? 








COM 


8985 


023032 


AAA y A 7 

000403 








BR 


8986 


023034 


0??4?4 






iS: 


CMP 


8987 


023036 


AAC y 

005 7?4 








TST 


8988 


023040 


000144 








JMP 


8989 


023042 


AAC "^A 

005?02 






2$: 


INC 


8990 


023044 


AA4 AA 7 

001003 








BNE 






\JCC\}C\J 








\.rr 


899? 


023050 


0?0004 








CMP 


8993 


023052 


001401 








BEO 


8994 


023054 


104000 






JMP4: 


HLT 


8995 














8996 


023056 


010703 








MOV 


8997 


023060 


000401 








BR 



D 9 

lAR-80 11:30 PAG£ 47-8? 
Jl#»> INSTRUCTIONS 



SCO 0107 



#34.anTST>#i 

airSTSTW.a#DI SPLAY 

PC-RO 

»'2.m 



.LOAD TEST NLM3ER 

;. -DISPLAY TEST NLMBER 



(RO) 
.*6 

.-4 

JMP1 
JMP1 
JMP1 
.♦4 



R? 

PC,R3 
.♦4 

0 

(R3)* 

R3.(R3) 

R3,R0 

#??,(R3) 

R3,R0 

a(R3)* 

.+6 

R? 

.-4 

R2 

JMP3 

(RO)* 

R0.R3 

.*4 



;SET ADDRESS FOR JMP INST 
;SET CCS 



;JMP INST Jl^S HERE 



.-ERROR! INCORRECT CCS AFTER JMP 
.-SET INDICATOR 

.-RESERVE WORD FOR JMP ADDRESS 
.-CONTAINS ADDRESS FOR JMP INST 



(R3) IS JMP ADDRESS 

JUMP TO ADDRESS CONTAINED IN R3 

COMPLEMENT If^ICATOft 

CHECK INDICATOR 

; CHECK AUTO-INC R3 



R? 

PC.R4 

R4.R0 

1$ 

R? 

?$ 

(R4)>,(R4)* 

(R4)> 

-(R4) 

R2 

JMP4 

(RO)*.(RO)* 

R0.R4 

.+4 



.-SET INDICATOR 

.•SET UP JMP REGISTER 

.-SET UP CHECK REGISTER 

.-COMPLEMENT INDICATOR 



R4=JMP ADDRESS 
USE R4 AS ADDRESS 
CHECK INDICATOR 



.•CHECK AUTO-DEC R4 



PC.R3 
.*4 



.-RESERVE WORD FOR JMP ADDRESS 



E 9 

CEQKC-E POP 11/70 CPVJ EXERCISFR ^UCVH 30A(1052) 12-W-80 11:50 PAGE 47-83 
CEQKCE.P11 12-WR-80 11:27 T54 CHECK JLMP INSTRUCTIONS 



8998 
8999 
9000 
9001 
9002 
9003 
9004 
9005 
9006 
9007 
9008 
9009 
9010 
9011 
9012 
9013 
9UU 
9015 
9016 
9017 
9018 
9019 
9020 
9021 
9022 
9023 
9024 
9025 
9026 
9027 
9028 
9029 
9030 
9031 
9032 
(3) 
(3) 
(2) 
(2) 
(2) 
(2) 
9033 
9034 
9035 
9036 
9037 
9038 
9039 
9040 
9041 
9042 
9043 
9044 
9045 
9046 
9047 



023062 
023064 
023066 
023070 
023074 
023076 
023100 
023^02 
023104 
023106 
023110 
023112 
023114 
023116 
023120 

023122 
023124 
023126 
023130 
023134 
023136 
023140 

023142 
023150 
023156 
023160 
023162 
023164 
023170 
023172 
023174 
023176 



023200 
023202 
023210 
023216 
023222 
023226 
023230 
023232 
023234 
023236 
023240 
023242 
023246 
023250 
023252 
023254 
023256 
023260 



000000 
005723 
010313 
062723 
010300 
000402 
005102 
000401 
000153 
005202 
001003 
005740 
020003 
001401 
104000 

000402 
005102 
000402 
000167 
005202 
001401 
104000 

012767 
063767 
000402 
005102 
000403 
000177 
000000 
005202 
001401 
104000 



000004 
112737 
013737 
013705 
012702 
060502 
000277 
000242 
004512 
005702 
001017 
023705 
001014 
000414 
000205 
103011 
102410 
001007 



000016 



177770 



023160 
001604 



000000 



000020 
000012 



1$: 



2S: 

3$: 
4S: 



JMP5; 



1$: 

2$: 
3$: 

JMP6: 



1$: 

2$ 
7$ 
3$ 



JI1P7: 



000035 
001252 
001604 
023254 



001252 
177570 



001604 



TST35: 



JSR1 : 



1$: 



2$: 
3$: 



.WORD 

TST 

MOV 

ADD 

MOV 

BR 

COM 

BR 

JMP 

INC 

BNE 

TST 

CMP 

BEO 

HLT 

BR 

COM 

BR 

JMP 

INC 

BEO 

HLT 

MOV 

ADD 

BR 

COM 

BR 

JMP 

.WORD 

INC 

BEO 

HLT 



0 

(R3)* 

R3.(R3) 

#16. (R3)* 

R3.R0 

3S 

R2 

4$ 

a-(R3) 

R2 

JMP5 

-vRO) 

R0.R3 

.♦4 



2$ 

R2 
3$ 
1$ 

R2 
.>4 



#1$.7$ 

*rFACT0R,7$ 

2S 

R2 

3S 

a7s 

0 

R2 



.CONTAINS JUMP ADDRESS 



.•LOAD CHECK REGISTER 



.•JUMP TO 2$ VIA 1$ ABOVE 
.•CHECK INDICATOR 



.•CHECK AUTO-DEC R3 



.•COMPLEMENT INDICATOR 



.>4 



SET UP JMP ADDRESS 
ADD RELOCATION FACTOR 
GO TO JMP a7$ INST 
COMPLEMENT INDICATOR 
GO TO CHECK ROUTINE 
JMP TO 1$ A80VE VIA 7$ 
CONTAINS JMP ADDRESS 
CHECK INDICATOR 



•TEST 35 



CHECK JSR INSTRUCTIONS 



SCOPE 

MOVB 

MOV 

MOV 

MOV 

ADD 

sec 

CLV 

JSR 

TST 

BNE 

CMP 

BNE 

BR 

RTS 

BCC 

6VS 

BNE 



#35.ar$TSTf*l .•LOAD TEST NlfBER 

air$TSTI#1,a#0I SPLAY ; .-display TEST NIJ«ER 

a#FACT0R.R5 ;6ET RELOCATION FACTOR 
#3$,R2 .FORM DEST ADRS 

R5.R2 .ADD RELOCATION FACTOR 

.PRESET CCS 



R5.(R2) 

R2 

4$ 

*rFACT0R.R5 

4S 

JSR3 

R5 

4$ 

4$ 

4S 



;60 TO 3$ VIA R2 
.•CHECK INDICATOR 
;R2 SHOULD=0 

.■CHECK THAT RTS R5 RESTORED R5 

;G0 TO NEXT TEST 
.•RETURN FROM SUBROUTINE 
.-CHECK THAT JSR DID NOT 

.-AFFECT CCS 



(fQKC-E POP 11/^0 CPU ExEPCI^fP MACvn 
CFQKCE.P11 1?-nA«-80 11:27 



F 9 

30A(1052J 12-mR-80 11:30 PAGE 47-84 
T35 CHECK JSR INSTRUCTIONS 



SEQ 010<? 



9048 


025262 


100006 










9049 


023264 


AA C AA ^ 

OC5002 






CLR 


DO 

R2 


9050 


023266 


012704 


023256 




•WV 


#1$,R4 


9051 


023272 


061604 






ADD 


(SP)-R4 
R4.R5 


9052 


023274 


ATA/ AC 

020405 






CMP 


9055 


025276 


AAl C 

001 765 






aEo 


2% 


9054 


023300 


^ A/ AAA 

104000 




*(> . 


HLT 




9055 














9056 








; CHtCK 


JSR INSTRUCTION ADDRE 


9057 


ATI /A'^ 


All 7A/ 


AA 1 ^ Ay 

00^604 


J5R3: 


MOV 


•*r AC f OR 


9058 










CLR 


RO 


9059 


A^ 1 1 i A 

025510 


A1 ■T 7AC 

012705 


023350 




MOV 


«1 C DC 

*1 »,R5 


9060 


025314 


A^AV AC 






ADD 


D/ DC 

Rh ,H5 


9061 


023316 


A1 AC A1 






MOV 


OC DO 

R5-H<J 
#5>> ln5^ 


9062 


025320 




A07 7y X. 

023546 




MOV 


^^^^ y 

9065 


023324 


060415 






ADD 


D/ /DC \ 


9064 


025326 


000401 






on 


o« 
c* 


9065 


023350 


000000 




1». 


LJADf\ 


n 
U 


9066 


023332 


AAy / tc 




2». 


JSR 


Dy A/DC \ ^ 


906/ 


02335*> 


AAC OAA 

005200 




7C . 

3»: 


INL 


on 


906o 


025536 


AA1 A1 T 

00101 5 






DIUC 




9U6V 


A'^TT/ A 

U2554U 


AAAy 1 7 

00041 3 






on 


Jon** 


90/U 


A'5TT/ '3 

02554^ 


AAC 1 AA 

005100 






r AM 


on 


1 


U25i4*i 


AAA 0 Ay 
U002OH 








y 

H 




U25346 


A1 ■D7ni 
01 2'U3 


n0777Z. 


cc • 

J*. 


l*WV 


ir7« 




U25532 


AA1 

Od1oU3 






Ann 


(SP),R3 




A011SZ 

U25j>4 


AOAyAT 








9075 


023356 


AA1 AAT 
001003 






Que 


AC 


▼0/^6 


023360 


AAC 700 






TCT 


VKc^ * 




U233o2 


AOAOAC 

02U2U5 






in" 


DO DC 


90ro 


0233O4 


AA1 7AA 

001 y^66 






DC A 


AC 




U23300 


IUhUUU 






ML 1 




90o0 














"aJo 1 










■CD TMCT 

Jon inoi 


AnnOECC MfYtF 
ni/l/nC OO ruuc 




A0177n 

U233/^U 


A1 X7f\/. 
01 3/^U*» 






HUV 


aMC Af Tim DA 






A1 Ay AC 

010hU5 






Mnu 


DA DC 


Wo4 




A1 A7n7 

U IUyU3 






Mnu 


or D'^ 


9065 


AOT/ AA 

02 3400 


AAAy A1 

00040 1 






DO 
on 


OC 
2* 


Woo 


AOT/ A'^ 

0234U2 


AAAy AC 

000405 








AC 


90of 


AOTy Ay 
U234U»» 


A00707 




ot • 

2»: 


rMD 




woo 


AOTy AiL 

U23406 


AAA077 
0002' ' 








R4.-(R3) 


90o9 


AOTy 1 A 

U234H' 


AAy y y 7 






JSR 


WW 


AOTy 1 0 


1 Ay AAA 




7C - 


HLT 




WVl 


A'^Ty 1 y 
02341^ 


AAA/ 1 / 

00041*. 






BR 


JSR6 


WV^ 


U23*»16 


1 A7A1 0 

103012 




/.« - 
•I* . 


BCC 


5$ 


WV5 


023^20 


1 A OA 1 1 

10201 1 






SVC 


5$ 


WVh 


A^Ty 50 


AA1 A1 A 

001010 






BNE 


5S 


WV^ 


AOTy oy 
U23*»24 


1 AAAA7 
10000' 






BPL 


5$ 


9WD 


023^26 


A1 07A0 

01 2' 02 


A 3 7/. 1 0 




MOV 


/r3$,R2 


Q0Q7 


Uc J*» jc 








ADD 


(SP),R2 


9098 


023434 


020204 






CMP 


R2,R4 


9099 


023436 


00^002 






BNE 


5S 


9100 


023440 


005724 






TST 


(R4)* 


9101 


023442 


000204 






RTS 


R4 


910? 


023444 


104000 




5$: 


HLT 




9103 















CLEAR INDICATOR 

GET UNRELOCATED RETURN ADDRESS 
ADD RELOCATION FACTOR (OLD R5) 
CHECK THAT OLD R5 WAS PLACED ON THE 
STACK, fc THAT NEW R5 CONTAINS RETURN PC 
ERROR.' ABOVE 



MODE 3 
;GET RELOCATION FACTOR 
;SET INDICATOR 



.SET UP JSR DEFERRED ADRS 



(R5)=DEST ADRS 
RESERVE WORD FOR ADDRESS 
CONTAINS DEST ADRS FOR JSR 
JSR TO 5$ VIA 1$ ABOVE 
CHECK INDICATOR 



■COMPLEMENT INDICATOR 
.-RETURN FROM SUBROUTINE 
;GET ll«ELOCATED RETURN ADDRESS 
.-ADD RELOCATION FACTOR (OLD R4) 



CHECK AUTO-INC R5 
GO TO RTS 
ERROR ABOVE 



;G0 TO 2% 

;G0 TO NEXT TEST 



GET UNRELOCATED RETURN ADDRESS 
ADD RELOCATION FACTOR (OLD R4) 
CHECK THAT CALCULATED RETURN 
PC = NEW R4 



V 



CEQKC-E POP n/70 CPU EXE«CI:FR *1ACV11 
CEQKCE.P11 12-#1A«-80 11:27 



G 9 

30A(1052) 12-«AR-8C 11:30 PAGE 47-85 
r35 CHECK JSR INSTRUCTIONS 



SfO 0110 



91 CK. 
9105 
9106 
9107 
9108 
9109 
9110 
9111 
9112 
9115 
91U 
9115 
9116 
9117 
9118 
9119 
9120 
9121 
9122 
9123 
9124 
9125 
9126 
9127 
9128 
9133 
(4) 
(5) 
(4) 
(4) 
(3) 
(2) 
(2) 
(2) 
(2) 
9134 
9135 
9136 
9137 
9138 
9139 
9140 
9141 
9142 
9143 
9144 
9145 
9146 
9147 
9148 
9149 
9150 
9151 
9152 
9153 
9154 



025446 
023450 
023452 
025454 
025460 
023462 
025464 
025466 
025470 
025472 
02 5474 
025476 



023530 
023532 
023540 
023546 
023552 
023554 
023560 
023562 
023564 
023566 
023572 
023574 
023600 
023604 
023606 
023610 
023612 
023620 
023622 



000401 
000405 
010700 
004767 
100407 
104000 
022020 
020016 
001401 
104000 
000270 
000207 



000004 
112737 
013737 
012705 
005000 
052740 
011015 
011504 
010746 
062716 
012645 
042710 
052710 
012003 
010540 
000004 
012737 
104000 
000457 



023624 012002 



1 m7(i 



023500 


013746 


001604 


023504 


062716 


023524 


023510 


000277 




023512 


004076 


000000 


023516 


003003 




025520 


102002 




025522 


000402 




025524 


000200 




025526 


104000 




023530 







;TEST 


JSR INST 


ADDRESS MCX)E 


JSR6: 


BR 


2$ 


1$: 


BR 


5$ 


2$: 


MOV 


PC .RO 




JSR 


PC, IS 




BMJ 


JSR7 




HLT 




3$: 


CMP 


(RO)*.(RO)* 




CMP 


RO. (SP) 




BEQ 


.♦4 




HLT 






SEN 






RTS 


PC 


; TEST 


JSR INST 


ADDRESS nOOE 


JSR7: 


nov 


airFACTOR,-( 




ADO 


*1$.(SP) 




f f ^ 

see 






JSR 


RO.SvSP) 




BGT 






BVC 


5$ 




BR 


4S 


1$: 


RTS 


RO 


3$: 


HLT 




4S: 







;G0 TO NEXT TEST 
.•ERROR ON CCS 

; CHECK THAT RETURN ADDRESS IS ON THE 
.•STACK 

.SET N 



GET RELOCATION FACTOR 
FORM ADDRESS OF IS BELOW 
SET ALL CCS 
JSR TO 1$ 



.RETURN 
.-ERROR!.' 



INCORRECT CCS 



•TEST 56 CHECK lOT TRAP (AND R0LB/ASL8) 

• THIS TEST CHECKS THAT THE PSU IS CORRECT AFTER THE lOT AND THAT THC 

• 'NEWPSW (FROM lOTVEC+2) IS CORRECT. 



TST36: 



lOTTST: 



000036 001252 
001252 177570 
000022 

000200 



000036 

000557 
000244 



054456 000020 10S: 



IS: 



023626 
025632 



012725 
012^15 



054^56 
000200 



SCOPE 

nov8 

nov 

nov 

CLR 
BIS 

nov 
nov 
nov 

ADD 

nov 

BIC 
BIS 

nov 
nov 

lOT 

nov 

HLT 
BR 

nov 

MOV 
MOV 



#36,a#STSTNn 

a#$TSTNn.aroi SPLAY 

#IOTVEC*2,R5 
RO 

#PR4.-(R0) 

(R0).(R5) 

(R5).R4 

PC--(SP) 

#1$-. .(SP) 

(SP)*.-(R5) 

#PR7*17.(R0) 

*PR5*4.(R0) 

(R0)*.R3 

R3.-(R0) 

#SSC0PE,a#I0TVEC 

TSr37 ;;G0 

(R0)*.R2 

♦SSCOPE .(R5)* 
#PR4.(R5) 



.LOAD TEST NlfBER 

;. -DISPLAY TEST NlfBER 



SET PRIORITY LEVEL 4 IN PSW 
SET IOTVEC+2 - PSU 
SAVE IN R4 



.-LOAD lOT TRAP VECTOR 

;PSW=X XXX XOO 101 1X1 000 

-R5 - PSU ABOVE 

•RESTORE PSW (nov CHANGED IT) 

.-RESTORE lOT VECTOR 

.-error: iot failed to trap 
to next test 



GET PSW AFTER IOT TRAP 
NOTE: R0=0 
RESTORE lOTVEC 
AND I0TVEC*2 



J 



("EQKC-t POP 
CEQKCE.P11 



11/70 CPU EXERCISER 
12-mR-80 11:37 



H 9 

MACm 30A(1052) 12-nAR-80 11:30 PAGE 47-86 
T56 CHECK lOT TRAP (AND R0L8/ASL8) 



SEo om 



91 55 


023656 


/\4 A7 y z 

010746 




?i56 


025640 


062716 


1 777^2 


9157 


023644 


022626 




91 58 


025646 


001036 




VI 


025650 


022603 




9160 


025652 


001034 




9161 


023654 


032703 


140000 


9162 


025660 


4 AA /-IT 

100413 




9165 


023662 


001003 




9164 


023664 


020204 




9165 


025666 


AA4 A'^Z 

001026 




9166 


025670 


00041 3 












9i6o 




042704 


A7 AAAA 

030000 


9169 


023676 


AC ^7Ay 

052704 


Ai A AAA 

010000 


91 /O 


023702 


A'^A'lAy 

020204 




91 ft 


025704 


001017 




91 fc 


025706 


AAA/ A/ 




91 /5 








91 


A^7 71 A 


AC "^^A/ 


A7AAAA 

050000 


91 /'b 




A'^A'^A/ 




91 rb 


A'5771 X 

023716 


AAi Ai T 

00 10 1^ 












Q1 70 

91 ^8 


A'577'5A 


AAC AA'i 

00!>00i: 




01 7Q 

VI <v 


A'57 


000^:0 1 




VloO 


A'5770/ 


lOolOO 




VI ol 




10^3/^6 




VI o<r 








VI 03 


A'5777A 


1 0o300 




VI04 


A'5777'5 


1 A7AA/ 

I0300*» 




9185 


A'5777/ 


1 ATAAT 

10^003 




9106 


A0777X. 

U<:3/^ 3o 


AA1 A/So 

001 00^ 




Qi 07 

918/' 


A "5 7 7/ A 

0<:3/'4U 


AAC7AA 

005/^00 




91 Oo 


A'377y 


AA1 / A1 

001<»01 




9189 


023744 


"1 A/ AAA 

104000 




9190 








VI yi 








919*: 


A'^77/ X 

0<:3746 


Ay '^7Ay 
04^^04 


AAA7/ A 
000340 


VI V3 


A'377C0 

0<:3^5^ 


A1 Ay 77 
01043/^ 


1 7777ii 


VI V** 


AOT^CX 

U<;306 


A1 ■3 7'AX 

oi<;/^06 


AAA*7AA 

000/^00 


V 1 V5 








/ 7 \ 








/'Z\ 








f j\ 
\c) 










A 5 7 7*. 0 

\Jd5ftc 


AAAAAy 




1 J \ 




1 1 0777 
1 \dr5f 


AAAA77 

00003/^ 


/ 0 1 
\dl 


A'5777'5 


A1 7777 

01 5f 5f 


AA1 OCO 


9196 








919r 


AO/ AAA 

0d4UU0 


QMfJf 


/\CJ 7i A 

054/10 


Q10A 

▼ 1 TO 




\)\Cf Jf 




9199 


0240U 


005000 




9200 


024016 


010746 




9201 


024020 


062716 


000030 


9202 


024024 


012637 


000030 


9203 


024030 


000262 




9204 


024032 


013737 


Vint 



2S: 



3$: 



4S: 



99$: 



MOV 


PC,-(SP) 


;f0H« PC OF 10$ ABOVE 


ADD 


#101-. . (SP) 




CMP 


(SP)*, (SP)* 


; CHECK RETURN PC ON STACK 


BNE 


99$ 




CMP 


(SP) ♦,R3 


.•CHECK SAVED PSW 


BNE 


99$ 




BIT 


inf1.R3 


.•BRANCH TO 3$ If IN USER MODE 


Bnl 


5$ 


BNE 


2$ 


;8RANCH TO 2$ Ir IN SUPER nODt 


CMP 


R2,R4 


; CHECK PSW AFTER lOT 


BNE 


99» 


BR 


4$ 




BI C 


MThi iftj ny 

#PUM,R4 


; CLEAR PREV MODE BITS 


BJS 


#PSM , R4 


. CP T nr\Ct< ci lAC n ^wm\c 

;SET PREV SUPER MODE 


CMP 


R2.R4 


.•CHECK PSW AFTER lOT 


ONE 


99$ 




BR 






BIS 


#PUn,R4 


. CC T AAFty 1 iCCn ft^Af\C 

;SET PREV USER MODE 


CMP 


R2.R4 


.CHECK PSW AFTER iOT 


BNE 


99$ 




CLR 


o O 

RiT 




c c r 

SEC 






DAf Q 


DA 

RO 


.BATATC AA 

.•ROTATE RO 


OVC 


.~d 


■ llftlTri \l CCTC /OA— OAAl 

."UNTIL V SETS (R0=^00) 


A CI D 

ASL8 


DA 

RO 


.SHIFT SHOULD SET CARRY 


oCC 


yv» 




BVC 


99» 




oNc 


yv» 




TCT 


DA 

RO 




RFC 






HLT 




;FRRORI ROL/ASL FAILED TO SET 






;CC'S PROPERLY (IF R2=0) OR IN- 






; CORRECT PSW AFTER IOT (IF R2 NOT 


BIC 


*PR7, R4 




MOV 


R4,airpsu 


.RESTORE PSW 


MOV 


*SUPST<,SP 


.•RESTORE STACK PTR 



.••TEST 37 



CHECK EMT TRAP SEQUENCE 



TST37: 



000032 



SCOPE 

M0V8 

MOV 

.EQUIV 

MOV 

MOV 

CLR 

MOV 

ADD 

MOV 

SEV 

MOV 



#37,ar$TST^#1 
a<rSTSTi#i,a#oi SPLAY 

I or. HLT 

#$ERROR,a«IOTVEC 
*PR7,a#I0TVEC*2 

RO 

PC.-(SP) 

#EMT1-..(SP) 

(SP)*,a*EMTVEC 

a#PSW.a#EMTVEC*2 



LOAD TEST NUMBER 
.DISPLAY TEST NUMBER 
REDEFINE HLT CALL 
SETUP VEr TOR 



.•SET V 

.•RETAIN CURRENT PSw ON TRAP 



CEOKC-E POP 

CEOKCE.pn 



11/70 CPU EXERCISER 
12-«AR-80 11:27 



I 9 

HACVll 30A(1052) 12-«AR-80 11:30 PAGE 47-87 
T37 CHECK EMT TRAP SEQUENCE 



SCO 0U2 



9205 
9206 
9207 
9208 
9209 
9210 
92"! 1 
9212 
9213 
92K 
9215 
9216 
9217 
9218 
9219 
9220 
9221 
9222 
9223 
9224 
9225 
9226 
9227 
9228 
9229 
9230 
9231 
9232 
9233 
9234 
9235 
9236 
9237 
9238 
9239 
9240 
9241 
9242 
9243 
9244 
9245 
9246 
9247 
(3) 
(3) 
(2) 
(2) 
(2) 
(2) 
9248 
9249 
9250 
9251 
9252 
9253 
9254 



024040 
024042 
024044 
024046 
024050 
024052 
024054 
024056 
024060 
024062 
024064 
024066 
024070 

024072 
024074 
024076 
024100 
024102 
024104 
024106 
024110 
024112 
024114 
024116 
024120 
024122 
024124 
024126 
024130 
024132 
024134 
024136 
024140 
024142 
024144 
024146 
024150 
024156 
024164 
024172 



024176 
024200 
024206 
024214 
024222 
024230 
024232 
024236 
024242 
024244 



000265 
104000 
001433 
000004 
102027 
105100 
105500 
106000 
102023 
100022 
000257 
105400 
102017 

100016 
000242 
000261 
105300 
102012 
100411 
000242 
105200 
103006 
102005 
100004 
000242 
106200 
102776 
000401 
000004 
000002 
105500 
103003 
001002 
005700 
001401 
000004 
012737 
012737 
012737 
005037 



000004 
112737 
013737 
052737 
052737 
010746 
062716 
012637 
000270 
013737 



EWT1: 



054710 
000340 
054456 
000022 



000030 
000032 
000020 



EMT18: 
E»1T1C: 

EMTIO: 



♦SEZ;SE 

EMT 

6EQ 

HLT 

BVC 

COMB 

ADCe 

RORB 

BVC 

BPL 

CCC 

NEGB 

BVC 

BPL 

CLV 

SEC 

DECB 

BVC 

BMJ 

CLV 

INCB 

BCC 

BVC 

BPL 

CLV 

ASR8 

BVS 

BR 

HLT 

RTJ 

ADC8 

BCC 

BNE 

TST 

BEQ 

HLT 

MOV 

MOV 

MOV 

CLR 

•EQUIV 



C 



EMT1C 

EMTIB 
RO 
RO 
RO 

EMTIB 
EMT18 

RO 

EMTIB 
EMT18 



RO 

EMTIB 
EMTIB 

RO 

EMTIB 
EMTIB 
EMTIB 

RO 

.-2 

.♦4 



RO 

EMTIO 
EMTIO 
RO 
.♦4 



TRAP TO EMT1 
GO TO EMT1C 

ERROR! INCORRECT CCS WERE SET ON HiT^fiN 
'V SHOULD' VE SET ON EMT TRAP 
R0=O0O377.CC'S=1OO1 
RO=0O0OOO.CC'S=0101 
R0=000200.CC'S=1010 



;R0=000200,CC '5=1010 



CLEAR 'V 
AND SET 'C 
R0=0001 77, CC'S^OOIl 



.-CLEAR 'V 

;R0=000200,CC'S=1011 



.•CLEAR 'V 

.•SHIFT RO UNTIL 'V CLEARS 



• ERROR ' 

•EXIT WITH R0=000377 
:R0=000000 



mRROR,a#EMTVEC 
*PR7.a#CMTVEC*2 
#$SC0PC.a#10TVEC 
a»I0TVEC*2 
ERROR, HLT 



.•RESTORE EMT TO ERROR 
.-SET PRIORITY 7 ON ERROR 
.•RESTORE lOT VECTOR 

.•REDEFINE HLT CALL 



iTEST 40 CHECK TRAP INSTRUCTION TRAP SEQUENCE 

• *************************************************************** 



000040 
001252 
000340 
000340 

000056 
000034 



001252 
177570 
1 77776 
000016 



TST40: 



1 77776 000036 



SCOPE 

MOVB 

MOV 

BIS 

BIS 

MOV 

ADO 

MOV 

SEN 

MOV 



4r40,anTST^ 
air$TSTNM,a4rDI SPLAY 

/rPR7,a#psu 

#PR7,arTBlTVEC*2 
PC,-(SP) 
/rTRAP1-.,(SP) 
(SP)*,a#TRAPVEC 

arPsu,a#TRAPVEC«2 



LOAD TEST NlfBER 
.•DISPLAY TEST NUf«ER 
LOCK OUT LINE CLOCK 



;SET N 

.•RETAIN CURRENT PSU ON TRAP 



J 9 

CtQKC-E POP n/70 CPU EXERCISER MACvll 30A(1052) 12-rtAR-80 11:30 PAGE 47-88 
CFQKCE.P11 ^2-*W»-80 11;27 T40 CHECK TRAP INSTRUCTION TRAP SEQUENCE 



SEO 0115 



9255 

9256 

9257 

9258 

9259 

9260 

9261 

9262 

9263 

9264 

9265 

9266 

9267 

9^68 

9269 

9270 

9271 

9272 

9273 

9274 

9275 

9276 

9277 

9278 

9279 

9280 

9281 

9282 

9283 

9284 

(i; 
(1) 
(1) 
(1) 
(1) 
(1) 

9285 
(3) 
(?) 
(2) 
(2) 
(2) 
(2) 
(2) 

9286 
(1) 
(1) 
(1) 
n) 
(1) 
(1) 

(n 
(1) 
(1) 
(1) 

(1) 



UCHC JC 


UUUcO 1 








ot (. 


Uc*«c J** 










Rtnu 

nuv 














Uc'«cOv 










TDAD 












OV. d 




ri P777 


vOcc f U 


vvW J*» 




nuv 


\Jc'*cf c 










ML 1 


\JC'*C' *• 










DC W 






fVk?p7n 


noon 7 A 




Mnu 

nuv 




1 o/.non 








Ul T 
ML 1 












On 










TDAD1 • 


QM I 






fV>?P7f! 


nnno7^ 

UvUU J** 




Mni/ 


VCH JC\J 


1fU.<W> 








ML 1 






OOflOOi 

vWvvH 








024326 


020016 








CMP 


024330 


001404 








BEQ 


0?6^3P 




voce f V 


0000^^ 




Mnu 
nuv 












Ul T 












TMDQ 
LrrrJ 












RI T 


024346 


000002 








RTI 


O?4350 


01770? 

V I C r V/C 


0000 






Mnu 


0P4354 


VIC* > C 


000340 








0?4 360 


01 P74? 


06PP70 






Mnu 


0P4364 


042737 


000340 


000016 




nif 




105037 


1 77776 






CLR8 


02^176 


000004 






RELE3: 


SCOPE 


024400 


010702 








MOV 


024402 


062702 


000012 






ADD 


024406 


012707 


044042 






MOV 


024412 


000000 






REL33: 


.WORD 



PC.RO 
.♦12 

#$TRAP.arTRAPVFC 

.♦12 

#$TRAP.d*TRAPVEC 



;SET CARRY 



;SET Z BJT 
;TRAP TO TRAPI 



.•RESTORE ThAP VECTOR 
; RE STORE TRAP VECTOR 



TRAPI C 

.♦12 ;N BIT GOT SET ON TRAP 

#$TRAP.d#TRAPVEC .-RESTORE TRAP VECTOR 

#4.R0 

RO.^SP) .-CHECK LOW BYTE OF RETURN PC ON 

.♦12 .-STACK 

#$TRAP,arTRAPVEC .-RESTORE TRAP VECTOR 



-{SP),-(SP) 
(SP) ♦.($?)♦ 



*TRAPVEC*2.R2 

#PR7,(R2) 

/r$TRAP,-(R2) 

*PR7,arTBITVEC*2 

ftVPSU 



.•RETURN TO JNST FOLLOWING TRAP (1$) 
.-RESTORE VECTORS 

.-GO BACK TO PRIORITY 0 



PC.R2 
#lJ.R2 
*REL0C,PC 

0 

.-3333333333333 LAST ADDRESS OF CODE TO BE RELOCATED 33333333333 



.•GO RELOCATE PROGRAM CODE 



; *********************************************** 4**** *•••***•••• 

•TEST 41 CHECK STACK OVERFLOW 



024414 
024422 
024424 
024432 



024440 
024442 
024444 
024450 
024452 
024456 
024462 
024466 
024474 



012767 
000004 
112737 
013737 



010700 
005740 
010037 
010700 
162700 
010037 
010737 
062737 
013737 



000001 154754 



000041 
001252 



001610 

024452 
001604 
001262 
000030 
001262 



001252 
177570 



TST41 



MOV 
SCOPE 
MOVE 
MOV 



#1.$TIMES 



;;D0 1 ITERATION 



/r41 .anTSTNM 

anTSTNM.arDisPLAY 



.-LOAD TEST NUTBER 

; .-DISPLAY TEST NUMBER 



.S8TTL START OF SECTION 4 
; 4444444444444 FIRST ADDRESS TO BE RELOCATED 444444444 



001262 
001260 



REL4: MOV PC.RO 

TST -(RO) 

MOV RO.arFRSTAO 

MOV PC.RO 

SUB #. .RO 

MOV RO.arFACTOR 

MOV PC.*r$LPERR 

ADD #30.a#$LPERR 

MOV arSLPERR.arSLPADR 



GET PC 

RO CONTAINS THE ADDRESS OF REL4 
SAVE 

GET CURRENT PC 
SUBTRACT RELOCATION FACTOR 
SAVE RELOCATION FACTOR 
SET LOOP ADDRESS 
ADJUST 



CEOKr-E POP n/70 CPU EXERCICEW MACYll 30A<1052) 12-mR-80 
CEQKCk.Pn 12-nAR-80 11:27 START OF SECTION 4 
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SEO OIK 



* 1 ) 


no/. KM 




nrti AAA 


\ 1 y 








f 1 ^ 
I 1 / 


Uch3 I u 




KrJ 1 3 1 c 


Q3B7 








QDflfl 


\JC'*J 1 *♦ 


f»1 77A7 


1 7777A 


fCCrf 


\JC'*JCC 




'[7777b 






(W.7^7 




▼CT 1 




\JjCr Jf 




0505 




ni f\7LA 
U 1 U' ••O 










nnni sp 

VA'w P JC 






ni 1 A77 








m P777 


nnn7z.n 






m 77P7 






VAAAAA/ 










nnninn 




np^«;7P 










m P7'^7 


nnn'^^n 










"JVC 




U 1 C ' vJ 


nnnx7^ 




nPiAin 


w P w J 1 J 






np^^ip 

vc*»0 1 C 












1 ^nnnn 




np^APP 


W 1 V 1 J 




9307 
















7 J\J7 




\J\J J f 1 D 








npi 


1 7777(i 

1 r f r r U 


q3i 1 


OPi^^P 


V/ 1 CO JU 




7 J 1 C 


np^A^ 


W J r O J\J 


nnonno 


7J 1 J 




n«;AA7A 

V JHO' O 


nnnnon 


T J 1 H 


OP^A^^ 


nosn(v> 

\J\J JV\f\J 








ni \7fj\ 


npnnon 




nPiiAS^ 

vc**0 J** 






Q^l 7 








T J 1 O 












1 S^^7^7 
1 JUr Jr 


ooni 7S 






ni P7n^ 






V/CHOf v 


ni 


1 7777f\ 






nsi^iA 

V/ J P U P O 








n^iA/>^ 


1 7777t\ 






10S037 


1 77777 

\ 9 f f f f 






01P706 

V 1 C r WW 


000700 




fiP^71P 






7 DC 1 








7JCO 












V/ 1 COVA/ 


















non7nn 




OPA 7Pi 


10^000 




^333 








9334 








9335 


024726 


000443 




9336 








9337 








9338 


024730 


062737 


000066 


9339 


024736 


010306 





000334 
-[77776 

000006 
000016 
000234 



OVFLW: 



43$: 



1 9 ICS 




DtU 


. ♦O 


IMD 

Jit" 


KtCt** 


nuv 


aitPCU 71 






(CD 


or aim dtdi t 

rL ^OIVLLn POi P 


QIC 


MOQ7 aitpci.i 


MDV/ 

nuv 


or -fcp^ 


Ann 


*C* . , V or / 


MOV 


(SP).arERRVEC 


MOV 


*340,*rERRVEC*2 


nuv 


■war 1 VC L « Vr L J ▼ 






ADD 




nuv 


\ Or / ~ # WOr 1 VC L 


MOV 


#340 a4'BPTVEC*2 


MOV 


#376. R3 


MOV 


R3.(R3) 


MOV 


R3,SP 


BIT 


injn.7% 


BNE 


IS 



;8R IF TEST CODE TO BE EXECUTED 



SAVE STATUS IN 7$ BELOW 

SET KERNEL MODE 

GO CLEAR 'T* BIT IF SET 

SET PRIORITY LEVEL 7 TO BLOCK CLOCK 

PUSH CURRENT PC ONTO STACK 

FORM ADDRESS OF 2$ BELOW 

SET ERROR VECTOR 

SET PRIORITY LEVEL 7 ON TRAP 

SAVE BPT VECTOR ADRS 

FORM ADDRESS OF 41$ BELOW 
SET BPT TRAP VECTOR TO 41$ 



LOAD 376 INTO ADDRESS 376 
SET STACK PTR AT BOUNDARY 
CHECK IF ENTERED TEST IN KERNEL 
MODE. BRANCH IF NOT IN KERNEL 

; THE BELOW INSTRUCTIONS SHOULD NOT CAUSE AN OVERFLOW TRAP 

.•BECAUSE TST IS A NON MODIFYING INST 
:S0 IS COMPARE 
.BECAUSE OF ADDRESS MODE 5 
; BE CAUSE OF ADDRESS MODE 3 
.BECAUSE OF ADDRESS MODE 7 



020000 



y77777 



TST 


(SP) 


; 


CMP 


(SP),-2(SP) 




MOV 


(SP)*.a-(SP) 




BIS 


s(SP).a(SP)* 




BIS 


-(SP). a(SP) 




CLR 


SP 




MOV 


a#20000. 20000 (SP) 


BR 


35 


; 



.-NOTE: 
1$: 



.'BRANCH OVER NGN KERNEL MODE TESTS 
NO OVEFLOW TRAP WILL OCCUR IF NOT IN KERNEL MODE 1 



BIS8 7$-»1,a#PSW>1 

MOV #376. SP 

MOV -2(SP).-(SP) 

BIS (SP). (SP) 

ADD (SP).-2(SP) 

CLR8 a#PSW^1 

MOV #SUPSTK.SP 

BR 6$ 



ERROR SERVICE ROUTINE 



H: 



MOV 
MOV 
MOV 
HLT 



BR 



(SP)*.RO 
(SP)*,R2 
#SUPSTK,SP 



6$ 



.RESTORE MODE BITS IN PSW 
;SET STACK PTR 
.SHOULD NOT TRAP 



.SET KERNEL MODE 
.RESTORE THE STACK 
.EXIT TEST 



SAVE PC OF INSTRUCTION THAT TRAPPED 

SAVE PSW 

SET STACK PTR 

ERROR! AN INSTRUCTION THAT WAS NOT 
SUPPOESED TO TRAP TRAPPED 
RO CONTAINS PC. R2 CONTAINS PSW 
EXIT TEST 



000004 



.THE BELOW INSTRUCTIONS WILL CAUSE A STACK OVERFLOW 
•STACK PTR IS AT 376 

3$: ADD #4$-2$.a#£RRVEL ;SET ERROR VECTOR TO 4$ 
MOV R3. SP .-SET STACK PTR AT 376 



lfqk^-e pop n/70 CPU exerci:fr n^cr^^ 30a(io52) i2-wr-80 ii 

CEQKCE.PII 72-MAR-80 11:27 START OF SECTION 4 
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9340 
9341 
9542 
9545 
9544 
9545 
9546 
9547 
9548 
9549 
9350 
9351 
9352 
9353 
9354 
9355 
9356 
9357 
9358 
9359 
9360 
9361 
9362 
9363 
9364 
9365 
9366 
9367 
9368 
9369 
9370 
9371 
9372 
9373 
9374 
9375 
9376 
9377 
9378 
9379 
9380 
9381 
9582 
9383 
9384 
9385 
9386 
9387 
(^) 
(3) 
(2) 
(2) 
(2) 
(2) 
9388 
9389 



024740 

024746 
024750 
024752 
024754 
024756 
024760 
024762 
024764 
024766 
021*772 
024774 
025000 



025002 
025004 

025006 
025012 

025014 
025020 



025022 
025026 
025032 
025034 



025036 
025042 
025050 
025054 
025056 
025060 
025062 
025066 

025070 
025074 
025102 
025110 
025116 
025124 



025130 
025132 
025140 
025146 
025152 



112702 
005000 
005016 
006302 
105226 
006302 
060746 
006302 
000003 
006302 
004767 
006302 
050666 
000410 



050200 
000002 

052700 
000207 

052700 
000002 



012706 
022700 
001401 
104000 



012706 
016737 
005037 
012746 
000000 
010746 
062716 
000002 

012706 
012737 
013737 
052737 
042737 
005037 



000004 
112737 
013737 
005737 
001403 



000001 



000014 
1 7777h 



001000 
000400 



000700 
001477 



001200 
177516 
000016 



000006 



000700 
064422 

1 7777(i 
000340 
000020 
177766 



000042 
001252 
001552 



novB 


#1 R2 


CLR 


RO 


CLR 


(SP) 


ASL 


R2 


INCB 


(SP)» 


ASL 


R2 


ADD 


PC,-{SP) 


ASL 


R2 


BPT 




ASL 


R2 


JSR 


PC, 40$ 


ASL 


R2 


BIS 


SP.-2(SP) 


BR 


5$ 



SETS BIT 0 IN RO 
SHIFT INDICATOR BIT 

SETS BIT 1 IN RO 

SETS BIT 2 IN RO 

SETS BIT 3 IN RO 

SETS BIT 4 IN RO 

SETS BIT 5 IN RO 



.•PROGRAM WILL TRAP HERE ON OVERFLOW TRAP 



4$: 
40$: 
41$; 



BIS 
RTI 

BIS 
RTS 

BIS 
RTJ 



R2,R0 



*1000.R0 

PC 

#400, RO 



;SET APPROPRIATE BIT IN RO 
.•RETURN FROM TRAP 

;SET IND THAT JSR WAS EXECUTED 
;SET IND THAT BPT WAS EXECUTED 



5$ 



CHECK THAT ABOVE INSRUCTIONS DID TRAP 



MOV 
CMP 
BEQ 
HLT 



.EXIT ROUTINE 



000014 



6$: 



7$: 



000004 
000006 
000006 
000006 



MOV 
MOV 
CLR 
MOV 
.WORD 
MOV 
ADD 
RTI 

MOV 
MOV 
MOV 

BIS 
SIC 
CLR 



<fSUPSTK,SP 
#1477, RO 
.♦4 



#KERSTK,SP 

43$,a#8PTVEC 

a«PTVEC+2 

(PC)*,-(SP) 

0 

PC,-(SP) 
#6,(SP) 



SET STACK PTR 

EACH INSTRUCTION SET A BIT IN RO 
R0= 1477 



.•SET KERNEL STACK PTR 
.•RESTORE BPT VECTOR 

;PUSH OLD PSW ONTO STACK 
.•CONTAINS SAVED PSW 
.-PUSH CURRENT PC ONTO STACK 
;ADD OFFSET 



#SUPSTK,SP ;SET STACK PTR 

#ERPRT,a#ERRVEC .-RESET TIME OUT VECTOR 

aiirPSw,a(rERRVEc^2 

yrpR7jarERRVEC*2 

«BIT4,a4¥RRVEC«2 

idfCPUERR 



; ; ************* •*•*••• 

.•♦TEST 42 CHECK THAT ALL RESERVED INSTRUCTIONS TRAP 

; ; ************* ************************************************** 



00125? 
177570 



TST42: SCOPE 
MOVB 
MOV 

RESTRP: TST 
BEO 



#42,a#STSrNM ;LOAD TEST NlfOER 

»ir$TSTNH,a#DISPLAY ;. -DISPLAY TEST NUMBER 

aWcailE ;IS THIS A K611-E OR KB11-EM? 

lOS ;8R IF NOT 



CtQKC-£ POP 11/70 CPU EXEhCIiER MACYll 
CFQKCE.Pn 12-WAR-80 11:27 



9390 

9391 

9392 

9393 

939<, 

9395 

9396 

9397 

9398 

9399 

9^00 

9^01 

9^02 

9A03 

9404 

9405 

9406 

9407 

9408 

9409 

9410 

9411 

941? 

9413 

9414 

9415 

9416 

9417 

9418 

9419 

9420 

9421 

9422 

9423 

9424 

9425 

9426 

9427 

9428 

9429 

9430 

9431 

9432 

9433 

9434 

9435 

9436 

9437 

9438 

9439 

9440 

9441 

9442 

9443 

9444 

9445 



n 9 

30A(1052) 12-WR-80 11:30 PAGE 47-91 
T42 CHECK THAT ALL RESERVED INSTRUCTIONS TRAP 



~1 



SEO 01 10 



Uc ? 1 


ni P7A7 


UWvIv 


VATJ 1 cc 




HUV 


VIU#J* a 




\Jcj lOc 


V 1 c ' Ue 


Uc J jUh 




1 V* • 


nuv 


ep 

wj*«nc 




\JCJ lOO 


1 V J 'J' 


vVJ 1 J J J 






1 3 lO 


ai>r TCP 




\JCJ 1 f c 


W ' •♦Uc 








QPQ 
JCU 




no IF MDT 
On i r rau 1 




U 1 C ' VC 


Uc J J*»C 






nuv 


JrAC DP 

»0*»nc 1 






UOJ' Uc 


(Vll/kAA 
VA/ 1 Ov*« 






Ann 


a«FACT0R,R2 




not; pry. 


1 XP7^7 

1 JC ' Jf 


UvvV«v 


nni «;«;i 

uU 1 J J 1 




Di I O 


*40.a*OPT.CP*1 . 


CHECK IF 11/45 FLOATING POINT IS AVAIL. 


\JCJC 1 c 


nc\^ LC\L 








□CW 


9$ 


BRANCH IF NOT AVAILABLE 


\JCjC I *♦ 


nfiSfV\7 

JUOf 


fkvipi p 

vvv/c 1 c 








51$ 


SET CIS TABLE TERMINATOR AT GROUP 7 




nn*;fVi7 
uvjyof 


v\A/ 1 1 V 






ri Q 


50$ 


SET TABLE TERMINATOR AT GROUP 7 




V 1 C' Jf 


VC JCOC 


vvvv 1 U 


7# - 




#4$.a«RESVEC 


SET RESERVED INSTRUCTION TRAP 


VCJCJC 


J' 


onif>04 

VV 1 OvH 


vvvv 1 V 




Ann 


a^TFACTOR.arRESVEC 




V 1 C Cv J 








rHJ V 


(R2J*.R3 


•GET FIRST RESERVED INSTRUCTION 




vv 1 H f O 








RPQ 
□CU 


7$ 


•0 TERMINATES THE TABLE 




(11 p?n4 

U 1 CCVH 








rRJ V 


(R2;*.R4 


•GET LAST RESERVED INSTRUCTION IN GROUP 




V 1 1 f 






c*- 




R3,(PC) 


•EXECUTE RESERVED INSTRUCTION 


\JC JC J\f 


000000 
www 






J* • 


uopn 


0 


•CONTAINS RESERVED INSTRUCTION 




OOOPAO 

VWCHV 












•ERROR! INSTRUCTION IN R3 


VC JC J"* 


000P40 








MOP 
'»VJt 




•(2$) ABOVE FAILED TO CAUSE A 


0PSP56 

vC JC Jw 


104000 








Ml T 




■RESERVED INSTRUCTION TRAP 


0?5?60 


00040S 








RR 
on 


41$ 




0?5?6? 


01P716 

VIC* ( u 


0P5P74 

vC JC r •» 




4S* 




#41$, (SP) 


r ADJUST RETURN PC 


025266 


063716 


001604 

VV 1 w** 






ADD 


a»FACTOR,(SP> 


•TO RETURN TO 41$ 


0PSP7? 

vC JC r C 


vWWC 








PT T 




■RETURN TO 41$ 


0P5P74 

V/C JC ' H 


OP0304 

VC V J VH 






1 # • 


LI »^ 


R3.R4 


•HAS GROUP OF RESERVED INSTRUCTIONS 


0P5P76 

V/C JC r W 


001760 

W 1 r VV 








DC W 


1$ 


•BEEN EXECUTED 


0P53OO 

VC J J\f\J 


0O5P03 










R3 


•INCREMENT THIS RESERVED INSTRUCTION 


VC J JXfC 


0007ft1 

VWr U 1 








Dp 


2$ 


:T0 NEXT ONE AND EXECUTE 












OF 11 70 

vr 1 1 f V 


RESERVED INSTRUCTIONS (0 TERMINATES THE TABLE) 


0P5304 


000007 

wvWVr 








7 




;GROUP 1 (GETS A 10 IF KB11-E OR KB11-EM) 


OPS 306 


000077 








77 




0PS310 

V/C J^ 1 v 


OOOPIO 

vVA/C 1 V 








P10 
C 1 \J 




•GROUP 2 

» • 


0P531P 

VC J J 1 c 


0O0PP7 

VWCC f 








PP7 

cc r 




0P5314 


007000 

VVr WV 








7000 

r VVV 




•GROUP 3 

• • 


0P5316 

VC -■'■^ 1 w 


007777 

Wr fit 








7777 

f r r r 




0P53P0 

VC ^^C V 


075040 

v» ^^^V 








750A0 




•GROUP 4 


VC ^«/CC 


076777 








7(%777 




025324 


106400 








106400 




■GROUP 5 

■ • 


025326 


106477 








106477 




025330 


106700 








106700 




•GROUP 6 

• • 


025332 


^^7777 








^07777 




025334 


170000 






50S: 


170000 




•GROUP 7 FLOATING POINT 
; " INSTRUCTIONS 


025336 


^77777 








1 77777 




025340 


000000 








0 




;0 TERMINATES THE TABLE 



025342 
025344 
025346 
025350 
025352 
025354 
025356 
025360 
025362 



000010 
000077 
000210 
000227 
007000 
007777 
075040 
076017 
076033 



.•TABLE OF KB11-E/EM WITH CIS RESERVED INSTRUCTIONS (0 TERMINATES THE TABLE) 



6$: 



10 
77 
210 
227 
7000 
7777 
75040 
76017 
76033 



GROUP 1 
GROUP 2 
GROUP 3 

t • 

GROUP 4A 

• • 

GROUP 48 



N 9 

CEQKC-E POP n/70 CPU EXERCICFR «ACrl1 30A(1052) 12H1AR-80 11:30 PAGE 47-92 
CEQKCE.Pll 12-MAR-80 11:27 r42 CHECK THAT ALL RESERVED INSTRUCTIONS TRAP 



SFO 0' 



9<,A6 
9<,47 
9^48 
94A9 
9450 
9451 
9452 
9453 
9454 
9455 
9456 
9457 
9458 
9459 
9460 
9461 
9462 
9463 
9464 
9465 
9466 
9467 
9468 
9469 
9470 
9471 
(3) 
(3) 
(2) 
(2) 
(2) 
(2) 
9472 
9473 
9474 
9475 
9476 
9477 
9478 
9479 
9480 
9481 
9482 
9483 
9484 
9485 
9486 
9487 
9488 
9489 
9490 
9491 
9492 
9493 
9494 
9495 



025364 
025366 

025370 
025372 
025374 
025376 
025400 
025402 
025404 
025406 
025410 
025412 
025414 
025416 
025420 
025422 
025424 
025426 
025430 
025432 
025434 
0254% 



076037 
076046 

076047 
076100 
076127 
076133 
076137 
076146 
076147 
076160 
076167 
076200 
076600 
076602 
076777 
106400 
106477 
106700 
m777 
170000 
y77777 
000000 



51$: 



025440 012737 064350 000010 7$: 



76037 
76046 

76047 

76100 

76127 

76133 

76137 

76146 

76147 

76160 

76167 

76200 

76600 

76602 

76777 

106400 

106477 

106700 

yQ7777 

170000 

^77777 

0 

nov 



«RESERR,a#RESVEC 



GROUP 4. 

GROUP 4D 
GROUP 4E 
GROUP 4F 

I ( 

GROUP 4G 

t t 

GROUP 4H 

* I 

GROUP 41 
GROUP 5 
GROUP 6 

GROUP 7 FLOATING POINT 

INSTRUCTIONS 
0 TERMINATES THE TABLE 

.-RESTORE RESERVED TRAP 



; ; *************************************************************** 

;*TEST 43 CHECK THAT ALL BITS IN THE PSW CAN BE SET AND CLEARED 

• •A****** ******************************************* ************* 



025446 
025450 
025456 
025464 
025470 
025472 
025500 
025504 
025510 
025514 
025520 
025522 
025524 
025526 
025530 
025534 
025540 
025542 
025546 
025552 
025554 
025556 
025562 
025566 
025570 
025576 
025600 



000004 
112737 
013737 
105737 
001070 
013767 
005037 
004737 
013746 
012704 
000250 
005714 
001401 
104000 
012700 
005737 
001402 
052700 
012702 
030200 
001423 
005037 
030227 
001403 
012737 
005014 
050214 



000043 
001252 
001601 

177776 
177776 
063314 
000016 
177776 



170357 
001552 

000400 
000001 



000016 
000020 



001252 
V7570 



000140 



TST43: 
PSWCHK: 



000002 000016 



10$: 
1$: 



20$: 



SCOPE 

novB 

MOV 

TST8 

BNE 

MOV 

CLR 

JSR 

MOV 

MOV 

CLN 

TST 

BEO 

HLT 

MOV 

TST 

BEO 

BIS 

MOV 

BIT 

BEO 

CLR 

BIT 

BEQ 

MOV 

CLR 

BIS 



#43,ar$TSTFf1 ;LOAD TEST NLMBER 

ar$TSTNM,aroi SPLAY .-.display test number 

a#WON ;IF MEM HGMT IS ON SKIP THIS TEST 

a#PSW,3$ .-SAVE STATUS 

a*PSW .-CLEAR MODE BITS IN PSW 

PC.a#CLRTBIT ;G0 aEAR 'T' BIT IF SET 
a#TBITVEC*2,-(SP) 
#PSW.R4 



(R4) 
.♦4 



.•LOAD ADDRESS OF PSW INTO R4 
.'CHECK THAT PSW WAS CLEARED 
.-ERROR! PSW FAILED TO CLEAR 



#170357.RO 
a«KB11E 
10$ 

/r400.R0 
#1.R2 
R2.R0 
2$ 

a#T81TVEC*2 
H2JI20 
20i 

#RTI.arTBITVEC*2.-SET RTI INTO RETURN 
(R4) .-CLEAR PSW 

R2.(R4) ;SET R2 INTO PSW 



;IS THIS A KB11-E OR KB11-EM PROCESSOR"* 
-BR IF NOT 

'also TEST PS08 IF KBIl-E 
;R2 = TEST BIT 

.•CHECK If BIT CAN BE SET/CLEARED 



.-CHECK IF TEST WILL SET 'T' BIT 



CEOKC-fc POP 1V70 CPU EXERCISER mcvll 30A(1052) 12-mR-80 



CEQKCE. 


P11 


I2-+W-8C 


9496 


025602 


011403 


9A97 


025604 


020203 


9<i98 


025606 


091401 


9499 


025610 


104000 


9500 


02561 2 


000244 


9501 


025614 


040214 


9502 


025616 


011403 


9503 




001401 


9504 


025622 


104000 


9505 


025624 


006 302 


9506 


025626 


4 /V W C 4 

103351 


9507 


025630 


005014 


9508 


025632 


y\ 4 T^ V7 

012637 


9509 


025636 


/\4 T7 / ^ 

012746 


9510 


025640 


000000 


951 1 


025642 


A 4 ^7y ^ 

010746 


9512 


025644 


T 74 ^ 

062716 


9513 


025650 


000002 


95K 


025652 


013704 


9515 


025656 


4 4 T 77 7 

112737 


9516 


025664 


004737 


951 7 






(5) 






(5) 






C2) 






(2^ 


025670 


A/\/\/\ A y 

000004 


(?) 


025672 


1 1 T777 

1 12737 


(2) 


025700 


A1 7717 

013737 


9518 


025706 


1 A^ A 7 

010603 


9519 


025710 


AAA T C 7 

000257 


95?Q 


025712 


1 1 T7A^ 

1 12706 


9521 


025716 


006006 


9522 


/\TC 71rt 

025720 


1 A 7 7 7X 

103776 


9523 


025722 


AAC TA^ 

005206 


9524 


025724 


AA1 J A7 

001403 


9525 


025726 


A4 Ay A T 

010602 


9526 


/\ T f 77 A 

025730 


010306 


9527 


TC 77T 

025732 


4 Ay /lAiA 

104000 


9528 






95£'9 


r\TC 7T/ 

025734 


A 4 A7Ay 

010306 


9530 






9551 






9552 


/\TC 

025736 


010600 


9533 


ATC 7y /I 

025740 


4 A/\A 7 

010003 








9535 


/^TC 7y T 

025742 


A/\CAy 7 

005043 


9536 


ATC 7/ / 

025744 


1 1 17y y 

1 12746 


9537 


ATC 7C A 

025750 


AT T71 7 

022713 


9538 


ATC 7C / 

025754 


001002 


9539 


ATC 7C^ 

025756 


A TA7AZ 

020306 


9540 


ATC 7^ A 

025760 


A/\ 1 y A4 

001401 


▼ j«» I 


yJcj'Oc 




9542 






9543 


025764 


105226 


9544 


025766 


005723 


9545 


025770 


001002 



T43 



B 10 

11:30 PAGE 47-93 



CHECK THAT ALL BITS IN THE PSW CAN BE SET AND CLEARED 



SEO 01 If 



000016 



000006 



1 7777b 

000340 ^7777b 
063314 



000044 001252 
001252 177570 



MOV 
CMP 
BEQ 
HLT 

CL2 
BIC 
MOV 
BEQ 
HLT 

2$: ASL 
BCC 
CLR 
MOV 
MOV 

3$: .WORD 
MOV 
ADD 
RTI 

4$: MOV 
MOVB 
JSR 

• ************ 

;iTEST 44 

■ • *********** 

TST44: SCOPE 



(R4).R3 

R2.R3 

.♦4 



R2,(R4) 
(R4),R3 
2S 

R2 
IS 

(R4) 

^SP)*.a#TBI 
(PC)*.-(SP) 
0 

PC.-(SP) 
Mb, (SP) 



GET BIT 

CHECK THAT BIT WAS SET IN PSW 

ERROR! BIT IN R2 FAILED TO SET IN PSW 
CLEAR Z BIT 
CLEAR BIT IN PSW 
GET PSW RESULT 

BRANCH IF BIC ABOVE CLEARED BIT IN PSW 
ERROR! BIT IN R2 FAILED TO CLEAR IN PSW 
SHIFT TEST BIT 

BRANCH IF ALL BITS NOT TESTED 
.CLEAR STATUS 
TVEC*2 .-RESTORE T BIT RETURN 

.PUSH ORIGINAL STATUS ON STACK 
.-CONTAINS ORIGINAL PSW 
.-SET RETURN PC 



RETURN 

SAVE PSU IN R4 
SET PRIORITY LEVEL 7 
GO CLEAR 'T* BIT IF SET 



airpsw.R4 
#340,airpsw 

PCa/rCLRTBIT 

**************************************************** 

CHECK THAT ALL BITS IN THE CURRENT STACK PTR CAN BE SET CLEARED 
**************************************************** 



000377 





MOVB 




MOV 


CHKSP: 


MOV 




CCC 




MOVB 


1$: 


ROR 




BCS 




INC 




BEQ 




MOV 




MOV 




HLT 


2$: 


MOV 



#44,anTSTW .-LOAD TEST NU>BER 

a«TST>«,a(IDISPLAV .-.-DISPLAY TEST NUMBER 

SP.R3 .-SAVE STACK PTR 



#377. SP 

SP 

1$ 

SP 

2S 

SP,R2 
R3.SP 



R3. SP 



SET STACK PTR = -1 

ROTATE 0 BIT THROUGH ALL BIT 

BIT POSITIONS 

SHOULD INCREMENT SP TO 0 

.-SAVE ERROR STACK PTR 
.SET STACK PTR FOR TRAP 
.•ERROR! 

.■RESTORE ORIGINAL STACK PTR 



.-CHECK BYTE OPERATIONS USING THE STACK 



SPCHK: 



1 77777 
0003^7 



1$: 



MOV 
MOV 

CLR 

MOVB 

CMP 

BNE 

CMP 

BEG 

HLT 



SP.RO 
R0.R3 

-(fi3) 
#-1.-(SP) 
#377, (R3) 
1$ 

R3. SP 
.♦4 



INC8 (SP)+ 
TST (R3)* 
BNE 2$ 



.-SAVE STACK PTR 



;(SPJ = 377 

.-CHECK THAT ONLY EVEN BYTE WAS AFFECTED 
.•CHECK AUTO-DEC 



.-CHECK RESULT 



CEOKC-t POP 11/70 CPU EXERCi:fR HACvil 



CcQKCc 


oil * 
PI 1 


1 O MAD BA 


1 1 . 57 






UcOUOo 






A'^C 7 7/ 


AA-I / Ai 






A'5C 77^ 


i Ay AAA 
I0*»000 














AO^A/V^ 

U^oOUU 


AAC1 / 7 






A'^Z./V\'5 

U<:oW<: 


1 / / X 1 7 








A'5'571 7 


177/ AA 






AAi AA'^ 






A'^^Ai 0 


A'5A^A7 

U<;Uo03 








AAI / AI 
OOI*lUI 




V550 


UcoOlo 


1 A/ AAA 












V530 


\JctMcv 


1 75X.57 


AAA777 
UUU3^ 1 




AO^J^O/ 

UctfJc'* 


AA1 AA D 

UUiUUc 






AOiLAOi^ 


A5A<i/\A 

UcUoUU 






AO^J^TA 


AAi / AI 
OU I*»U1 






U<:oU}<: 


1 A/ AAA 












y^o*» 




AI "iTLt^ 

Ulcr«io 


AAAAA1 




AOiLAAA 


AX57AA 

UOc^UO 


A AAA A 5 

UUUUUc 






A1 57A5 


1 77ZA1 






1 5A5/.A 








AAI AAZ. 
UU 1 UU*» 








1 55i»A5 




QC7A 




AAI AA5 
UU 1 UUc 








A5A/W. 








UU ImU I 






AO<L/V^ 


1 AZAAA 








1 A^A77 


1 7777A 

\ 1 1 1 lO 




A5/wA75 


AI l\LL/\ 








A1 A7ZA 
U 1 Uf 'to 




QC 77 


A5AA7X. 


AA571 
\JOcf 1 0 


AAAAAA 


QC 7D 


AD^I A5 


AAAAA5 




QC7Q 








\ j) 








( 5) 








/0\ 
\d) 








tO\ 

\c) 








\C.) 


A5/.1 AA 


1 1 5777 


AAf^AZ*; 




A5A1 1 Z 
UcOl l*» 


AI 7777 


AAI 5^5 




A5X.1 55 
Uco 1 CC 


A1 5757 
\j\Cl CI 


1 7777A 
I 1 1 1 lO 


OCB1 


A5i»1 5A 


AAAAAA 
UUUUUU 






A5A1 7A 


A1 A7AA 
U lU'UU 






A5A1 75 


1 A57AA 
1 Oc ' vAJ 


AAA/W. 


oca/. 


A5A1 


AA^^5A 




▼jOj 




AAA7Z.A 

uyo3*«u 






A5A1Z.5 


1 A577^ 




oca7 




A557A7 


A7777A 

\Ji 1 1 1 O 


OCfifl 


A5A1 ^ 5 


AA1ZA1 
UU l*»U 1 




OCfiO 


A5<t1 QZ. 
UcO 1 5*» 


1 AZAAA 












r Jr 1 








9592 








9593 








9594 


026156 


010700 




9595 


026160 


010002 





C 10 

30A(1052) 12-mR-80 11:30 PAGE A7-94 
T44 CHECK THAT ALL BITS IN THE CURRENT 



STACK PTR CAN BE SET CLEARED 



SEQ 0119 



2S: 



3$: 



4S: 



CMP 

BEQ 
HLT 

COM 

BIC6 

CMP 

BNE 

CMP 

BEQ 

HLT 

BITS 

BNE 

CMP 

BEQ 

HLT 



RO.SP 
.♦4 



-(R3) 

-(SP)-(R3) 
#177400. (R3) 
3S 

SP,R3 
.*4 



(SP)*,#377 
4S 

SP,RO 
.♦4 



.•CHECK AUTO- INC 

;(R3)=1 77777 
.■CHECK RESULT 



MOV #1,-(SP) 

ADD #2.SP 

MOV #177401 ,R2 

CMP8 R2.-(SP) 

BNE 5$ 

CMP8 (SP)*.R2 

BNE 5$ 

CMP RO.SP 

BEQ .♦4 
5S: HLT 

CLR8 a#PSW 

MOV R4.-(SP) 

MOV PC.-(SP) 

ADD #6.(SP) 
RTI 

•»»•*•••***•*****•••*****♦*•»****•****••****••**•***•*•*•••*•••• 

West 45 check that 'c* bit sets/clears properly 



.•RESTORE ORIGINAL PSW TO STACK 



001252 
177570 



TST45: 



C6IT; 
1$: 



2$: 



177754 



SCOPE 

M0V8 

MOV 

MOV 

.WORD 

MOV 

SUB 

ADC 

ASL 

BVC 

CMP 

BEQ 

HLT 



#45.a#$TST^#1 ;LOAD TEST NLWBER 

a»$TSTI#1,a#DI SPLAY ;, •DISPLAY TEST NUMBER 
#177776. (PC )+ .-LOAD CONSTANT 



0 

PC.RO 
#4.R0 
<R0)* 
-<R0) 
2S 

#077776.1$ 
.♦4 



GET CURRENT PC 
POINT RO TO IS ABOVE 
ADD 'C BIT TO 1$ ABOVE 
SHIFT 1$ 

\JiJlL 'V BIT SETS 
CHECK RESULT 

.•ERROR! INCORRECT RESULT IN 1$ «OVE 
;RO=ADDRESS OF DATA 



.CHECK THAT CONDITION COOES ARE SET PROPERLY WHEN A NlfBER (CURRENT PC) 
.AND THAT NlfBER ♦I ARE COMPARED. AND VICE VERSA. 
CMPNUM: MOV PC.RO ;GET CURRENT PC 

MOV R0.R2 .•SAVE IN R2 



CtOKC-E POP 11/70 rpu EX£RCJ:fR WACVll 
CEQikCE.Pll 12-^-80 l-":?? 



30A(1052) 12-nAR-80 11:30 
U5 CHECK THAT 'C BIT 



D 10 
PAGE 47-95 
SETS/CLEARS 



PROPERLY 



$EQ 01 ?0 



9597 
9598 
9599 
9600 
9601 
9602 
9603 
960<i 
9605 
9606 
9607 
9608 
9609 
9610 
9bn 
9612 
9613 
96U 
9615 
9616 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
9617 
(3) 
(3) 
(2) 
(2) 
(2) 
(2) 
(2) 
9618 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1 ) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
9619 
9620 
9621 
9622 
9623 
9624 



026162 
026164 
026166 

026170 
0261 72 
0261 74 
026176 
026200 
026202 



026204 
026206 
026210 
026212 
026214 
026216 
026220 

026222 
026226 
026230 
026232 
026236 
026242 



026244 
026252 
026254 
026262 



005202 
000277 
000251 
020002 
103003 
102402 
001401 
100401 
104000 



000277 
120200 
103403 
102402 
001401 
100001 
104000 

105037 
000004 
010702 
062702 
012707 
000000 



1$: 



INC 

sec 

♦CLC.'CLN 
CMP 
BCC 
BVS 
6£0 
BMI 
HLT 



R2 



R0.R2 
IS 
IS 
1S 
.♦4 



2$: 



sec 

CMP8 

BCS 

BVS 

6EQ 

BPL 

HLT 



1 7777t 



000012 
044042 



CLRB 

RELE4: SCOPE 
MOV 
ADD 
MOV 

REL44: .WORD 
; 4444444444444 



R2.R0 

2S 

2$ 

2S 

.♦4 



avpsu 



MAKE R2 = R0*1 

CLEAR C & N BITS 
COMPARE * WITH #*1 
CARRY BIT SHOULD SET 

V BIT SHOULD CLEAR 
Z BIT SHOULD CLEAR 
N BIT SHOULD SET 

ERROR! COMPARE M WITH **1 FAILED TO 
SET CONDITION CODES IN PSW CORRECTLY 

SET CONDITION CODES IN PSW 
COMPARE **1 WITH # 
C BIT SHOULD CLEAR 

V BIT SHOULD CLEAR 
Z BIT SHOULD CLEAR 
N BIT SHOLD CLEAR 
ERROR! COMPARE f^*^ 
CONDITION CODES 
ENSURE PRIORITY 



WITH 0 FAILED TO SET 
IN PSW CORRECTLY 
0 



PC.R2 
*1^.R2 
#REL0C.PC 

0 

LAST ADDRESS OF CODE TO BE RELOCATED 44444444444 



;G0 RELOCATE PROGRAM CODE 



012767 
000004 
112737 
013737 



000001 153124 



000046 
001252 



001252 
177570 



;*TEST 46 



MOV 

TST46: SCOPE 
M0V8 
MOV 

.S8TTL 



CHECK EXTENDED INSTRUCTION SET 



#1.$TIMES 



;;D0 1 ITERATION 



aurSTSTfM.aroi SPLAY 



.LOAD TEST NUMBER 

; .-DISPLAY TEST NlfBER 



026270 


010700 






REL5: 


MOV 


026272 


005740 








TST 


026274 


010037 


001610 






MOV 


026300 


010700 
162700 








MOV 


026302 


026302 






SUB 


026306 


010037 


001604 






MOV 


026312 


010737 


001262 






MOV 


026316 


062737 


000030 


001262 




ADD 


026324 


013737 


001262 


001260 




MOV 


026332 


105737 


001600 






TST8 


026336 


001402 








BEQ 


026340 


000167 


001510 






JMP 


026344 


005000 






EXTINST 


:CLR 


026346 


000277 








sec 


026350 


006700 








SXT 


026352 


103005 








BCC 


026354 


102404 








BVS 


026356 


001403 








BEQ 



START OF SECTION 5 
FIRST ADDRESS TO BE RELOCATED 555555555 
PC.RO 
-(RO) 

RO,a#FRSTAD 
PC.RO 
*.,R0 

RO.arF ACTOR 
PC.airSLPERR 
*30.anLPERR 
airSLPERR.»r$LPADR 
a«NEXEC 
.*6 
RELE5 
RO 

.PRESET CC'S 
RO .-EXTEND SIGN (1) INTO RO 

SXTO .-CHECK RESULT CC'S 

SXTO 
SXTO 



GET PC 

RO CONTAINS THE ADDRESS OF REL5 
SAVE 

GET CURRENT PC 
SUBTRACT RELOCATION FACTOR 
SAVE RELOCATION FACTOR 
SET LOOP ADDRESS 
ADJUST 

I 

BR IF TEST CODE TO BE EXECUTED 



E 

fFQKL-e POP n/70 CPVJ EXE«Ci:Eft KACVll 3OA(1052) 12-f1AR-80 11:50 
CEQKCE.Pn 12-«AR-80 11:27 START OF SECTION 5 













RPI 


1 V 


tOcO 




<Yi52nn 






iniL 


RO 


^Dc ' 










RFO 
DC W 












TO- 


HLT 




























nov 


PC.RO 






01000? 






nov 


R0.R2 






01270^ 


1 77777 

\ 1 f f f f 




MOV 


#-l,R3 


^JJJ 




005102 






COM 


R2 






00024^ 






♦CLVICLC 






07400^ 






yOP 


RO 






10^04 














10240^ 








A V*^ V 


JO 




00140? 






DC W 


A vn V 




076414 


020205 

VC V J 






TMP 


R2 R5 

r\c # " J 






001401 

vv 1 *• V 1 






DC W 


'f4 






104000 






HI T 




















0P642? 


010700 

V 1 V» W 






MOV 


PC RO 




0?64?4 


022020 

VC C vC V 






CMP 


(ftO)« (R0)>^ 




0P6426 


000401 






DO 

on 


IC 




0P6450 


000000 

vVWW 








0 

V 


96^7 


026452 

wC 


005700 




1$: 


T^T 


RO 




026454 


006710 

VW" 1 V 






5XT 




96A9 


026456 


005002 

w wc 








R2 


9650 


026440 


005700 






TST 


RO 

r\ V 


9651 


02644? 


100001 

1 WW ' 






BPL 


■^4 


9652 


026444 


005102 

w y I VC 






COM 


R2 


9655 


026446 


021002 

VC I wc 






CMP 


(RO) R2 

V n V / ^ r\c 


9654 


026450 


001401 

W 1 "fV ' 






DC W 


♦4 


9655 


026452 


104000 




SXT1 : 


HI T 




9656 














9657 


026454 


012710 

VIC' 'V 


100000 

1 www 




MOV 


#100000 (RO) 

w 1 wvw 0 \ V / 


9658 


026460 


011002 

V I • wc 






MOV 


(RO) r? 


9659 


026462 


000277 

vwc » ' 






sec 




9660 


026464 


074210 

V r ~C 1 W 






XQR 


R? (RO) 


9661 


026466 


103007 






BCC 


X0R1 

AWT* I 


9662 


026470 


102406 

' vc~w 






RV5 


XQR1 


9665 


026472 


001005 

W 1 w^ 






uVvC 


X0R1 


9664 


026474 


100404 






BMI 


X0R1 


9665 


026476 


005710 

W ^ • IV 






TST 


(RO) 


9666 


026500 

W 


001002 

w 1 wc 






BNE 


X0R1 




026502 


005402 

VV v'fvC 






NEG 


R2 


9668 


026504 


102401 

1 VC~w I 






8VS 


.♦4 


9669 


026506 

VL V J 


104000 

I V^ wv 




X0R1 : 


HLT 




9670 














9671 


026510 

VL V^ 1 V 


010702 

V I V • VC 






MOV 


PC,R2 


967? 


026512 

VL V ^ 1 k 


02222? 

VC c c c c 






CMP 


(R2)+.{R2)* 


9675 


026514 


000401 

WV^ V 1 






BR 


SXT4 


9674 


026516 


000000 






.WORD 


0 


9675 


026520 


012722 


125252 


SXT4: 


MOV 


#125252. (R2)* 


9676 


026524 


006742 






SXT 


-(R2) 


9677 


026526 


074722 






XOR 


PC.(R2)* 


9678 


026550 


010700 






MOV 


PC.RO 


9679 


026552 


005740 






TST 


-(RO) 


9680 


026554 


005100 






COM 


RO 



47-96 



SEO 0121 



.-CHECK RESULT 



.•CLEAR C AND V BITS 
;R5 SHOULD CONTAIN COMPLEMENT OF RO 
.•CHECK THAT C WAS NOT AFFECTED 
;AND THAT V WAS CLEARED 

.-CHECK RESULT 
.•ERROR.' XOR FAILED 



SET ADDRESS REGISTER 
RESERVE WORD FOR TEST DATA 
CONTAINS TEST DATA 
EXTEND SIGN OF ADDRESS INTO 
ADDRESS (R0)=-1 IF MSB R0=1 
OTHERWISE, (R0)=0 
CHECK SIGN OF ADDRESS 

COMPLEMENT CHECK REG IF NEG 
CHECK RESULT OF SXT 

ERROR! SXT FAILED TO EXTEND SIGN PROPERLY 
PRESET DATA 

PRESET CCS 

XOR 100000 WITH 100000 RESULT = 0 
CHECK CCS AFTER XOR 



.•CHECK RESULT (0) 

.-CHECK THAT REG WAS NOT AFFECTED 



.PRESERVE WORD FOR DATA 
.RESERVED FOR DATA 
.PRESET DATA 
.-EXTEND CiGN 

.GET PC 

.-SUBT'^ACT 2 FROM PC 
;RO-f<ESULT OF XOR PC-1 ABOVE 



fFQKC-t POP 
CfQKCE.PII 



M/70 CPU EXERCI^FR MACrll 30A(1052> "^-nAft-SO 
1?-«AR-80 11:27 START OF SECTION 5 



F 10 
30 PAGE 47-97 



SEO 01?2 































DCU 


♦6 












ynp?6 • 


Ul T 






















\JC\J ^■**f 


T/ 12706 


noonm 








irl R6 




0?655n 


006767 


vWVvJW 






JA 1 


W0R6A 

A 






076667 






?t • 
C »• 








vcQ 


10062^ 








RMI 


yno6 






006 VMi 










R6 


'^90 




10237'^ 








D T I. 


p« 
c # 


9^91 












RPl 


ynR6 


9b9P 


026570 










ynp 


0.1 vrtRAA 






10001S 








npi 


ynR6 


9694 


0P6S76 


074767 


0000 






AUf^ 


pr ynR6A 


9^9S 




010767 


0000^0 








pr yno6n 

' U t AUnOO 






162767 


000004 


000022 






ML ynR6R 


9697 




\J\J J 1 Or 


00001^ 






roM 


ynR6R 


9698 


026620 




00001P 


000006 






ynR6R yno6A 

AL^uO # AUnDM 


9699 


026626 


001401 








RFQ 




9700 


026630 


106000 






X0P6 ■ 


HI T 




9701 
















9702 


026632 


000402 










4'6 


9705 
















9704 


026634 


000000 

www 










0 


9705 


026636 


OOOOCX) 








WORD 


0 


9706 
















9707 
















9708 


026640 


012700 

V/ ■ C ' w 


077777 






MOV 


M077777 flO 


9709 


026)644 


006767 


1 77764 

lift U"t 








yOR6A 


9710 


026>650 


001004 










^yT6 

■jA 1 U 


9711 


026652 


100403 








MI 


^XT6 


971? 


026654 


103402 








Rf S 




9715 


026656 


102401 








ov o 




97U 


02ftf^ 


(XX)401 








op 




9715 


026662 


104000 






SXT6- 


HI T 




9716 
















971 7 


026664 


012702 

V/ 1 c ■ v/c 


000001 








irl R2 


9718 


026670 


01 3703 


001604 






nov 


AtfFArTOR R'^ 


9719 


026674 


060002 








ADD 


RO R2 


9720 


026676 


006763 


026634 








yOR6Af 


9721 


026702 


001403 








RFO 


OA 1 


9722 


026704 


005267 

W^fc VJ • 


1 77724 








W0R6A 


9725 


026710 


001401 










'f 6 


97 2U 


02671 2 


104000 








HI T 




9725 














9726 


026714 


010703 








MOV 


Pf R'^ 


9727 


026716 


(XX)402 








RR 
on 


46 


9728 


026720 


000000 










0 


9729 


026722 


000000 

v/wvw 






SXR8: 


.WORD 


0 


9750 


026724 


005723 








TST 


(R3) * 


9731 


026726 


010304 








MOV 


R3,R4 


9732 


026730 
026732 


000250 








CLN 


9733 


006724 








SXT 


(R4)* 


9734 


026734 


001401 








BEO 




9735 


026736 


104000 






SXT2: 


HLT 




973fc 













.•CHECK RESULT OF SXT AND XOR ABOVE 
.•ERROR! SXT t XOR ABOVE INCORRECT 
;SET R4 

.•PRESET DATA-O 



.■SHIFT R4 

.•UNTIL V SETS (R4=1 00000) 
.-BRANCH IF 'N* IS CLEAR 
;X0R6A=1 77777 

;XOR PC WITH X0R6A 077777) 
;FORM PC AS USED IN XOR ABOVE 



.•X0R6A SHOULD = COMPLEMENT OF PC 
.•ERROR! XOR TESTS ABOVE FAILED 

.•CONTAINS DATA USED Br TEST ABOVE 



SET SOURCE OPERAND FOR ADD 
CLEAR X0R6A 

CHECK CCS AFTER EXTENDING ZERO'S 



ERROR! SXT FAILED 

SET DEST OPERAND FOR ADD 
LOAD INDEX REGISTER 
RESULT OF ADD= 100000 
EXTEND SIGN OF ADD ABOVE 

CHECK RESULT OF SXT 



ERROR ! 
SIGN 



SXT ABOVE FAILED TO EXTEW 



PRESERVE 2 WORDS FOR DATA 
RESERVED WORD FOR DATA 
RESERVED WORD FOR DATA 

R3 = ADDRESS OF SXRA 
CLEAR N BIT 

EXTEND ZEROS INTO SXRA 
ERROR. SXT FAILED 



J 



G 10 

CEOKC-E POP n/70 CPU Exe«CJ:fR «ACV11 30A<1052) 12-f1AR-80 11:30 PAGE 47-98 
CEQKCE.PII 12-HAR-80 11:27 START Of SEfTION 5 



SEO OV? 



07X7 


UcO' HU 


nifv.A7 


1777SZ. 

\ f I f jH 




nuv 


WH , 3 




JO 




VAJUcJf 






ccc 

V. V. V 




• ri FAR rniuniTiniu rnnFC 


Q7XQ 


UcO' HO 


vUDr JJ 








V ( n J / ^ 






n?<i.7sn 


W IHV/ 1 








• 'H 






UcO' 3c 


1 UhUUU 






ui r 






Q7l? 


















\JcOf JH 












• CF T Kl n 1 T 




n?A7SA 

ucQ' JO 








OA 1 




'FXTFMD ONF^ INTO <t)(RR 
«CAicnil/ unco 1 ni 1 u JAno 


Q74S 




' WHU 1 








♦4 

• ^H 






UCOr OC 


in4nflfl 

1 vHKA/v 




OA 1 ^ • 


HI T 




•FRROR ' 


Q?C7 
















Q7CR 


vcO' OH 


\J \ C 1 vH 


npspsp 

WC JC JC 




MOW 


JfnPSP«>P R^ 




r f H T 




W' HH J J 








R4 a(R^)« 






0?f\777 

\JC\Ji 1 c 


OOSOOP 








RP 




97S1 


L/CO ' » H 














97S? 


Cl?f\77h 

\JC\J f f \J 








DC U 


AUI^J-/ 




<)7S^ 

r f J J 




1 WW** 






RPl 

Or L 








CP700P 


\J\J J 1 VH 








R4 


•R4 = 1SPSP5 








1 7771 P 

Iff' 1 c 






R4 ^XRR 

nH f OARO 




97S6 










RFQ 


4^4 

■ '^H 




9757 




104000 










-FRROR* VQR FAil FD 


97S8 
















97S9 


0P70K 


OOS743 

\J\J J 1 ~ J 






TST 


-(R3) 


-R3 = ADDRFS*; OF ^XRA-P 


9760 


0P7016 


0O0P50 










- Cl FAR N RI T 


9761 


0P70P0 


006773 


00000 P 










9762 


027024 


001401 






BEO 


.♦4 




9763 


027026 


104000 




SXT7: 


HLT 




;ERR0R! SXT FAILED 


9764 
















9765 


027030 


074473 


000002 




XOft 


P'..a2(R3) 


;SXR8 = R4 


9766 


027054 


020473 


000002 




CMP 


R4,a2(R3) 


.•CHECK XOR 


9767 


027040 


00K01 






BEO 


.♦4 




9768 


027042 


104000 




X0«7: 


HLT 




.-ERROR! XOR FAILED 



9773 
(3) 
(4) 
(4) 
(I) 
<2) 
(2) 
(2) 
(2) 
9774 
9775 
9776 
9777 
9778 
9779 
9780 
9781 
9782 
9783 
9784 
9785 
9786 
9787 
9788 



027044 000004 

027046 112737 000047 001252 

027054 013737 001252 177570 

027062 005005 

027064 000407 

027066 005004 

027070 005705 

027072 001401 

027074 104000 

027076 005005 

027100 006004 

027102 000467 

027104 012700 000010 

027110 000277 



•TEST 47 SOB TEST 

NOTE: DO NOT INSERT ANY CODE IN FOLLOWING SOB TESTS 

SINCE IT TESTS THE MAXIMUn BRANCH WIDTH OF THE INSTRUCTION. 



TST47: 



S0810: 



S089: 



S080: 



SCOPE 

M0V8 

MOV 


#47.a*$TSTNM .-LOAD TEST NLMBER 
a»$TSTf#1,a#DISPLAY ;;DISPLAY TEST NUMBER 


CLR 
BR 


R5 

soeo 


; CLEAR ERROR INDICATOR 
.-BRANCH TO SOe TEST 


CLR 
TST 
BEO 
HLT 


R4 
R5 
.♦4 


;R4 = 0 

.•CHECK ERROR INDICATOR 
.SOB BRANCHED CORRECTLY 
.ERROR! 


CLR 
ROR 
BR 


R5 
R4 

soe8 


.•CLEAR INDICATOR (R5) 
.ROTATE RIGHT R4 


MOV 

see 


#^0.R0 


;R0=10 

.•SET CONDITION CODES 



''EQKC-E POP n/70 CPt' EXERCI-FR HAC M 1 





Uc 'lie 


Uv 1 V 1 c 
















inpnin 

1 Uc V 1 u 








inw»7 

1 V j\A^» 






0P71 PP 








nP7i Pi 


vv 1 W J 




Q7QS 


nP7iP6 








0P71 VI 


1 vc vv J 






0P71 3P 

vc ' 1 JC 


I V JvVC 




~ ' 


nP7i 

vc ' 1 J*^ 


SA/ J» vv 






0271 Vi 

vc ' 1 


001^01 
VV 1 *^\J 1 




TOW 


027140 

vc ' 1 ••V 
















0P/14P 


01P70P 

V 1 C ' vC 


nooloo 

Wv 1 V V 


9803 


0P7146 


01P700 

V 1 C ' w 


000101 

VVV ' V 1 




0P71 SP 

vc ' 1 JC 


001414 




980S 


0P71 S4 






9806 


0P71 56 


10P41P 

1 VC ' C 




9807 


0P7160 


10341 1 








OOS^OO 




9809 


OP 71 64 


OPOOOP 
vc vwc 




9810 


027166 

VC * ■ 


001006 

W 1 vw 




981 1 


0271 70 

VC • 1 » V 


OOOP57 

wvc y • 




981 P 

7U 1 C 


0271 72 

VC r 1 r C 


077P1 1 

V * 'CI 1 




981 5 


027174 


001403 

W I ~ V J 




98U 


0271 76 


100402 




9815 


027200 

VC ' c w 


005 70P 

W J ' VC 




9816 


027202 

VC r C vc 


001401 

VV • ■•V 1 




981 7 


027204 

VC • tv^ 


104000 

1 v~vvv 




9818 








9819 


027206 

VC ' c w 


01P700 

VIC' vv 


000001 

VvvVV 1 


98P0 


027212 

VC ' C ' c 


000401 




9821 


027214 

VC » C ' ~ 


104000 

1 V^ WV 




9822 


027216 

VC ' c ■ u 


077002 

V • • WC 




98P5 








98P4 


027PP0 

VC • C C V 


005700 

w -/ • vv 

001 401 

VV • ~ V f 




98P5 


027222 

VC ' c c c 




9826 


027 22U 

VC ' CC"» 


104000 

1 V*V WV 




9827 

70C ' 








9828 


0P7PP6 

VC ecu 


012704 

V 1 C ' v^ 


1 00000 

1 WWv 


9829 


027232 

VC • c ^c 


000403 




9850 

7d -/W 


027234 


005204 

W J c v~ 




70 J ' 


027236 

VC * C^V 


100403 




9832 

7tUC 


027240 

VC • c~v 


104000 

1 V^ V V V 




9833 








9834 

7U 








9835 


027242 

VC ' c~c 


077404 




9836 


027244 

Vb • 


104000 

1 V^ WV 




9837 








9838 


027246 


012703 


000100 


9839 


027252 


077301 




9840 


027254 


005703 




9841 


027256 


001703 




9842 


027260 


104000 




9843 








9844 


027262 


005705 





50A(1052) 12-nAft-80 11: 



1L7 




TF^T 


>us > • 




CORP 




nPi 






nv/r 














DO 






^mc 




Or L 


^npp 

OlAC 




BVC 


5082 




BCC 


$082 




1 O 1 


RO 

n\j 




DCW 






HI T 








#100 R? 

W 1 VV * ''C 




MOV 


#101 RO 


^nR3- 


DC W 


























RO 

r\ V 




CMP 


RO R2 










CUV 






SOR 


nc « ovD J 




BEO 


$084 




BMl 


S084 




TST 


R2 

"C 




BEO 


♦4 


^0S4 * 


HI T 




S085: 


MOV 


»1,R0 




op 


• 




HLT 






soe 


R0,.-2 




TST 


RO 

r\ V 




DC w 






HI T 




S0e5A: 


MOV 


#100000 






1$ 


3$: 


INC 


R4 






2S 




HLT 




It: 


SOB 


R4 3i 




HI T 


2i: 


MOV 


#100,R3 


$096: 


soe 


R3.S086 




TST 


R3 




BEQ 


soeio 


S087: 


HLT 




SOBS: 


TST 


R5 



H 10 
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CHECK CONDITION COOES AfTfR SOB 
$08 SHOULD NOT EFFECT THE 
CONDITION CODES. 



.•CHECK CONDITION CODES AFTER 
;S08 FALLS THROUGH, 
;SOe SHOULD NOT EFFECT 
.•CONDITION CODES. 
.•CHECK IF R0=0 

.•ERROR.' 

;R2=100 

;SET CHECK REGISTER. R0=101 
.•CHECK CONDITION COOES AFTER 
:SOe BRANCH, 
.•soe SHOULD NOT EFFECT 
.•CONDITION COOES. 
.•DECREMENT CHECK REGISTER 
.■CHECK THAT SOB DECREMENTS 

;SET CONDITION CODES BEFORE SOB 
.•BRANCH TO S0e3 UNTIL R2=0 
.•CHECK CONDITION CODES AFTER 
.-SOB FALLS THROUGH 
.CHECK IF R2-0 

.-ERROR! 

;R0=1 

•ERROR ' 

;SOe SHOULD NOT BRANCH 
.•CHECK IF R0=0 AFTER SOB 
.•ERROR! 
;R4=1 00000 
;R4= 100000 

;N BIT SHOULD BE SET 
.-ERROR! SOB DID NOT 
.•INCREMENT PROPERLY 

:SOB SHOULD BRANCH 

.•ERROR! SOB DID NOr BRANCH 

;R3=100 

.•USE soe TO BRANCH TO ITSELF 
.•CHECK IF R3=0 

.•ERROR! 

.•CHECK INDICATOR (R5) 



CEOKC-E POP 
CfOKCE.PII 



«»<.5 
9846 
9847 
9648 
9849 
9850 
9851 
9852 
9853 
9854 
9855 
9856 
9857 
9858 
(3) 
(5) 
(2) 
(2) 
(2) 
(2) 
9859 
9860 
9861 
9862 
9863 
9864 
9865 
9866 
9867 
9868 
9869 
9870 
9871 
9872 
9873 
9874 
9875 
9876 
9877 
9878 
9879 
9880 
9881 
9882 
9906 
(3) 
(4) 
(4) 
(4) 
(4) 
(4J 
(4) 
(4) 
(4) 
(4) 
f4) 



11/70 CPU EXERCISER «ACv11 
12-«AR-80 11:?7 



3OA(105?) 12-«AR-80 11:30 
T47 S08 TEST 



I 10 
PAGE 



47-100 



Sf3 0125 



027264 
027266 

027270 
0^7272 
027271. 
027276 
027300 



027302 
027304 
027312 
027320 
027322 
027324 
027326 
027330 
027332 
027334 
027336 
027340 
027342 
027346 
027350 
027354 
027356 
027360 
027362 
027364 
027366 
027370 
027372 
027374 
027376 
027400 
027402 



00U01 
104000 

005205 
077477 
005704 
001401 
104000 



000004 

112737 000050 

013737 001252 

010602 

010705 

010500 

010546 

010746 

010746 

010746 

010746 

010746 

012746 006405 
010605 

004767 000002 

000403 

000205 

104000 

000407 

020602 

001402 

104000 

000403 

020005 

001401 

104000 

010206 



BEQ 
HLT 

INC 

see 

TST 
BEQ 
HLT 



.♦4 



R5 

R4.S0B9 

R4 

.♦4 



if soe branches incorrectly 
when checking max. branch, 
r5 will not be cleared at 
this point indicating an error. 

.•branch if sob branch*^ s correctly 
.error: 

set indicator (r5) 
test max. branch of sob 
check if r4=0 



•TEST 50 



.ERROR. 
CHECK THE MARK INSTRUCTION 



001252 
177570 



TST50: SCOPE 





novB 


#SO.a#STSTNM 




nov 


airSTSTNM,9#DI 


MRKTST 


■ MOV 


SP,R2 




MOV 


PC,R5 




MOV 


R5.R0 




MOV 


R5.-(SP) 




MOV 


PC,-(SP) 




MOV 


PC,-(SP) 




MOV 


PC,-(SP) 




MOV 


PC.-(SP) 




MOV 


PC.-(SP) 




MOV 


iWARK*5.-(SP) 




MOV 


SP.R5 




JSR 


PC .MARKl 




BR 


.-^10 


flARKi: 


RTS 


R5 




HLT 






BR 


MARKEX 




CMP 


SP.R2 




BEQ 


.♦6 




HLT 






BR 


MARKEX 




CMP 


R0,R5 




BEQ 


.♦4 




HLT 




MARKEX. 


MOV 


R2.SP 


;*TEST 


51 


RTT/RTI TEST 



SPLAY 



.•LOAD TEST NUMBER 

; .-DISPLAY TEST NUMBER 



THE 
THE 



STACK LOOKS LIKE 
JSR INSTRUCTION 



THIS AFTFR 



-2(SP)= 
-4(SP)= 
-6(SP)- 
-10(SP)= 
-12(SP)= 
-14(SP)= 
-16(SPJ= 
-20(SP)= 



RO 
PC 

PC*2 
PC>4 
PC*6 
PC*10 
MARK 5 
PC PUSHED 



THIS IS A 
STRING 
OF 

FIVE 
DUMMY 
ARGlflENTS 



BY JSR 



.ERROR! SHOULD BE DOING MARK 5 INST. 



.-error: sp not returned to proper 
.-value by mark instruction 



.error: did NOT RESTORE R5 FROM STACK 
.-RESTORE SP 



RTT/RTI TEST INSURES THAT CP DOES THE INSTRUCTION FOLLOWING 
AN RTT If THE 'I'BIT IS SET IN THE PSW.8UT DOES HONOR 
THE TRAP IWEDIATELY IF IT EXECUTES AN RTI 
INSTRUCTION SEQUENCE-RTT 



2$: 



5$; 



RTT 
INC 

COM 
MOV 
RTI 



RO 
RO 

SAVPSW.2(SP) 



NO 'T* TRAP AFTER RTT 
R0=000001 

•T* TRAP TO 5$ AFTER INC 
R0=1 77776 

CLEAR 'T* BIT IN RETURN PSW 
RETURN TO INSTRUCTION FOLLOWING INf 



J 



J 10 

CEQKC-E POP 11/70 CPU EXERCI:ER MACrn 50A(1052> 12-fMR-80 11:50 PAGE A7-101 
CE0KCE.P11 12-MAR-80 11:27 T51 RTT/RTITEST 



(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(3) 
(2) 
(2) 
(2) 
(2) 
9907 
9908 
9909 
9910 
9911 
9912 
9913 
9914 
9915 
9916 
9917 
9918 
9919 
9920 
9921 
9922 
9923 
9924 
9925 
9926 
9927 
9928 
9929 
9930 
9931 
9932 
9933 
9954 
9935 
9936 
9937 
9958 
9939 
9940 
9941 
9942 
9943 
9944 
9945 
f4) 



027404 
027406 
027414 
027422 
027430 
027436 
027440 
027444 
027446 
027452 
027456 
027462 
027466 
027474 
027476 
027502 
027504 
027510 
027512 

027514 
027522 
027530 
027532 
027536 
027540 
027542 
027544 

027546 
027550 
027552 
027554 
027562 
027564 
027566 
027574 
027576 
027604 
027612 
027616 
027624 



000004 
112737 
013737 
013767 
032767 
001402 
000167 
010746 
062716 
012637 
016746 
011637 
052737 
005000 
052716 
010746 
062716 
000006 
005200 

042737 
022767 
001005 
022700 
001406 
104000 
000415 
005700 

001413 
104000 
000411 
012767 
000730 
005100 
016766 
000002 
012767 
012737 
005037 
042737 



000051 
001252 
1 77776 
000020 

000402 

000116 
000014 
000162 
000016 
000340 

000360 

000006 



000340 
000006 

177776 



00125? 
177570 
000214 
000206 



TST51 



RTT1 



1$: 



177776 



2$: 



177776 
177760 



000002 177726 



000052 000002 



000006 
001570 
000016 
000360 



177704 
000014 

000016 



3S: 

4S: 
5$: 

6S: 

RTT1EX: 



#RTT,2$ 

ETC 



INSTRUCTION SQUENCE-RTI 
2$: RTI 



5$: 



COM 
MOV 
RTI 
INC 
CMP 



ftO 

SAVPSW.2(SP) 
RO 

#RTT,2$ 

ETC 



SCOPE 

M0V8 

MOV 

MOV 

BIT 

BEO 

JMP 

MOV 

ADD 

MOV 

MOV 

MOV 

BIS 

CLR 

BIS 

MOV 

ADD 

RTT 

INC 

BIC 

CMP 

BNE 

CMP 

BEO 

HLT 

BR 

TST 

BEO 

HLT 

BR 

MOV 

BR 

COM 

MOV 

RTI 

MOV 

MOV 

CLR 

BIC 



#51.a#$TSTNM 
a#$TSTNM,a#DISPLAY 

»rPsu,SAVPSw 

«20,SAVPSW 
IS 

RTT2EX 

PC.-(SP) 

*5$-..(SP) 

(SP)*,a#TBITVEC 

SAVPSW,-(SP) 

(SP). a*TBITVEC*2 

*PR7.a#PSW 

RO 

*PR7*20.(SP) 

PC.-(SP) 

#6,(SP) 

RO 

*PR7.a#PSW 

#RTT,2S 

3$ 

#1 77776, RO 
4S 

6$ 

RO 

6$ 
6$ 

*RTI,2f 
1$ 

RO 

SAVPSW,2(SP) 

#SRTRN,arTBITVEC 

a#T8ITVEC*2 

#PR7*eiT4,a*T8ITVEC*2 



;CHtCK 



•T' TRAP AfTER RTI 
R0=1 77777 

CLEAR 'T' BIT IN RETURN PSW 
RETURN TO INC INSTRUCTION 
R0=000000 
CHECK 



.-LOAD TEST NIMBER 

; .DISPLAY TEST NlfBER 

.-SAVE PSW 

.•CHECK IF 'TBIT SET 
.•CONTINUE IF NOT 
.-BRANCH TO EXIT 
;6ET CURRENT PC 
.•FORM RELOCATED PC 
.-LOAD INTO TRAP VECTOR 
;GET CURRENT PSW 

;SET PRIORITY LEVEL 7 

.-SET 'T'BIT IN PSW ON STACK 
.-PUT THE PC ON THE STACK 
.•ADJUST PC FOR NEXT INSTRUCTION 

.DONE TO SEE IF INSTR. FOLLOWING 
;RTT IS EXECUTED IF T-BIT SET 
;SET PRIORITY LEVEL 0 

.•CHECK IF INC WAS EXECUTED 
.•CHECK IF COM-RO EXECUTED 

; ERROR !R0 NOT COMPLIMENTED 
.•EXIT TEST 

.•TEST IF TRAPED BEFORE INC INST. 
.-WAS EXECUTED 

.ERROR! 
;£XIT TEST 



;RTT CHECK 



.•RESTORE 'T* TRAP VECTOR 
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CEOKC-E POP 11/70 CPU EXERCISER MACYll 50A(1052) 12-«AR-80 11:30 PAGE 47-102 
CE0KCE.P11 1?-^-80 11:27 T52 SECOND RTT TEST 



SEC 01^7 



(?) 
(?) 
(2) 
(2) 
(2) 
(2) 
99<,6 
99<,7 
9948 
9949 
9950 
9951 
9952 
9953 
9954 
9955 
9956 
9957 
9958 
9959 
9960 
9961 
9962 
9963 
9964 
9965 
9966 
9967 
9968 
9969 
9970 
9971 
9972 
9973 
9974 
9975 
9976 
9977 
9978 
9979 
9980 
9981 
9982 
9983 
9984 
9985 
9986 
9987 
9988 
9989 
9990 
9991 
9992 
9993 
9994 
9995 



027624 
027626 
027634 
027642 
027644 
027646 
027652 
027654 
027660 
027662 
027664 
027670 
027672 
027674 
027700 



027702 
027706 
027714 
027716 
^27722 
Q2772i* 
0277ZO 
027752 
027736 
027740 
027742 
027744 
027750 
027752 
027754 



027756 
027764 
027766 
027770 
02777i, 
027776 
030004 
030006 
030010 



030012 
030020 
030024 
030026 
030032 

030034 
030042 



000004 
112737 
013737 
000401 
000000 
016700 
105000 
012702 
074002 
001435 
012702 
074002 
001447 
032700 
001062 



012702 
012737 
005002 
012746 
010746 
062716 
000006 
013700 
005702 
001001 
104000 
022700 
001436 
104000 
000434 



052737 
005046 
010746 
062716 
000002 
022737 
001420 
104000 
000416 



052737 
012746 
010746 
062716 
000006 

022737 
001401 



000052 
001252 



^77772 
144000 

044000 

140000 

77777 
034240 

000100 

000006 

1 77776 

000100 



000006 
174340 



030200 
000340 

000006 



.••TEST 52 



SECOND RTT TEST 



001252 
177570 



TST52: 



SAVPSW: 
RTT2A: 



SCOPE 
(10V8 

mv 

BR 

.WORD 

MOV 

CLR8 

MOV 

XOR 

BEO 

MOV 

XOR 

BEO 

BIT 

BNE 



ir52.af$TSTf#1 
»r$TST»#1,a#DI SPLAY 
RTT2A 
0 

SAVPSW. RO 
RO 

#U>1*RE6,R2 

R0.R2 

2$ 

#SM*REG,R2 

R0.R2 

3S 

*UM,RO 
RTT2EX 



.•LOAD TEST Nll«ER 

;. -DISPLAY TEST NUMBER 



;GET SAVED PSW 

.•CLEAR PRIOITY LEVEL. T. AND COND COOES 



.•USER MODE REG. SET if] ON 
.•SUPER MODE REG. SET *1 ON 



;TEST THAT RTT CLEARS BITS 11.12,13 6 PRIORITY LEVEL BITS IN KERNEL MODE 



1 77776 



1$: 



4$: 



MOV 
MOV 

CLR 
MOV 
MOV 
ADD 
RTT 
MOV 
TST 
BNE 
HLT 
CMP 
BEO 
HLT 
BR 



#-1 .R2 
#PlJ>1*RE6*PR5.a»PSW 

R12 

#PR2.-(SP) 

PC.-(SP) 

#1$-..(SP) 



a^SW.RO 

R2 

4$ 

#PR2. RO 
RTT2EX 

RTT2EX 



KERNEL MODE REG. SET 0 ON 
SELECT REG. SET #1 
SHOULD CLEAR REG ^f^2 



;FORM NEW PC 

.-NOW USING REG SET 0 
.SHOULD TEST R2 NOT R12 



.•ERROR .'DID NOT CLEAR BIT #11 OF PSW 
.•TESTS THE PSW AFTER THE RTT 

.ERROR! INCORRECT PSW AFTER THE RTT 



030340 177776 H 



TEST TO INSURE THAT RTI DOES NOT CLEAR BITS 11-15 IN USER MODE 



177776 5$: 



BIS #PUM*PR7.a*PSW ;PSW<15-5>=144X 

CLR -(SP> 

MOV PC--(SP) 

ADD #5$-..(SP) 

RTI .•ATTEMPS TO INSERT A PSW OF 0 

CMP #UM+PUH*REG*PR7,a#PSW .SHOULD CHECK AGAINST REG #0 

BEO RTT2EX 

HLT .error: RTI CLEARED BITS IN PSW 

BR RTT2EX 



•TEST THAT BITS 11-15 AND PRIORTY BITS ARE NOT ALTERED IN SUPER MODE 
177776 3$: BIS #PUn*PR4.a#PSW .•PSW<15-5>=044X 
MOV #PR7,-(SP) 
MOV PC.-(SP) 
ADD #6$-..(SP) 

RTT ; ATTEMPTS TO CLEAR 11-15 AND ALTER PR 



074200 177776 6$: 



CMP #SM*PUM*REG*PR4.a(rPSW 

BEQ RTT2EX 



J 



L 10 

CEQKC-E POP 11/70 CPU EXERCIGfR MACYll 30A(1052) 12-^-80 11:50 PAGE 47-103 
CEQ<CE.Pn 12-«AR-80 11:27 T52 SECOND RTT TEST 



SEO 0128 



9997 
9998 
9999 
fl) 
M) 
(1 ^ 
(1) 
(1) 
(1) 
10000 
(3) 
(3) 
(2) 
(2) 
(2) 
(2) 
(2) 
10001 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
10002 
10003 
10004 
10005 
10006 
10007 
10008 
10009 
10010 
10011 
10012 
10013 
100U 
10015 
10016 
10017 
10018 
10019 
10020 
10021 
10022 
10023 
1002^. 



030044 104000 



030046 
030054 
030056 
030060 
030064 
030070 



030072 
030100 
030102 
030110 



030116 
030120 
030122 
030126 
030130 
030134 
030140 
030144 
030152 
030160 
030164 
030166 
030172 
030176 
030202 
030206 
030210 
030212 
030214 
030216 
030222 

030224 
030226 
030232 
030236 
030240 
030246 
030252 
030254 
030262 
030264 
030266 
030274 
030276 



016737 
000004 
010702 
062702 
012707 
000000 



012767 
000004 
112737 
01 3737 



010700 
005740 
010037 
010700 
162700 
010037 
010737 
062737 
013737 
105737 
001402 
000167 
012700 
012703 
005067 
010002 
010705 
010504 
072502 
113727 
000000 

006304 
113746 
132716 
001403 
152767 
112637 
077214 
153767 
020504 
001004 
126767 
001401 
104000 



177572 177776 



000012 
044042 



000053 
001252 



RTT2EX: 
RELE5: 



REL55: 



HLT 

MOV 
SCOPE 
MOV 
ADD 
MOV 
.UORD 



SAVPSu,arpsu 

PC-R2 

*12.R2 

#RELOC,PC 

0 



;ERR0R! RTT ALTERED PR IN 
.•SUPER MODE OR BITS 11-15. 



;G0 RELOCATE PROGRAM CODE 



5555555555555 LAST ADDRESS OF CODE TO BE RELOCATED 55555555555 



•TEST 53 



CHECK ASH. ASHC. MUL. AND DIV INSTRUCTIONS 



000001 151276 



001252 
177570 



TST53: 



MOV 
SCOPE 
M0V8 
MOV 



*1.$TIMES 



;;D0 1 ITERATION 



*53.a#$TSTNM 
afSTSTNM.arOISPLAY 



.-LOAD TEST NLMBER 

; .-DISPLAY TEST NUMBER 



.S8TTL 
.-6666666666666 



START OF SECTION 6 
FIRST ADDRESS TO BE RELOCATED 666666666 







REL6: 


MOV 


PC.RO 


;6ET PC 








TST 


-(RO) 


;R0 CONTAINS THE ADDRESS OF REL6 


001610 






MOV 


RO,a#FRSTAD 


.■SAVE 








MOV 


PC.RO 


.-GET CURRENT PC 


030130 






SUB 


*..R0 


.•SUBTRACT RELOCATION FACTOR 


001604 






MOV 


R0,a#FACTOR 


.•SAVE RELOCATION FACTOR 


001262 






MOV 


PC.arSLPERR 


.SET LOOP ADDRESS 


000030 


001262 




ADD 


4r30,cMrSLPERR 


.•ADJUST 


001262 


001260 




MOV 


air$LPERR,anLPADR 


001600 






TST8 


aWEXEC 


;BR IF TEST CODE TO BE EXECUTED 








BEQ 


.+6 




002120 






JMP 


RELE6 




000001 




ASHLO: 


MOV 


#1,R0 


;R0 WILL BE THE SHIFT COUNT 


000021 






MOV 


#17.,R3 


;MAX SHIFT COUNT 


000014 




1$: 


CLR 


2$ 


.•PRESET SAVED CCS LOCATION=0 








MOV 


R0,R2 


;6ET SHIFT COUNT FOR PASS 








MOV 


PC,R5 


;R5 & R4 WILL BE DATA SHIFTED BY 








MOV 


R5,R4 


;ASH & ASL INSTRUCTIONS 








ASH 


R2.R5 


.-SHIFT R5 


177776 






MOVB 


a»PSW,(PC)+ 


.-SAVE CCS 






2$: 


.WORD 


0 


.•CONTAINS ASH CCS IN EVEN BYTE 












;ASL CCS IN ODD BYTE 






3$: 


ASL 


R4 


; SHI FT R4 


177776 






MOVB 


arpsw,-(sp) 


.-SAVE PSW ON STACK 


000002 






BITS 


#2,(SP) 


.-CHECK IF ASL SET V BIT 




177755 




BEQ 


30$ 




000002 




BIS8 


*2.2$+l 


.-IF ASL SET V THEN Sc^ V IN 2$*1 


177776 




30$: 


MOVB 


(SP) ♦.arpsw 


.-RESTORE ORIGINAL PSW 


177776 






SOB 


R2,3$ 


.-SHIFT R4 R2 TIMES 


177741 




BISB 


a*psu,2$*i 


.-SAVE CCS AFTER ASL 








CMP 


R5.R4 


.-CHECK ASH % ASL RESULTS 


177730 


M77Z7 




BNE 


4$ 






CMP8 


2$.2$*1 


.•CHECK ASH % ASL CCS 








BEQ 


.♦4 








4$: 


HLT 




.-ERROR! INCORRECT RESULT OR CCS 



CEQtCC-F PDO 11/70 CPU EXERCISER WACY11 30A(1052) 1 

CEQKCE.P11 12-«Afi-80 11:27 START OF SEC 

10C25 030300 O0':200 INC 

10026 030302 OTOOOl CMP 

10027 030304 f01336 8NE 
10028 

10029 030306 012700 }77777 ASHRO: MOV 

10030 030312 012703 177757 MOV 

10031 030316 010002 1$: MOV 

10032 030320 010705 MOV 

10033 03C322 010504 MOV 
10054 050324 072502 ASH 

10035 050326 113727 177776 M0V8 

10036 030332 000000 2$: .WORD 
10057 

10038 030354 005402 NEG 

10059 050556 006204 3$: ASR 

10040 030340 077202 506 

10041 030542 113767 177776 177763 M0V8 

10042 030350 142767 000002 177755 BICB 

10043 030356 020504 Cf*» 

10044 030360 001004 BNE 

10045 050562 126767 177744 177743 CMP8 

10046 030570 001401 BEQ 

10047 030372 104000 4$: HLT 

10048 030374 005300 DEC 

10049 050376 020005 CMP 

10050 030400 001546 BNE 
10051 

10052 050402 012746 000037 ASHCLO: MOV 

10053 030406 012746 000001 MOV 

10054 050412 011600 1$: MOV 

10055 030414 010705 MOV 

10056 030416 010503 MOV 

10057 030420 005004 CLR 

10058 030422 005002 CLR 

10059 030424 073400 ASHC 

10060 030426 006303 2$: ASL 

10061 030430 006102 ROL 

10062 030432 077003 SOB 

10063 050434 020402 CMP 

10064 030436 001002 BNE 

10065 050440 020503 CMP 

10066 030442 001401 BEQ 

10067 050444 104000 3$: HLT 

10068 030446 005216 INC 

10069 030450 021666 000002 CMP 

10070 030454 001556 BNE 

10071 050456 022626 CMP 
10072 

10073 050460 012746 177740 ASHCRO: MOV 

10074 050464 012746 }77777 MOV 

10075 050470 011600 1$: MOV 

10076 030472 010702 MOV 

10077 030474 010204 MOV 

10078 030476 005003 CLR 

10079 030500 005005 CLR 

10080 030502 000262 SEV 



1-80 
6 



n 10 
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RO 

R0.R3 
1$ 

*-1 .RO 

*-17..R3 

R0.R2 

PC.R5 

R5.R4 

R2.R5 

a#PSW,(PC)* 

0 

R2 
R4 

R2.5$ 

a*psw,2$+i 

*2.2$*1 

R5,R4 

4$ 

2$.2$+1 
.♦4 

RO 

R0,R3 
1$ 

#51.. -(SP) 

*1.-(SP) 

(SP) ,R0 

PC.R5 

R5.R3 

R4 

R2 

R0.R4 

R3 

R2 

R0.2f 
R4,R2 
3$ 

R5,R3 
.+4 

(SP) 

(SF),2(SP) 
1$ 

(SP)+.(SP)+ 

#-52.. -(SP) 

#-1.-(SP) 

(SP),R0 

PC.R2 

R2.R4 

R3 

R5 



.•INCREMENT PASS SHIFT COUNT 



RO = RIGHT SHIFT COUNT FOR PASS 

MAX SHIFT COUNT 

GET SHIFT COUNT FOR PASS 

R5 fc R4 = DATA TO BE SHIFTED 

BY ASH ft ASR INSTRUCTIONS 

SHIFT R5 R2 TIMES 

SAVE CCS IN EVEN BYTE 

CONTAINS ASH CCS IN EVEN BYTE 

ASR CCS IN ODD BYTE 

SHIFT R4 

SHIFT R4 R2 TIMES 

SAVE CCS AFTER ASR 

ASH RIGHT WILL NOT SET V ASR MAY SET 

CHECK ASH £ ASR RESULTS 



.•CHECK ASH £ ASR CCS 



.•DECREMENT PASS SHIFT COUNT 



PUT MAX SHIFT COUNT ON STACK 

PUT LEFT SHIFT COUNT ON STACK 

GET PASS SHIFT COUNT 

CURRENT PC IS DATA TO BE SHIFTED 

ASHC SHIFTS R4.R5;ASL.ROL SHIFTS R2.R3 



SHIFT R4 LEFT AS SPECIFIED BY RO 
SHIFT R2,R3 LEFT 
AS SPECIFIED BY RO 

.•CHECK RESULTS 



.-INCREMENT NEXT PASS SHIFT COUNT 
.REACHED MAX COUNT (51.) 

.RESTORE STACK PTR 

PUT MAX RIGHT SHIFT COUNT ON STACK 

PUT PASS SHIFT COUNT ON STACK 

GET PACS SHJFT COUNT 

R2.R3 & R^.R5 ARE THE DATA REGISTERS 

TO BE SHIFTED BY TEST 



.-SET V BIT IN PSW 



cfQKC-E POP n/70 CPU exerci:fr macyh 

CE0KCE.P11 1?-«AR~80 11:27 



30A(1052) 
START OF 



12-«AR-8C 
SECTION 6 



11 



N 10 
;30 PAGE 



10081 
10082 
10083 
1008A 
10085 
10086 
10087 
10088 
10089 
10090 
10091 
10092 
10093 
1009^ 
10095 
10101 
(5) 
(4) 
(4) 
(4) 
(3) 
(2) 
(2) 
(2) 
(2) 
10102 
10103 
10104 
10105 
10106 
10107 
10108 
10109 
10110 
10111 
10112 
10113 
10114 
10115 
10116 
10117 
10118 
10119 
10120 
10121 
10122 
10123 
10124 
10125 
10126 
10127 
10128 
10129 
10130 
10131 
10132 



030504 

030506 
030510 
030512 
030514 
030516 
030520 
030522 
030524 
030526 
030530 
030532 
030534 
030540 
030542 



030544 
030546 
030554 
030562 
030566 
030572 
030574 
030576 
030600 
030602 
030604 
030606 
030610 
030612 
030614 
030616 

030620 
030622 
030624 

030626 
030630 
030632 
030634 
030636 
030640 
030642 
030644 

030646 
030650 
030652 
030654 



073200 
102410 
005400 
006204 
006005 
077003 
020204 
001002 
020305 
001401 
104000 
005316 
021666 
001353 
022626 



000004 
112737 
013737 
012700 
012706 
005016 
010702 
010227 
000000 
005003 
005004 
010205 
100001 
005104 
000277 
070200 

102406 
001405 
073416 

020204 
001002 
020305 
001401 
104000 
005216 
006300 
102353 

010702 
005202 
010227 
000000 



2$: 



3S: 



000002 



ASHC 
BVS 
NEG 
ASR 
ROR 
SOB 
CMP 
BNE 
CMP 
BEQ 
HLT 
DEC 
CMP 
BNE 
CMP 



R0.R2 

3$ 

RO 

R4 

R5 

R0.2$ 
R2.R4 
3$ 

R3,R5 
.♦4 

(SP) 

(SP),2(SP) 
1$ 



47-105 



SHIFT R2.R3 RIGHT RO TIMES 
SHIFT RIGHT CLEARS V 
NEGATE SHIFT COUJT FOR SOB 
SHIFT R4,R5 RIGHT RO TIMES 



SEO 0130 



.•CHECK RESULT 



.-SET SHIFT COUNT FOR NEXT PASS 
.•CHECK IF MAX SHIFT COUNT 



.•RESTORE STACK PTR 
■ *************************************************************** 

West 54 check mul 

• the BELOW test OF THE MUL INSTRUCTION MULTIPLIES THE CURRENT PC 

• BV 1.2,4,8 ETC AND SHIFTS THE SAME PC VALUE USING AN ASHC LEFT BY 

• 0,1. 2, 3, ETC AND COMPARES THE RESULTS. CONDITION CODE RESULTS ARE NOT CHECKED, 

• ******************************************************* 



000054 
001252 
000001 
000700 



001252 
177570 



TST54; SCOPE 
M0V8 
MOV 

MULO: MOV 
MOV 
CLR 

1$; MOV 
MOV 
.WORD 
CLR 
CLR 
MOV 
BPL 
COM 

sec 

MUL 

BVS 
BEQ 
ASHC 

CMP 
BNE 
CMP 
BEQ 

2$: HLT 
INC 
ASL 
BVC 

.•CHECK MUL INST 
MOV 
INC 
MOV 
.WORD 



#54.a#$TSTNM 

a#$TSTNM,arDi 

*1,R0 

#SUPSTK,SP 

(SP) 

PC,R2 

R2,(PC)* 

0 

R3 

R4 

R2,R5 

.♦4 

R4 

R0,R2 

2$ 
2$ 

{SP),R4 



R2.R4 
2$ 

R3.R5 
.+4 

(SP) 

RO 

1$ 

WITH MULTIPIER 

PC.fi2 

R2 

R2.(PC)* 

0 



.'LOAD TEST Nl/BER 
SPLAV ;. -DISPLAY TEST NUMBER 
RO CONTAINS MULTIPLIER FOR MUL 
SETUP THE STACK 

(SP) CONTAINS SHIFT VALUE FOR ASHC 
R3,R2 ft R5,R4 ARE DATA REGISTERS 
SAVE MULTIPICANO 
CONTAINS ORIGINAL MULTIPICAND 



FOR MUL AND ASHC 

IF MULTPICAND IS NEG THEN SET R4 - -1 

FOR ASHC 
PRESET CCS 

MULTIPLY R2 BY RO LEAVE PRODUCT 
IN R2.R3 MSH IN R2,LSH IN R3 

PRODUCT WILL NEVER BE = 0 
'MULTIPLY' R4,R5 BY (SP) LEAVE PRODUCT 
IN R4,R5 MSH IN R4,LSH IN R5 
CHECK MSH RESULT 

.•CHECK LSH RESULT 



.•INCREMENT ASHC SHIFT COUNT 
.•SHIFT MUL MULTIPLIER 

(RO) = 100000 
.■R2 = MULTIPICANO 

.•SAVE MULTIPICANO 

.•CONTAINS ORIGINAL MULTIPICAND 



cEOKC-e POP n/70 cpu 



CEQKCfc.PII 


12-«AR-80 


101 33 


030656 


005103 


101 J'. 


030660 


010204 


10155 


030662 


006204 


10136 


030664 


005104 


10137 


030666 


070200 


10138 






10139 


030670 


020204 


10U0 


030672 


001002 


10141 


030674 


020003 


10142 


050676 


001401 


10143 


030700 


104000 


10150 






^3) 












(4) 






'4/ 






(4) 






(3) 






(2) 






(2) 


030702 


000004 


(2) 


050704 


1 \2757 


(2) 


050712 


013737 


10151 


050720 


012700 


10152 


030724 


010716 


10153 


050726 


01 1 603 


10154 


030730 


005002 


10155 


030732 


000277 


10156 


050754 


ATI ^/\A 

071200 


10157 






10158 


050736 


10541 7 


10159 


030740 


1 AAy 1 z. 

100416 


10160 


030742 


102007 


10161 


030744 


022700 


10162 


030750 


AAi Ai 1 

001012 


10163 


030752 


032716 


10164 


030756 


AAi / AT 

001407 


10165 


030760 


AAAy AT 

000407 


10166 


030762 


Ai A^A/ 

010204 


10167 


030764 


ATAy AA 

070400 


10168 


030766 


AZ A YAC 

060305 


10169 


030770 


i AT/ 

103402 


10170 


030772 


021605 


10171 


030774 


AAi / Ai 

001401 


10172 


030776 


i A> AAA 

104000 


10173 






10174 






10175 






10176 


031000 


006500 


10177 


031002 


102351 


10178 






10179 






10180 


031004 


UU3U lO 


10181 


031006 


005000 


10^82 


031010 


012702 


10183 


031014 


005067 


10184 


031020 


010703 



EXE«CI3ER NACV11 
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T54 CHECK MUL 
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SEO Qi^i 



COM 
MOV 
ASR 
COM 
MUL 

CMP 
ONE 
CMP 
BEO 



R3 

R2,R4 

R4 

R4 

R0.R2 

R2,R4 
3$ 

R0.R3 
.♦4 



R4 WILL BE MSH 'PRODUCT' 
FORM 'PRODUCT* 
COMPLEMENT MSH 'PRODUCT' 
MULTIPLY R2 BY 100000 LEAVING 
R2 = KSH. R3 = LSH PRODUCT 
COMPARE MSH PRODUCTS 

.-CHECK LSH PRODUCT 



3$: HLT 

* ****************************************** ******** ************* 

»TEST 55 CHECK THE DIV INSTRUCTION 

* THE BELOW TEST OF THE DIV INSTRUCTION DIVIDES THE CURRENT PC BY 

* 1,2.4,8.ETC LEAVING THE QUOTIENT/REMAINDER IN R2/R3. NEXT THE QUOTIENT 

• IS MULTPLIED BY 1,2.4, 8. ETC AND THE REMAINDER ADDED. THE RESULT IS 

• THEN COMPARED UITH THE ORIGINAL CURRENT PC. 

• *************************************************************** 



000055 
001252 
000001 



001252 
177570 



TST55: 



DIVO: 



1$: 



000001 
100000 



20$: 



2$: 



3$: 



SCOPE 

M0V8 

MOV 

MOV 

MOV 

MOV 

CLR 

sec 

DIV 

BCS 

BMI 

BVC 

CMP 

BNE 

BIT 

BEO 

BR 

MOV 

MUL 

ADD 

BCS 

CMP 

BEO 

HLT 



ASL 
BVC 



#55.a#$TST^f1 
arsTSTNM.aroi SPLAY 



fl.RO 

PC.(SP) 
CSP) .R3 
R2 

R0,R2 

2$ 

2S 

20$ 

f1.R0 

2$ 

#100000. (SP) 

2$ 

3$ 

R2,R4 
R0.R4 
R3.R5 
2$ 

(SP), R5 
.♦4 



RO 
1$ 



.-LOAD TEST NUTBER 
;; DISPLAY TEST NUMBER 



RO=DIVISOR 
SAVE DATA ON STACK 
GET DATA 

CLEAR MSH DIVIDEND 

.•DIVIDE R2 BY RO LEAVING QUOTIENT IN R2 
.AND REMAINDER IN R3 



BRANCH IF DIVIDE WORKED 

V BIT SHOULD ONLY SET IF DIVIDING BY 1 

AND IHt LSH OF DIVIDEND 

IS NEGATIVE 



GET QUOTIENT 

MULTIPLY QUOTIENT BY DIVISOR 
ADD REMAINDER TO LSH PRODUCT 
SHOULD BE NO CARRY 
CHECK RESULT 

ERROR! DIVIDE FAILED 
QUOTIENT IS IN R2.REMA]NDER IN R3 
ORIGINAL PC IS ON STACK AND FINAL 
PRODUCT IN R4.R5 CMSHJCLSH] 
GET NEXT DIVISOR 



.CHECK ASH.ASHC.MUL. AND DIV INSTRUCTIONS USING ADDRESS MODE 1 



000020 
000012 



ASHL1 



1$: 



CLR 
CLR 
MOV 
CLR 
MOV 



(SP) 
RO 

#16.. R2 

2% 

PC.R3 



(SP) = SHIFT COUNT 
RO = SHIFT CQKfiJ FOR CHECK ASH 
R2 = MAX LEFT SHIFT COIWT 
CLEAR CCS HOLDING ADDRESS 
R3.R4 = DATA TO BE SHIF'ED 



[ 



CEQtcC-E POP 11/70 CPU CXEfiCIiER NACYll 
CEQKCE.PII 12-«AR-80 11:27 



10185 
10186 
10187 
10188 
10189 
10190 
10191 
10192 
10193 
10194 
10195 
10196 
10197 
10198 
10199 
10200 
10201 
10202 
10203 
10204 
10205 
10206 
10207 
10208 
10209 
10210 
10211 
10212 
10213 
102K 
10215 
10216 
10217 
10218 
10219 
10220 
10221 
10222 
10223 
10224 
10225 
10226 
10232 
.5) 
(4) 

(4) 
(4) 

(3) 
(2) 
(2) 
(2) 
(2) 
10233 
10234 
10235 
10256 



03102? 
031024 
031026 
031032 

031034 
031036 
031044 
031046 
031050 
031056 
031060 

031062 
031 06^. 
031066 
031070 

031072 
031074 
031076 

031100 
031104 
031106 
031110 
031112 
031116 

031120 
031122 
031130 
031132 
031134 

031142 
031144 

031146 
031150 
031152 
031154 



031156 
031160 
031166 
031 1 74 
031176 
031200 
037202 



010304 
072316 
015727 
000000 

072400 
1 1 3767 
020304 
001004 
126767 
001401 
104000 

005200 
005216 
020200 
001351 

005016 
005000 
005402 

005067 
010704 
010405 
072416 
013727 
000000 

072500 
113767 
020405 
001004 
126767 

001401 
104000 

005300 
005316 
020002 
001351 



000004 
112737 
013737 
010703 
006702 
010304 
010316 



177776 

1 77776 
177756 



30A(1052) 
T55 



2$: 



12-mR-80 11:30 



C 11 
PAGE 



1 77767 
177755 



3$: 



000012 

1 77776 

1 77776 
1 77756 



ASHR1 : 



1$: 



2$: 



}77767 
177755 



3$: 



47-107 



SHIFT R3 LEFT (SP) TIMES 
SAVE CCS 

CONTAINS ASH (SP).R3 CCS IN EVEN Bv^E 

AND ASH R0,R4 CCS IN ODD BYTE 

SHIFT R4 LEFT RO TIMES 

SAVE CCS IN ODD BYTE Of 2$ 

COMPARE RESULTS 

BRANCH IF THEY DO ^0T COMPARE 

CHECK CCS AFTER A:.H INSTRUCTIONS 

ERROR! EITHER RESULTS Of SHIFT OR 
RESULT CCS ARE INCORRECT 
INCREMENT SHIFT COUNT FOR ASH R0,R4 
INCRENENT SHIFT COUNT FOR ASH (SP),R3 
CHECK FOR MAX SHIFT COUNT 



(SP) = SHIFT COUNT FOR ASH (SP).R4 
RO = SHIFT COUNT FOR ASH R0,R5 
R2 = MAX RIGHT SHIFT COUNT (SET BY 
ABOVE TEST TO 16. NOW = -16. 
CLEAR CCS HaDING ADDRESS 
R4,R5 = DATA TO BE SHIFTED RIGHT 

SHIFT R4 RIGHT (SP) TIMES 
SAVE CCS 

CONTAINS ASH (SP).R4 CCS IN EVEN BYTE 
AND ASH R0,R5 CCS IN ODD BYTE 
SHIFT R5 RIGHT RO TIMES 
SAVE CCS IN ODD BYTE 2$ 
CHECK RESULTS 

CHECK RESULT CCS 



ERROR! EITHER RESULTS OR RESULT CCS 

DID NOT COMPARE 

DECREMENT SHIFT COUNT 

DECREMENT SHIFT COUNT FOR ASH (SP).R4 

CHECK FOR MM RIGHT SHlFT 



• THE BELOW TEST CHECKS THE DIVIDE INSTRUCTION BY DIVIDING 

• THE CURRENT PC BY ITSELF+1. THE (JUOTIENT (IN R2) ALWAYS = 0. 

• AND THE REMAINDER (IN R3) ALWAYS = THE CURRENT PC. 

• *************************************************************** 



CHcCK 


THE DlV INSTRUC 


MOV 


R3,R4 


ASH 




MOV 


•wr'SW, (PC)* 


.WORD 


0 


A CU 


DA D/ 


rWa 




CMP 


R3,R4 


BNE 


3$ 










Ul T 

ML 1 




INC 


RO 




/ CD \ 

tor/ 


r nan 


D 0 OA 


BNE 


IS 


LLK 


f CD \ 


ri D 
LLK 


Ky • 


ME/: 
IMCU 


He 


n D 
LLK 




MOV 


PC,R4 


MOV 


R4,R5 


Aon 


/ CD \ DZ. 




■wr'ow, irL f ♦ 


. WUKU 


A 
U 


ASH 


R0,R5 


M0V8 


d»PSW,2$+1 




DZ. DC 


BNE 


3$ 


CMP8 


2$,2$+l 


ticu 




Ul T 
ML 1 




DEC 


RO 


DEC 


(SP) 


CMP 


R0,R2 


BNE 


1$ 


********************** 


56 


DIVIDE AGAIN 



SCO 0132 



000056 
001252 



001252 
177570 



TST56: SCOPE 
M0V8 
MOV 

DIVl: MOV 
SXT 
MOV 
MOV 



#56,a#STSTr#1 
aurSTSTNM.ftTDI SPLAY 



PC,R3 
R2 
R3,R4 
R3,(SP) 



:LQAD TEST NUMBER 
; .-DISPLAY TEST NUMBER 



CURRENT PC IS LSH DIVIDEND 
EXTEND SIGN TO R2 (MSH DIVIDEND; 
SAVE ORIGINAL DIVIDEND 
PUT ON STACK 



^EQKC-t K>P 11/70 LPU EXERCI:FR NACvn 30A(1052) 12-mR-80 11:50 



IFQKCE.PII 



12-#1AR-80 11:27 



102 V 
10238 
10239 
102<.0 
102A1 
10242 
102A5 
102AA 
10245 
10246 
10247 
10248 
10249 
10250 
10251 
d) 
(5) 
(2) 
(2) 
(2) 
(2) 
10252 
10253 
10254 
10255 
10256 
10257 
10258 
10259 
10260 
10261 
10262 
10263 
10264 
10265 
10266 
10267 
10268 
10269 
10270 
10271 
10272 
10273 
10274 
10275 
10276 
10277 
10278 
10279 
10280 
10281 
10282 
10283 
10284 
10285 
10292 



051204 
051206 
051210 
051214 
051216 
051220 
051222 
051224 
051226 
051250 
051252 
031234 
031256 
031240 



031242 
031244 
031252 
031260 
031262 
031264 
031266 
031272 
031274 

031500 
031506 
051514 
031516 
051320 
031322 
031324 
031326 
031552 
031334 
031340 
031 344 
051 550 
051552 
031354 
031556 
051562 
051364 
031366 
031370 
031372 
031374 
031400 
031402 
031406 
031412 
031416 



005216 
100002 
162716 
071216 
103410 
102407 
001006 
100405 
005702 
001561 
010416 
020516 
001401 
104000 



000004 
112757 
013737 
012702 
000237 
005004 
042744 
011403 
042703 

012767 
012767 
000257 
000230 
121405 
001401 
104000 
052714 
001002 
062703 
005267 
026702 
002761 
012702 
000250 
052705 
000277 
000257 
121405 
001401 
104000 
052714 
001002 
162703 
005367 
026702 
002361 



000002 



T56 



IS: 



0 11 
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2$: 



viviuz 










;AUU < (WiLL DC UJVJoUN; 


QDI 






CI ■> 


MO /CD) 
*c , I or/ 




Ul V 


/CP) 


• fMUIDC OV /CD) 


pre 


5« 
c» 




t3V o 


5« 
c» 




ONc 


5« 

c» 




oni 


C9 




t<;t 
1 o 1 






BNE 


DI VI 




MOV 


R4.(SP) 


.-GET ORIGINAL DIVISOR 


CMP 


fi3,(SP) 


.-CHECK REMAINDER 


BEO 


.♦4 




HLT 




.•REPORT ERROR 



SCO on 



■ft************************************************************** 

^TEST 57 CHECK SPL INSTRUCTION 







TST57: 


SCOPE 






000057 


001252 




Move 


#57,a#$TSTNn 


:L0AD TEST NUMBER 


001252 


177570 




MOV 


a#$TSTNM.a*DI SPLAY ;;DISPLAr TEST NLfBER 






SPLTST: 


MOV 


(PC)*,R2 


•R2 CONTAINS OP CODE FOR SPL 7 








SPL 


7 








CLR 


R4 




000340 






BIC 


'irPR7 -(R4) 


•CLEAR PRIORITY LFVFL BITS IN P^U 


1 777^7 






MOV 


(R4) R3 


;GET CURRENT PSU 






BIC 


#1 77757. R3 

T tiff ^ W # V V ^ 


•R3 CONTAINS CORRECT PSU AFTER SPL 


000230 


000010 




MOV 


/rSPL*0,2$ 


.•INITIALIZE SPL INSTRUCTIONS 


000237 


000050 




MOV 


#SPL*7.5$ 








1$: 


CCC 




.•CLEAR CONDITION COOES 






2S: 


SPL 


0 


.-SET PRIORITY LEVEL (NOTE: SPL NOP 








CMP8 


(R4).R3 


.•CHECK RESULT OF SPL ABOVE 








BEQ 


.+4 




140000 






HLT 




.•ERROR! SPL ABOVE FAILED 






BIT 


«ljn.(R4) 


;IF NOT IN KERNEL MODE THEN SPL 








BNE 


3f 


;ACTS AS A NOP 


000040 






ADD 


*40.R3 


.-SET NEXT CORRECT PSW RESULT 


^7775^ 




3$: 


INC 


2$ 


.-SET NEXT SPL INSTRUCTION 


1 77746 






CMP 


2$.R2 


.•CHECK IF DONE 








BLT 


IS 


.•LOOP UNTIL DONE CHANGING SPL EACH 








MOV 


(PC) ♦,R2 


;R2 CONTAINS SPL INSTRUCTION BELOW 


000017 






SPL 


0 








BIS 


fl7.R3 


.•SET CONDITION CODE RESULT INTO R5 






4S: 


sec 




;SET CONDITION CODES 






5$: 


SPL 


7 


;SET PRIORITY LEVEL 








CMPe 


(R4),R3 


.•CHECK RESULT OF SPL ABOVE 








BEO 


.♦4 




140000 






HLT 




.ERROR! SPL ABOVE FAILED 






BIT 


#uri.(R4) 


.•CHECK IF IN KERNEL MODE 








BNE 


6S 




000040 






SlB 


<r40.R5 


;SET NEXT CORRECT PSW RESULT 


1 77752 




6$: 


DEC 


5$ 


;SET NEXT SPL 


1 77746 






CMP 


5$.R2 


.•CHECK IF DONE ALL SPL'S 








BGE 


4t 





reoK'-E POP 



n/?0 it\. EXERCI-FR «ACif1i 
1?-*1A:?-80 n:?7 



50A(1052) 12-mfi-80 *1:50 
T60 CHECK PJRQ LOGIC 



E 11 
PAGE 



47-109 



SEQ 0154 



( Xt 










*9 ) 










(L \ 
J \ 

*m } 










( o 










f X ; 

^ 7 J 










( ? \ 










( J\ 


O < 1 i. ?o 








' C 1 


U J 1 '♦cc 


1 1 ?7T7 


vVA/vOU 


001 PSP 
Uv 1 c JC 


( p 1 




ni 7777 

V 1 J' J' 


001 

vv ' c Jc 


1 77S70 
If f J f yj 








071 ^OP 
U J 1 OUc 














1 r>^'Q*i 




01 P/O? 


rww.oo 




1 np<3^ 










I \JCrf 




01 P70i. 

vie' 


1 77770 

\ 1 ' 1 1 c 




1 VC TO 




VA/ JU 1 










01 7777 


1 7/77f, 

\ 1 1 r 1 SJ 


OOOP^P 






1 1 P777 

1 \ C 1 Ji 


0007^0 
vvv J*«U 


OOOP^P 






1 1P7^7 


000740 

vVA^ jHv 


00001 ^. 


' W JVC 


O'^l soo 


01P737 


03l *>40 

VJ 1 JHv 


000P40 
vvvc"*v 




031S0<i 

V J 1 J\A> 


0<^3737 

VUJ' J* 


001604 

W 1 O v*# 


000P40 
vwc "* V 




V/ J F J P 


1 10^^7 


1 7777(\ 

Iff f f V 






0^1 «>?0 


0S0P14 






10VV> 


0^1 S?? 
v J 1 Jc c 


1004 V> 






inv)7 


0^1 «>?4 


0AP7^7 

V\JC f J' 


00000 P 

vvVAA^C 


oooP4n 


1 v JVV 


031 S3P 

v J • J Jc 


0OA30P 

V/VVJ JVC 








031 534 


0S0P14 

V JVC 1 H 








V/ J 1 J JO 


000P40 






10^1 1 




104000 
















10^1 ^ 














0PP014 

VC C V 1 










00140A 

W 1 H*J\3 








071 S^A 


01 7737 

V 1 Jf Jf 


1 7777? 


001 75P 

vv 1 J JC 


10^1 7 

1 V/ ] 1 r 


071 SS^ 


00S0^7 


1 77777 

t f f f f c 






071 


10^000 








071 SAP 




0000^0 






071 S66 












vie' > w 


071 SOO 




10 VP 


071 S74 


OA77t A 


001 AO^ 

V v 1 OvM 




10 


071^00 


OOOOOA 




























071 AOP 


OOIO^P 








071 


00710^ 








071A0A 


0071 








031610 


017P10 

VI' C < V 








03161P 


037P5P 

vJ* C JC 






10^51 


071^=^14 


077314 






10332 


031616 


177356 






10533 










1033A 


031620 


005014 






10335 


031622 


012737 


000242 


000240 


10336 


031630 


005037 


000242 




10337 


031634 


10S037 


1 77776 




10538 


031640 


042737 


000340 


000016 



TEST 60 CHECK PIRQ LOGIC 

THIS TEST CHECKS THAT WHEN A REQUEST IS MADE AT A LEVEL = TO ^ME 
CURRENT PROCESSER PRIORITY LEVEL THAT NO INTERRUPT TAKES PLACE. AND 
THAT yHEN A REQUEST IS MADE AT A LEVEL 1 GREATER THAN THE CURRENT PRO- 
CESSER LEVEL THAT AN INTERRUPT OCCURS 



TST60: SCOPE 
M0V8 



PJRQO: 



IS: 



2$: 



3S: 



6$: 



30$: 



MOV 
MOV 

MOV 

CLR 

MOV 

CLR 

MOV 

M0V8 

M0V8 

nov 

ADD 

novs 

BIS 
BMI 
ADO 
ASL 
BIS 
NOP 
HLT 



CMP 
BEQ 
MOV 
CLR 
HLT 
ADD 
SIC 
MOV 
ADO 
RTT 



#60.»rtTSTNM 
a*$TSTNM.a*DI SPLAY 
#4$,R0 



*400.R2 
R3 

#PIRQ,R4 

(R4) 

airPsw,a#PiRQvEC^2 

#PR7.arPIRQVEC*2 
#PR7,a#rBITVEC*2 
#2S,a4V>IRQVEC 
»rFACTOR,a#PIROVEC 
R3,a#PSW 
R2,(R4) 
5$ 

«3$-2S,a«PIRQVEC 

R2 
R2.(R4) 



(R0)*,(R4) 
6S 

MrPIRO.anTMPO 
a«PIRQ 

#40,R3 

R2.(R4) 

#1$.(SP) 

arFACTOR.CSP) 



.-LOAD TEST Nl#«R 
; .-DISPLAY TEST Nl^R 
RO POINTS TO A TABLE Of CORRECT PIRO 
CONTENTS AFTER AN INTERRUPT 
R2 CONTAINS INTERRtPT REQUEST LEVEL 
R3 CONTAINS PROCESSER PRIORITY LEVEL 
R4 CONTAINS ADDRESS Of PIRO REGISTER 
INITIAL2E REQUEST LEVEL TO 0 

RETAIN MODE t REG SET ON TRAP 
ASSl/€ LEVEL 7 ON INTERRUPT 
PRIORI ry LEVEL 7 ON TRAP 
SET PIRQ ERROR INTERRUPT VECTOR 
ADD RELOCATION FACTOR 
SET CP PRIORITY LEVEL 
MAKE REQUEST AT LEVEL = TO CP LEVEL 
BRANCH UHEN DONE 

.-SET PIRO INTERRUPT VECTOR TO 



.MAKE REQUEST AT LEVEL 1 HIGHER 

ERROR! EITHER AN INTERRUPT OCCURED 
WHEN ROST LEVEL - CP LEVEL (PIROVEC) 
OR INTERRUPT FAILED (PIROVEC )=3S 
CHECK CONTENTS OF PIRQ REGISTER 

.SAVE PIRQ 



ERROR! INCORRECT PIRQ CONTENTS 
SET NEXT CP PRIORITY LEVEL 
LOWER LEVEL BY 1 
ADJUST RETURN ADDRESS 
TO RETURN TO 1$ 



3t 



2t 



; TABLE OF CORRECT PIRO REGISTER CONTENTS ON INTERRUPT 



4S: 



5$: 



1042 
3104 
7146 
17210 
37252 
77314 
177356 

CLR 
MOV 

CLR 

CLR8 

BIG 



;PIR1*PIA1 
;PIR2*PIR1*PIA2 
;PIR3*PIR2*PIR1*PIA3 
;PIR4*PIR3*PIR2*PIR1*PIA4 
;PIR5*PIR4*PIR3*P1R2*PIR1 ♦PIA5 
;PIR6*PIR5*PIR4*PIR3*P1R2*PIR1*PIA6 
;PIR7*PIR6*PIR5*PIR4*PIR3*PIR2*PIR^*PIA7 



(R4) 

#PIR0VEC*2.*rPIR0VEC 

a*PIRQVEC*2 

aiTPSW 

#PR7.d#TBITVEC*2 



.•CLEAR PIRQ REGISTER 

.■RESET PIROVEC TO HALT AT PIR0VEr*2 



CEQKC-E POP 
CEQHCE.P11 



n/70 CPU EXERCISER 
12-W-80 11:27 



F 11 

HACvll 3OA(1052) 12-WAR-80 11:30 PAGE 47-110 
T61 CHECK HICRO-eREAK REGISTER 



SEO 0155 

























































000004 






(?) 




1 1P757 

lie' J' 


vwvv 1 


00125? 






01 3757 


001?S? 


177570 






01P70P 


1 77770 








01 174^^ 

V 1 1 C*^\J 










01P700 


1 7777fi 






031676 


010005 






10347 


051 700 


005757 


001552 




10348 


051 704 


00100? 






1034V 


051 706 


042703 


177400 








010012 










0?1?03 








031 716 


001004 






10353 


031720 


000?61 






10354 


031 172 


006100 






10355 


031 724 


105764 






10356 


031 726 


000402 






10557 


031730 


104000 






10358 


031 732 


000772 






10359 


031 734 


012612 






10360 










(3) 










<3) 










(2) 












031736 


000004 






(2) 


031 740 


112737 


000062 


001252 


(2) 


031 746 


013737 


001252 


177570 


10361 


031 754 


032737 


140000 


1 77776 


10362 


031 762 


001553 






10363 


031764 


010746 






10564 


031766 


062716 
012637 


000134 




10365 


031772 


000250 

V Wfc ^ v 




10366 


031 776 


005046 






10567 


032000 


010603 






10368 


032002 


010346 






10369 


032004 


105737 


001601 

W 1 W 1 




10370 


032010 


001417 






10371 


03201 2 


013737 


1 77640 


177654 


10372 


032020 


012737 


006006 

V wv w 


177614 


10373 


032026 


013737 


172240 


1 72254 


10374 


032034 


012737 


006006 

WWW 


172214 


103''5 


032042 


062706 


140000 

I ^ WW 




10376 


032046 


000240 






10377 


032050 


010746 






10378 


032052 


062716 


00002A 




10379 


0320-56 


012637 


000020 




10380 










10381 


032062 


000004 






10382 


032064 


005266 


000002 




10583 


032070 


001417 






10384 


032072 


104000 







•TEST 61 CHECK MICRO-BREAK REGISTER 

THIS TEST SHIFTS A '0' BIT THRU ALL BIT POSITIONS. 



TST61 
nSRK: 
IS: 

5$: 
2S: 

3$: 
4$: 



TST62: 



10$: 
U: 



SCOPE 

nov8 

MOV 

MOV 

MOV 

MOV 

MOV 

TST 

BNE 

SIC 

MOV 

CMP 

BNE 

SEC 

ROL 

BCS 

BR 

HLT 

BR 

MOV 



•TEST 62 



4$: 



SCOPE 

M0V8 

MOV 

BIT 

8EQ 

MOV 

ADD 

MOV 

CLR 

MOV 

MOV 

TST8 

BEQ 

MOV 

MOV 

MOV 

MOV 

ADD 

NOP 

MOV 

ADD • 

MOV 

lOT 
INC 
6E0 

HI T 



anTST^r.aitDI 

#UBREAK.R2 

(R2).-(SP) 
*1 77776, RO 
R0.R3 
cMTKBIIE 
5$ 

#1 77400. R3 
R0.(R2^ 
(R2).R3 
3S 

RO 
IS 
4$ 

2S 

<SP)*.(R2) 



;LOAD TEST NlfOER 
SPLAy ; .-DISPLAY TEST Nl/©fR 

SET ADDRESS OF MICRO BREAK REGISTER 
SAVE ORIG CONTENTS 
SET DATA PATTERN 
GOING TO COMPARE DATA WITH R3 
IS THIS A KB11-E OR KB11-EM PROCESSOR? 
BR IF IT IS 

ONLY 8 BITS IN U-BREAK OF KB11-6/C 
LOAD REGISTER WITH PATTERN 
AND CHECK 

BRANCH IF INCORRECT 
SET 'C 
SHIFT DATA 



.•ERROR DATA IN RO NOT IN UBREAK REG 
.•CONTINUE TEST 

.•RESTORE ORIG UBREAK CONTENTS 



CHECK MFPI/MTPI INSTRUCTIONS 



*62.a(rSTSTrr 

arSTSTNM.aiTDISPLAy 



#ii<i.a#psw 

ENDCP 
PC,-(SP) 
#5$-..(SP) 
(SP) + .aWMVEC 
-(SP) 
SP.R3 
R3,-(SP) 
a«MMON 
IS 

a#UIPAR0.a»UIPAR6 
#6006.a*UIP0R6 



.•LOAD TEST NUMBER 

;. DISPLAY TEST Nl/BER 



.KERNEL MODE? 
;YES EXIT TEST 



.-SET MEM MGMT ABORT VECTOR 
.CLEAR CHECK WORD 



PUT ADDRESS OF CHECK WORD ON THE STACK 
CHECK IF MEM MGMT IS ENABLED 
BRANCH IF OFF 

;SET UP USER PAGE ADDR. REG. 
;SET USER PAGE DESC REG R/W UP 6 PAGES 

arsiPAR0.a#siPAR6 

*6006.a#SIPDR6 ;SET SUPER PAGE DESC. REG. 
*U0000,SP .-SET CURRENT MODE'S S1ACK POINTER 



PC.-(SP) 
#3S-..(SP) 
(SP)*, a*IOTVEC 



2(SP) 
6S 



.-SET lOT TRAP VECTOR 

.TRAP TO 3S BELOW 
.•INCREMENT CHECK WORD 

.-ERROR. MFPI.MTPI FAllURE-fOR BETfFR 



'EOnC-t POP 
"fOKCfc.PII 



n/ro (pu exerci:er 

12-mR-80 11:27 



MACni 30A(1052) 12-«AR-80 11 
T62 CHECK MfPI/WTPI 



G 11 

;30 PAGE 47-111 
INSTRUCTIONS 



SEO 0156 



'\JjOf 




rww.15 






052076 










UUO Jw 




1 ATM 


nx?in? 


UUD J jO 






nx?i(v. 


\ATO J' O 


nnoooo 


1 n^Qo 




(wiPi.n 

VAA^ChU 




1 V JT 1 




VAJ 1 jO' 






nx?i 1^ 
n'.?i 1^^ 


0051 1A 
UVj I lO 




1 \J J 7 J 


VA^X) JO 












1 \j j^j 




AAOOOP 






nx?i ?? 


1 yj**\AA/ 




107Q7 


U Jc 1 c •* 


105077 

' V JV Jf 


1 7777(^ 

\ 1 1 1 1 \j 




U JC 1 jU 


01 ?777 
U 1 c ' J' 


UOhc JH 


10 TOO 


Ujc I JO 


01P777 
V/ 1 c » J' 


JO 


irK.00 


07^144 

V Jc 1 HH 


01 P7(V> 


000700 










J/ 


























V Jc < Jv 






I?) 


0^21 52 

VJC I Jc 


1 1P737 

1 1 C » -J» 


000063 

WWV J 




0751 W) 


01 ^737 


001 P5P 

W 1 C JC 






010746 






0^21 70 




OOOOP? 

VWVC c 




032174 


01 1637 


000004 

V ww~ 


10AOS 


032200 

V JC c w 


012637 


000010 

V W J ) V 




03P204 

^ JC c v/*» 


f)00000 

www 






032 206 


104000 

1 wv 






032210 

V JC C 1 v 


000404 

WV^ w~ 




1040Q 


03PP1P 

v JC C I C 


010716 




10410 


032214 

V JC C ' ~ 


062716 

WC * ( w 


000006 

www 


10^1 1 


07PPP0 

V Jccc V 


OOOOOP 














03PPP2 

V JC ccc 


012737 

VIC* -/ ' 


064 4PP 

VV"»"tC c 


10414 


n^pp 30 

V Jcc JV 


01P737 

VIC' -J» 


064^50 

VOM J J V 


10415 


03PP36 

V JC C -AJ 


105037 


1 7777i) 


1061A 


03PP4P 

V Jc C He 


005037 

W JV Jr 


1 r * r VV 


041 7 








(3) 
























(?) 


V Jc c**o 


000(X)4 






032P50 

V JCC Jv 


1 1P737 

1 1 C ' J r 


000064 

vvwv^ 




032P56 

V JC C JU 


01 3737 

V 1 J » J » 


001 P5P 

W 1 C ''C 


10418 


032264 

V JC C 


000277 

WVC ' f 




10419 




01 3700 

V 1 J r V V 

000P77 

vwc » » 


1 7777€^ 

Iff t r V 


104^0 


03PP72 

\JJC C ' c 




10421 


WJC c » 


000005 

WWV J 




10422 


032276 


023700 


1 7777(i 


10425 


032302 


001401 




10424 


032304 


104000 




10425 


032306 


010037 


1 7777() 


10426 


032312 






(1) 


032312 


000004 




n ) 


032314 


010702 





3S: 



000250 
00002C 



5$: 
6$: 



8R 

NOP 

HfPI 

HfPI 

MFPI 

NOP 

BNE 

COM 

MTPI 

RTI 

HLT 

CLR8 

MOV 

MOV 

MOV 



6S 

SP 

a(SP)» 
a(SP) 

4S 

(SP) 

a(SP)* 



*rpsw 

#KTA8RT 
«SCOPE 
/rSUPSTK 



.ISOLATION SUGGEST RUNNING MfPI DIAG. DCKTO/E 
;PSU=KERNEL MODE, PRE V USER OR SUPER MODE 
.GET PREV. MODES STACK POINTER 
;GET DATA (AN ADDRESS) ON PREV MODE'S STACK 
.GET DATA (=0) FROM PREV MODES ADDRESS 
.SPACE AND PUSH ONTO KERNEL STACK 

.■ERROR IF BRANCH TAKEN. SHOULD HAVE f ZERO ON THE STACK 
.COMPLEMENT OPERAND 

;POP OPERAND OFF KERNEL STACK AND MOVE 

.•IT TO PREV MODE'S SPACE 

.•RETURN TO INST FOLLOWING lOT ABOVE 

.•ERROR! MEMORY MANG. ABORT 

;SET PRIORITY LEVEL BACK TO 0 
.»rMMVEc .RESTORE VECTOR 
,a#IOTVEC 

,SP .-RESTORE STACK POINTER 



•TEST 63 



CHECK ILLEGAL HALT 



001252 
177570 



000004 
000010 



TST63: 
HALT1 : 

1$: 
2$: 

3$: 



SCOPE 

M0V8 

MOV 

MOV 

ADD 

MOV 

MOV 

HALT 

HLT 

BR 

MOV 

ADD 

RTI 

MOV 
MOV 
CLR8 
CLR 



#63.anTSTr#^ 

air$TSTNM.a#DISPLAY 



PC,-(SP) 
*2$-..(SP) 
(SP) ,a«ERRVEC 

(SP)*.arRESVEc 



3$ 

PC,(SP) 

<r3S-..(SP) 



.-LOAD TEST NUMBER 
.•.•DISPLAY TEST NUMBER 



;GET CURRENT PC 

;SET ERROR TRAP VECTOR TO 2% BELOW 
.•LOAD RESERVED INST TRAP VECTOR (11/40) 
.SHOULD TRAP TO 4 IN USER/SUPER MODE 
.•ERROR! HALT ABOVE FAILED IN USER/SUPER MODE 

.•REPLACE RETURN PC WITH 
.-ADDRESS OF 3S BELOW 
.RETURN (TO 3$) 



#ERPRT.arERRVEC .RESTORE ERROR TOAP VECTOR 

/VRESERR.AirRESVEC 

a#PSW 

a«CPUERR 



•TEST 64 



CHECK RESET IN SUPER/USER MODE 



001252 
177570 



TST64: SCOPE 
MOVE 
MOV 

RESET1: SCC 
MOV 
SCC 
RESET 
CMP 
BEQ 
HLT 
MOV 

ENDCP: 

RELE6: SCOPE 
MOV 



#64,a#STSTNM 

a<r$TSTf#i.ftroi SPLAY 



.-LOAD TEST NLMBER 

; .-DISPLAY TEST Nlf©ER 



a^PSW.RO 



aurpsw.RO 

.♦4 

R0,a«psw 



PC. R2 



.-GET CURRENT PSW 



.-CHECK THAT PSW UNCHANGED BY RESET ABOVE 

.-ERROR! RESET CLEARED MODE BITS IN PSW 
.-RESTORE PSW (FOR ERROR) 



J 



H 11 

CfOKC-e POP 11/70 CPU EXERCISER MACVll 50A(1052) 12-f1Afi-80 11:30 PAGE <.7-112 
CEQKCE.PII 12-MAR-80 T1:27 TW CHECK RESET IH SUPER/USER MODE 



SfQ 0137 



(1) 
(1) 
(1) 
(1) 
(1) 

10<.27 
<3) 
(5) 
<2) 
(2) 
(2) 
(2) 
(2) 

10428 
(}) 
n ) 
( 1 ) 
(1) 
n) 
(1) 
n; 
(1 ) 

M ) 

fi) 
(') 
(1 ) 

(1) 

IV, 
1(X29 
10430 
10431 
10432 
10433 
10454 
10455 
10456 
10437 
10438 
10439 
10440 
10441 
10442 
10443 
10444 
10445 
10446 
10447 
10448 
10449 
10450 
10451 
10452 
10453 
10454 
10455 
10456 



032316 062702 000012 
032322 012707 044042 
032326 OOOOfO 



032350 012767 000001 

032556 000004 

052540 112757 000065 

052346 013757 001252 



052554 
052556 
052560 
052564 
052566 
052572 
032376 
032402 
052410 
052416 
052422 
052424 

052450 
052454 
052456 
052442 
052444 

052450 
052454 
052456 
052460 
032462 



010700 
005740 
010037 
010700 
162700 
010037 
010737 
062737 
013757 
105757 
001402 
000167 

012702 
005022 
052712 
001116 
052712 

012700 
010042 
022200 
001401 
104000 



001610 

052566 
001604 
001262 
000030 
001262 
001600 

001502 

177774 

000020 

000540 

000400 



052464 006500 
052466 103372 
052470 005042 



052472 010746 

032474 062716 000060 

052500 012657 000004 

032504 015737 177776 



ADD #12.R2 

MOV *REL0C.PC 
REL66: .WORD 0 
.-6666666666666 LAST ADDRESS OF CODE TO BE RELOCATED 66666666666 



;G0 RELOCATE PROGRAM fODE 



•TEST 65 



TEST STACK LIMIT REGISTER 



147040 

001252 
177570 



001262 
001260 



MOV 

TST65: SCOPE 
M0V8 
MOV 

.S8TTL 
:7777777777777 
REL7: MOV 

TST 

MOV 

MOV 

SUB 

MOV 

MOV 

ADD 

MOV 

TST8 

BEQ 

JMP 

.-THIS TEST SHIF 
MOV 
CLR 
BIT 
BNE 
BIS 



*1.$TIMES 



;;D0 1 ITERATION 



#65,a#STSTNM 
a(r$TSTMi,a#DISPLAY 



.LOAD TEST NIWBER 
.-.DISPLAY TEST NUMBER 



START OF SECTION 7 
FIRST ADDRESS TO BE RELOCATED 777777777 



PC.RO 
-(RO) 

RO.iiTFRSTAD 
PC.RO 
#..R0 

RO.aiTF ACTOR 
PC.aWLPERR 
*30.anLPERR 
a^SLPERR.arSLPADR 
aiTNEXEC 
♦6 



GET PC 

RO CONTAINS THE ADDRESS OF REL7 
SAVE 

GET CURRENT PC 
SUBTRACT RELOCATION FACTOR 
SAVE RELOCATION FACTOR 
SET LOOP ADDRESS 
ADJUST 

I 

'bR if test CODE TO BE EXECUTED 



RELE7 

TS A T BIT THROUGH ALL BIT POSITIONS 

#STKLMT,R2 ;6ET ADDRESS Of STACK LIM REG 

(R2)* .-CLEAR STACK LIMIT REG 

*20.(R2) .-EXIT TEST IF 'T* BIT IS SET 

101$ 



1$: 



21: 



MOV 
MOV 
CMP 
BEO 
HLT 



ASL 
8CC 
CLR 



#540. (R2) 

#400. RO 
R0.-CR2) 
(R2)+.R0 
2S 



RO 
1$ 

-{R2) 



SET PRIORITY LEVEL 7 TO PREVENT 

ANY INTERRUPTS FROM OCCURRING 

SET CHECK DATA 

MOVE TO STACK LIMIT REG 

AND CHECK RESULT 

ERROR! STACK LIMIT DID NOT 
LOAD CORRECTLY. CORRECT RESULT 

IS IN ra 

SHIFT T BIT LEFT 

LOOP UNTIL 1 BIT SHIFTS OUT 

CLEAR STACK LIMIT REG 



.THIS TEST CHECKS THAT A PROPER 'RED' ZONE VIOLATION OCCURS, NOTE That 

;N0 'RED ZONE* VIOLATION WILL OCCUR IF IN USER/SUPER MODES. 

;A RED ZONE VIOLATION PUSHES THE CURRENT PSW.PC ON A STACK AT 2 AND 0 

.AND TAKES THE NEXT INSTRUCTION FROM THE PC IN L0CATI0N4. THE INST- 
.RUCTION CAUSING THE RED ZONE VIOLATION IS 'ABORTED'. 



000006 



MOV PC--(SP) 

ADD #4$-..(SP) 

MOV (SP)*,a#ERRVEC 

MOV a#PSU.a#ERRVEC«2 



GET CURRENT PC 

FORM ADDRESS OF 4S BELOW 

SET ERROR TRAP VECTOR TO BELOW 

RETAIN CURRENT STATUS ON 'RAP 



J 



^EQKC-E POP n/70 CPU EXERCI-fR HACvH 
ffORCE.PII 12-W-80 11:27 



30A(1052) 12-f1AH-80 
START Of SECTIOf^ 7 



I 11 

11:50 PAGE 47-113 







ni 071 2 












\JJCJ ' 


01 120^ 














V JC JC\J 




UVJv J 50 












\jjC JC* 


nT27X7 

UjC' J' 


1 ••WW 




\JDc J jC 


001^0^ 
VAJ 1 •«v J 






\1JCJJ'* 


01 fV./^ 


noo^v« 

lAA/ J jO 






VAA/*» JC 














03P54? 




000^^6 

WV J JO 




n^?s<i6 


012706 


000700 


104 70 


V JC J Jc 


lo^nno 




10471 










W JC J J** 


0^2737 

V JC 'J' 


1^0000 

1 ••WW 


10473 








10474 


\J DC fyjC 


00101 ^ 




10475 


03? 564 


010600 




10476 


0^P56^. 


00101 1 




10477 


032570 


026304 

wC W JV^ 


000336 

vW J Jw 


10478 


032574 


001006 




10479 


032576 


005012 




10480 


03P600 

V JC WA/ 


010705 




10481 


03260? 


062705 


1 77744 


10482 


032606 


020516 




10483 








10484 


032610 

W JCU t V 


001 406 




10485 








10486 








10487 


032612 


005012 

W JV 1 c 




104 88 


032614 

V JC W 1 


010463 


000336 


10489 


03P6P0 

V JCwCV 


012706 

VIC' 


000700 

WV » w 


10490 


032624 

\J JC uc ~ 


104000 




l0491 


032626 

V JC UC Vi/ 


010463 


000336 

WV J Jw 


10492 


032632 


005022 




10493 


032634 

V JC W-J^ 


012706 

VIC' w 


000700 

WV • vv 


10494 


032640 


042712 


000340 


10495 


032644 


012737 


064422 


10496 


032652 


013737 

V 1 J • 


1 7777b 




U JCOOU 


1 1 27^7 

1 1 C ' J' 




104Qfl 


0^2666 

V JCOOU 


042737 


000020 


1049'^ 


032674 

V JCU* ^ 


005037 


1 777hfs 


10504 


032700 

V JC ' W 






(4) 








(3) 








(4) 








(4) 








(3) 








(2: 








(2) 


032700 


000004 




(2) 


032702 


112737 


000066 


(2) 


032710 


013737 


001252 


J 0505 








10506 


032716 


012702 


033150 


10507 


032722 


012705 


100360 



1 77776 



20$: 
3f: 



000002 4$: 



5$: 



.•ERROR 
99$: 



100$: 



000004 
000006 
000006 
000006 



01$: 



MOV PC.(R2) 

MOV (R2).SP 

MOV SP.R3 

MOV 336(R3).R4 

BIT #tJ1.*rPSW 

BEO 20$ 

MOV R4.336(SP) 

BR 100$ 

CLR 336(SP) 

MOV #SUPSTIC,SP 
HLT 

BJT #1/1, ar2 

BNE 99$ 

MOV SP-RO 

BNE 99$ 

CMP 336(R3).R4 

BNE 99$ 

CLR (R2) 

MOV PC.R5 

ADD #3$-.,R5 

CMP R5,(SP) 

BEO 100$ 



CLR (R2) 

MOV R4.336(R3) 

MOV #SUPSTIC,SP 
HLT 

MOV R4.336(R3) 

CLR (fi2)+ 

MOV *SUPSTK.SP 

BIC #340. (R2) 

MOV #£fiPRT.d#ERRVEC 

MOV a#PSW,a»ERRVEC+2 

M0V8 #PR7.arERRVEC+2 

BIG *8iT4,a#ERRVEC*2 

CLR a#CPUERR 



SEO 0158 



SET STACK LIMIT TO CURRENT PC 
♦400 

AND STACK PTR = STACK LIMIT REG 

SAVE STACK PTR 

SAVE MEMORY LOC CONTENTS 

AT 'RED ZONE' BOIWDARV 

BRANCH IF IN KERNEL MODE 

.SHOULD NOT CAUSE TRAP 



should cause 'red zone' trap 
restore the stack 
error: failed to trap 

check if trapped yhen in user 

/super modes (2 contains old psw) 

go to error call 

stack ptr should = 0 

go to error call if not 0 

check that inst was aborted 

go report errpr 

clear stack limit reg 

get current pc 

form address of 3$ above 

check that return pc is on 

the stack (at 0) 

exit test 



CLEAR STACK LIMIT REG 
RESTORE MEM LOCATION 
SET STACK PTR 
ERROR ' 

RESTORE MEM LOCATION 
CLEAR STACK LlM REG 
SET STACK PTR 

SET PRIORITY LEVEL BACK TO 0 
RESTORE ERROR TRAP VECTOR 



.•CLEAR ERROR REG 



**************************************************************** 

West 66 memory management register tests 

• PDR test - THIS TEST WRITES 64. RANDOM #'S INTO EACH PDR REGISTER 

• NOTE: IF MEM HGMT IS ENABLED ONLY POR/PAR PAIRS 4-6 ARE TESTED. 
**************************************************************** 



001252 
177570 



TST66: 



KTPDR; 



SCOPE 

M0V8 

MOV 

MOV 
MOV 



#66,a4r$TSTNM 
a#$TSTNH,ar01 SPLAY 



.-LOAD TEST NUMBER 
.-.•DISPLAY TEST NUMBER 



♦PDRTBL.R2 .-SET TABLE ADDRESS OF PDR'S 

#1 00360. R5 .-SET BIT MASK 
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SEO 01 S9 



10508 
10509 
10510 
10511 
1051? 
10513 
105U 
10515 
10516 
10517 
10518 
10519 
10520 
10521 
10522 
10525 
10524 
10525 
10526 
10527 
10528 
10529 
10530 
10531 
10532 
10533 
10534 
10535 
10536 
10540 
(4) 
(3) 
(4) 
(3) 
(2) 
(2) 
(2) 
(2) 
10541 
10542 
10543 
10544 
10545 
10546 
10547 
10548 
10549 
10550 
10551 
10552 
10553 
10554 
10555 
10556 
10557 
10558 



















000010 


03P7V* 


105737 


001601 










06? 700 


OOTiOlO 


n^?75n 


01P716 


OOOOOT 


0?P7S4 

\J JC 1 J** 


01270'^ 


0000^0 

WWHv 




005004 
















032766 






C32770 


00101 3 




03277? 


005104 




03?774 


C40504 

V/^ 




03? 776 


010410 




033000 


0P1004 




03300? 


001006 




033004 


06010<. 




033006 


077313 




033010 


005020 




03301? 


005316 




033014 


001357 




033016 


000743 




033020 


104000 





1$: 
2$: 

3S: 
4S: 



033022 
033024 



033024 
033026 
033034 
033042 
033046 
033050 
033052 
033054 
033060 
033064 
033066 
033072 
033076 
033102 
033104 
033106 
033110 
033112 
033114 
033116 
033120 



5$: 



99$: 



MOV 

BEQ 

MOV 

TST8 

BEQ 

ADD 

MOV 

MOV 

CLR 

BIG 

MOV 

CMP 

BNE 

COM 

BIC 

MOV 

CMP 

BNE 

ADD 

SOB 

CLR 

DEC 

BNE 

BR 

HLT 



(R2)*.R0 
lOOS 

*8..<SP) 

a«MMON 

3S 

*10.R0 

*3-(SP) 

*35..R3 

R4 

R5.R4 
R4,(R0) 
(RO) .R4 
99S 
R4 

R5,R4 

R4,(R0) 

(R0).R4 

99$ 

R1.R4 

R3.4$ 

(RO)* 

(SP) 

3$ 

1$ 



GET PDR ADDRESS 

EXIT ON '0' TERMINATOR 

SET LOOP COUNT (FOR 8 REGS) 

BRANCH IF MEM M01T DISABLED 

SET RO TO PDR4 

AND LIMIT TO TEST 3 PDRS 

SET DATA COUNT 

INITIALIZE DATA TO BE WRITTEN 

CLEAR NON-SETTABLE BITS 

WRITE INTO PDR 

AND CHECK DATA READ BACK 

60 TO ERROR CALL 

COMPLEMENT DATA 

CLEAR NON-SETTABLE BITS 

WRITE COMPLEMENT DATA INTO PDR 

AND CHECK 

GO TO ERROR CALL 

STEP DATA 

.•STEP TO NEXT REGISTER 
.DECREMENT REGISTER COUNT 

.GET NEXT SET OF 8 REGISTERS 



J00772 



.-ERRORl INCORRECT DATA READ 
.-BACK FROM PDR. ADDRESS OF 
;PDR IS IN^RO, DATA IS IN R4 
BR 5$ .STEP TO NtXT REGISTER 

100$: 

***************************************************** 

;'»TEST 67 PAR TEST 

;» PAR TEST - THIS TEST WRITES 64. COMPLEMENTING RANDOM 0'S INTO EACH PAR, 



000004 

112737 000067 001252 
013737 001252 177570 

012702 033166 
005005 
012200 
001435 

012716 000010 
105737 001601 
001404 

062700 000010 
012716 000003 

012703 000040 
005004 
040504 
010410 
021004 
001013 
005104 
040504 
010410 



TST67: 

KTPAR: 

1$: 

2$: 

3$: 
4$: 



SCOPE 

M0V8 

MOV 

MOV 

CLR 

MOV 

BEQ 

MOV 

TST8 

BEQ 

ADD 

MOV 

MOV 

CLR 

BIC 

MOV 

CMP 

BNE 

COM 

BIC 

MOV 



#67,ar$TST^#1 
a«rsTSTffi,airDi SPLAY 



;LOAD TEST NUMBER 
;; DISPLAY TEST NUMBER 



*PARTBL.R2 ;6ET TABLE ADDRESS OF PAR'S 
R5 

(R2) ♦.RO .-GET PAR ADDRESS 

100$ .-EXIT ON '0' TERMINATOR 

#8..(SP) ;SET LOOP COUNT (FOR 8 REGS.) 

a«MMON .-BRANCH IF MEM MGMT DISABLED 
3$ 

*10.R0 .-SET RO TO PAR4 

*3.(SP) .-AND LIMIT TEST TO 3 PARS 

#32.. R3 .-SET DATA COUNT 

R4 .-INITIALIZE DATA 

R5,R4 .-CLEAR NON-SETTABLE BITS 

R4,(R0) .-WRITE INTO PAR 

(R0).R4 .-AND CHECK 

99$ .TAKE ERROR EXIT 

R4 .-COMPLEMENT DATA 

R5,R4 .CLEAR NON-SETTABLE BITS 

R4.(R0) ; WRITE COMPLEMENT DATA 



CtQKC-E POP 1V70 CPU FxERCiSfR MACvH 
CFQKCE.PII l?-«AP-80 11:27 



30A(1052J 12-mR-80 11:30 
T67 PAR TEST 
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PAGE 



10559 
10560 
10561 
10562 
10563 
1056A 
10565 
10566 
10567 
10568 
10569 
10570 
10571 
10572 
10573 
(2) 
'057A 
10575 
10576 
10577 
10578 
10579 
10580 
10581 
10582 
10583 
10584 
10585 
10586 
10587 
10588 
10589 
10590 
10596 
(3) 
(4) 
(4) 
(4) 
(3) 
(2) 
(2) 
(2) 
(2) 
10597 
10598 
10599 
10600 
10601 
10602 
10603 
10604 
10605 
10606 
10607 
^0608 
10609 



033122 
033124 
033126 
033130 

033132 
033154 
033136 
033140 



021004 
001006 
060104 
077313 

005020 
005316 
001357 
000743 



033142 104000 



03314^. 
033146 
033146 

033150 
033152 
033154 
033156 
033160 
033162 
033164 

033166 
033170 
033172 
033174 
033176 
033200 
033202 



033204 
033206 
033214 
033222 
033226 
033230 
033234 
033240 
033244 
033250 
033254 
033260 
033264 
033270 
033272 
033276 



000772 

000416 

172300 
177600 
1 72200 
172320 
177620 
172220 
000000 

1 72340 
177640 
172240 
172360 
177660 
1 72260 
000000 



000004 
112737 
013737 
105737 
001515 
005037 
005037 
005037 
005037 
005037 
005037 
01 3746 
01 3746 
010746 
062716 
012637 



5S: 



99$: 



100$: 



CMP 
BNE 
ADD 
S08 

CLR 
DEC 
BNE 
BR 

HLT 



BR 

BR 



(R0),R4 
99$ 
R1.R4 
R3.4$ 

(ROJ* 
(SPJ 
3$ 
1$ 



5$ 

TST70 



47-115 



AND CHECK 

TAKE ERROR EXIT 

STEP DATA 

LOOP UNTIL FINISHED 



.•DECREMENT REGISTER COUNT 
.-BRANCH IF 8 REGS NOT DONE 



.-ERROR! INCORRECT DATA READ BACK 
.-FROM PAR. ADDRESS OF PAR JS IN 
:R0. DATA IS IN R4 
;D0 NEXT REGISTER 



SEO 0140 



.-TABLES FOR PDR t PAR TESTS ABOVE 
PDRTBL: .WORD KIPDRO 
UIPDRO 



.-.-60 TO NEXT TEST 



PARTBL: 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

.WORD 
.WORD 
.WORD 
• WORD 
.WORD 
.WORD 
.WORD 



SIPDRO 
KDPDRO 
UDPDRO 
SDPDRO 
0 

KIPARO 
UIPARO 
SIPARO 
KDPARO 
UDPARO 
SDPARO 
0 



.-CHANGED TO '0" IF 11/40 



; TERMINATOR 



.CHANGED TO 'O' IF 11/40 



.-TERMINATOR 



• *************************************************************** 

'•TEST 70 CHECK KT ABORT LOGIC 

• THIS TEST CHECKS KT ABORT LOGIC. TEST CREATES AN ABORT CONDITION 

• AND INSURES THAT ABORT IS TAKEN PROPERLY. NOTE: TEST IS EXECUTED ONLY 

• IF TEST IS ENTERED WITH MEM MGMT ENABLED. 

• ************ ****tk**********tk** ************************* ******** 



000070 001252 
001252 177570 
001601 

172350 
172310 
1 77650 
177610 
172250 
172210 
000250 
000252 

000040 
000250 



TST70: 



KTABT: 



1$: 



SCOPE 

MOVB 

MOV 

TST8 

BEQ 

CLR 

CLR 

CLR 

CLR 

CLR 

CLR 

MOV 

MOV 

MOV 

ADD 

MOV 



»70,anTSTNM 

anrsTim.aroi SPLAY 



KTEX 

a«KIPAR4 

a«UIPAR4 

a«UIPDR4 

a«SIPAR4 

a#SIPDR4 

a#MMVEC,-(SP) 

a#MMVEC*2,-(SP) 

PC.-(SP) 

#4$-..(SP) 

(SP)*,a*HMVEC 



.-LOAD TEST NUMBER 
.-.DISPLAY TEST NUMBER 



.•BRANCH IF MEM MGMT DISABLED 

.-SET UP MEM MGMT REGISTERS 
.-TO ABORT IF A MEMORY 
.-REFERENCE IS MADE TO 
.-ADDRESSES (VIRTUAL) BETWEEN 



SAVE MEM MGMT VECTOR 
AND PRIORITY 
SET MEM MGMT 
VECTOR TO 4$ BELOW 
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SEO O'il 



10610 
10611 
10612 
10613 
106K 
10615 
10616 
10617 
10618 
10619 
10620 
10621 
10622 
10623 
1062A 
10625 
10626 
10627 
10628 
10629 
10650 
10631 
10632 
10633 
10634 
10635 
10636 
10637 
10658 
10639 
10640 
10641 
10642 
106^5 
10644 
10645 
10646 
10647 
10648 
10652 
(4) 
(3) 
(4) 
(3) 
(2) 
(2) 
(2) 
(2) 
10653 
10654 
1 0^.55 
10656 
10657 
10658 
10659 
10660 



033302 
033310 
033312 
033314 
035320 
033322 
033324 
033326 
053330 

033332 
033356 
035340 
055342 
035546 
033552 
055556 
055360 
035364 
055570 
055572 
055576 
033^02 
055404 
053410 
033414 
035416 
033422 
035424 
033426 
035430 

0 3 54 32 
035434 
055436 
055442 
055444 
055450 
055454 
053462 



013737 
005000 
010702 
012703 
014223 
005700 
001001 
104000 
000445 

013700 
000300 
006200 
042700 
062700 
020037 
001025 
012700 
020037 
001020 
012700 
120037 
001015 
012700 
120037 
001006 
012700 
005720 
020016 
001001 
000002 

104000 
010716 
062716 
000002 
012637 
012637 
012737 



1 7777t 
100000 



000252 



U7776 



1 77657 
100011 
177572 

033520 
177576 

000362 
177574 

000023 
177575 

033320 



1 77664 

000252 
000250 
000001 



2$: 
3$: 



; ABORT 
4S: 



177572 



5$: 



.•ENTER 
99$: 



100$: 
KTEX: 



MOV 

CLR 

MOV 

MOV 

MOV 

TST 

BNE 

HLT 

BR 
HERE 

MOV 

SWAB 

ASR 

81 C 

ADD 

CMP 

BNE 

MOV 

CMP 

BNE 

MOV 

CMP8 

BNE 

MOV 

CMPe 

BNE 

MOV 

TST 

CMP 

BNE 

RTJ 
HERE ON 

HLT 

MOV 

ADD 

RTJ 

MOV 

MOV 

MOV 



a^su,a»MnvEC«2 

RO 

PC .R2 

#1 60000. R3 

-(R2).(R3)* 

RO 

.♦4 

100$ 

aiTPSU.RO 

RO 
RO 

*1 77637. RO 

*i oooii.ro 

RO.a^SRO 
99$ 

*2$.R0 

R0.a*SR2 

99$ 

*362.R0 

RO.arsRi 

99$ 

#23. RO 

R0,a*SRl*1 

99$ 

#2$.R0 

(R0) + 

RO.'SP) 

99$ 

ERROR 

PC.(SP) 
#3$-.,(SP) 

(SP)*.a*MnVEC*2 

(SP)*.a*HnvEC 
#1 ,a«SRO 



CLEAR ABORT INDICATOR 
SET R2 AND P3 NOTE: 
THE REF VIA R5 CAUSES THE 
ABORT 

BRANCH IF THE ABORT OCCURRED 
.REPORT ERROR 



SRO SHOULD CONTAIN 
CAUSE FOR ABORT AND 
ALSO WHICH SEGMENT 
UAS IN USE WHEN ABORT 
OCCURRED. 



;6ET ADDRESS OF INST 
.•THAT ABORTED 



;SR1 CONTAINS REGISTER 
.•MODIFICATIONS MADE 



;RO=ADDRESS OF INST FOLLOWING ABORT 
;(5$) 

.•RETURN 

.•REPORT ERROR 



RETUWil 

RESTORE ABORT VECTOR 

I pRiORjry. 

CLEAR ERROR CONDITIONS 



*TEST 71 



NAPPING REGISTER TESTS 



THIS TEST LCMDS RANDOM f *S INTO EACH MAPPING REGISTER 



055462 


000004 






TST71 : 


SCOPE 


055464 


112737 


000071 


001252 




novB 


055472 


013737 


001252 


177570 




MOV 


055500 


032757 


000040 


172516 




BIT 


053506 


001070 








BNE 


033510 


012700 


170200 




MAPTST: 


MOV 


035514 


023737 


000042 


000046 




CMP 


053522 


001002 
062700 








BNE 


033524 


000020 






ADD 


033530 








3$: 




033530 


012706 


000700 






MOV 



#71 .a#STST^»1 

a#$TSTII«,a#DISPLAY 



«BIT5.a#MMR3 
MAPTWO 
#MAPLO,RO 

a#42.a#46 

3$ 

#20. RO 
#SUPSTK.SP 



.-LOAD TEST NUMBER 
.•.DISPLAY TEST NlMBER 



IS MAP ON? 
BRANCH IF YES 

SET ADRS OF FIRST MAP REGISTER 
ACT11 ??? 

;USE ONLY MP4 AND UP... 
.•SETUP THE SP 
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SEQ OU? 



10661 

10662 

10663 

10664 

^0665 

10666 

10667 

10668 

10669 

10670 

10671 

10672 

10673 

10674 

10675 

10676 

10677 

10678 

10679 

10680 

10681 

10682 

10683 

10684 

10685 

10686 

10687 

10688 

10689 

10690 

10691 

10692 

10693 

10694 

10695 

10696 

10697 

10698 

10699 

10700 

10701 

10702 

10703 

10704 

10705 

10706 

10707 

10708 

10709 

10710 

10711 

;i) 

1) 
1) 
1) 
1 ) 



033554 


012716 


000001 




nov 


*1,(SP) 


033540 


012702 


1 77700 




MOV 


#177700,R2 


033544 


025757 


000042 


000046 


CMP 


a#42,ar46 


033552 


001005 






BNE 


1$ 


055554 


012705 


000034 




MOV 


#28.. R3 ; 


035560 


000402 






BR 


4S 


053562 


012705 


000040 


1$: 


MOV 


*32..R3 


033566 


005005 




4t: 


CLR 


R5 


033570 


010504 




2%: 


MOV 


R5.R4 


033572 


041604 






BIC 


(SP) .R4 


033574 


010410 






MOV 


R4.(R0) 


033576 


021004 






CMP 


(R0),R4 


033600 


001052 






BNE 


99$ 


035602 


005105 






COM 


R5 


035604 


010504 






MOV 


R5.R4 


055606 


041604 






BIC 


(SP).R4 


055610 


010410 






WOV 


R4, (RO) 


055612 


021004 






CMP 


(ROJ .R4 


055614 


001024 






BNE 


99$ 


055616 


005720 






TST 


(R0) + 


055620 


010504 






MOV 


R5.R4 


055622 


040204 






BIC 


R2,R4 


033624 


010410 






MOV 


R4,(R0) 


055626 


021004 






CMP 


(RO) .R4 


055650 


001016 






BNE 


99$ 


055632 


005105 






COM 


R5 


033634 


010504 






MOV 


R5,R4 


033656 


040204 






BIC 


R2.R4 


055640 


010410 






MOV 


R4.(R0) 


033642 


021004 






CMP 


(RO) ,R4 


055644 


001010 






BNE 


99$ 


055646 


060705 






ADD 


PC.R5 










T C T 




055652 


077332 






SOB 


R3.2$ 


055654 


022020 






CMP 


(RO)*-(RO)+ 


055656 


022700 


170400 




CMP 


#MAPL0+128.,R0 


033662 


001337 






BNE 


1$ 


055664 


000401 






BR 


MAPTWQ 


035666 


104000 




99$: 


HLT 





033670 005737 001602 MAPTWO: TST aWJV 

033674 001416 BEO RELF7 

033676 012737 040000 170210 MOV *40000.amAPL2 

055704 005057 170212 CLR aWIAPH? 

035710 012737 020000 170204 MOV #20000, ftTMAPLl 

055716 005057 170206 CLR aiMAPHI 

055722 005037 170200 CLR aWAPLO 

055726 005057 170202 CLR a#MAPHO 

035752 000004 RELE7: SCOPE 

055734 010702 MOV PC.R2 

055756 062702 000012 ADD #l5.R2 

053742 012707 044042 MOV fRELOC.PC 

033746 000000 REL77: .WORD 0 



SET BIT MASK FOR MAPlO <15-01> 
AND ALSO FOR MAPHO <21-16> 
ACT11 ??? 



SET DATA COUNT 
SET INITIAL DATA 
GET DATA 

CLEAR UNUSED BITS 

LOAD DATA INTO MAPLO <15-01> 

CHECK DATA 

BRANCH IF INCORRECT 

COMPLEMENT TEST DATA 

GET TEST DATA 

CLEAR UNUSED BITS 

LOAD COMPLEMENT DATA 

AND CHECK 

STEP TO NEXT REGISTER 

GET COMPLEMENT TEST DATA 

CLEAR UNUSED BITS 

LOAD TEST DATA INTO MAPHO <21-16> 

AND CHECK 

COMPLEMENT TEST DATA 
GET TEST DATA 
CLEAR UNUSED BITS 
LOAD TEST DATA 
AND CHECK 

FORM NEXT TEST DATA 
RESET PTR TO REGISTER <15-01> 
AND TEST UNTIL ALL *'S USED 
STEP TO NEXT REGISTER PAIR 
BRANCH IF NOT LAST PAIR 



ERROR! INCORRECT DATA READ BACK 
FROM MAP REG. ADRS OF REGISTER 15 
IN RO, GOOD DATA IS IN R4 
OV OR AUTO-ACCEPT? 
BRANCH IF NO 



;SET MAP 1 AND 2 INCASE ACTIl 



:7777777777777 LAST ADDRESS Of 



:G0 RELOCATE PROGRAM CODE 
CODE TO BE RELOCATED 77777777777 



N 11 

CEQKC-E POP 11/70 CPU EXERCISER MACVll 30A(1052) l?-rtAR-80 11:30 PAGE 47-118 
CFQKCE.P11 12-mR-80 11:27 T71 HAPPING REGISTER TESTS 



(1) 
10721 
(3) 
(4) 
(4) 

(4; 

(4) 
(4) 
(4) 
(4) 
(^) 
(2) 
(2) 
f2) 
(?) 
(2) 
10722 
10723 
(1) 
(1) 
(1) 
(1J 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1 ) 
i1) 
(1) 
(1) 
10724 
10725 
10726 
10727 
10728 
10729 
10730 
10731 
10732 
10733 
10734 
1073S 
10736 
10737 
10738 
10739 
10740 
10741 
10742 
10743 
10744 
10745 
10746 
10747 



033750 
033756 
033760 
033766 
033774 



034002 
054004 
034006 
034012 
034014 
034020 
034024 
034030 
034036 
034044 
034050 
034052 
034056 
034064 
034066 
034072 
034076 
034102 
034106 
034112 
034120 
034126 
034132 
034134 
034142 
034146 
034152 



034160 
034166 
034172 
034200 
034202 
034206 



012767 
OOOCKK 
112737 
013737 
012737 



010700 
005740 
010037 
010700 
162700 
010037 
010737 
062737 
013737 
105737 
001402 
000167 
032737 
001002 
000167 
004737 
170127 
172537 
172437 
013737 
013737 
004767 
174100 
013737 
004767 
174137 
013737 



013737 
172437 
013737 
172500 
004767 
174102 



000072 
001252 
000001 



001610 

034014 
001604 
001262 
000030 
001262 
001600 

002422 
020000 

002424 
060666 
000000 
001352 
001356 
001326 
001330 
002210 

001464 
002124 
001362 
001464 



001326 
001352 
001462 

002064 



TEST 72 



FLOATING POINT TEST 1 



THIS TEST TAKES TWO RANDOM NLTBERS (A AND B) AND 

COMPARES THE RESULTS OF TWO EQUAL CALCULATIONS. 

Ea H SECTION EVALUATES A DIFFERENT EQUATION AS DESCRIBED BELOW: 

SECTl (A*e)**2=A**2*2*A*8+8**2 

SECT2 (A*8)*(A-B)=A**2-e**2 

SECT3 A/B»B=A 



000001 145420 



001252 
177570 
001376 



TST72: 



MOV 

SCOPE 
M0V8 
MOV 
MOV 



*1.$TIMES 



;;D0 1 ITERATION 



#72. *r$TSTNM 
a#$TSTNM,a#DI SPLAY 

/ri.arsTiMEs .-set 



.•LOAD TEST NUMBER 
;; DISPLAY TEST NUMBER 
ITTERATIONS TO 1 



•SBTTL 
.-8888888888888 
REL8: 



START OF SECTION 8 
FIRST ADDRESS TO BE RELOCATED 888888888 



001262 
001260 



001550 



100$: 



001464 
001462 



001462 
001332 

001462 
001464 



MOV 


PC.RO 


.-GET PC 


TST 


-(RO) 


;R0 CONTAINS THE ADDRESS OF REL8 


MOV 


RO.aiTFRSTAD 


.-SAVE 


MOV 


PC.RO 


;6ET CURRENT PC 


SUB 


#.,R0 


.•SUBTRACT RELOCATION FACTOR 


MOV 


RO.arFACTOR 


.•SAVE RELOCATION FACTOR 


MOV 


PC.arSLPERR 


.-SET LOOP ADDRESS 


ADD 


#30.anLPERR 


.•ADJUST 


MOV 


a(rSLPERR.a#SLPADR 


TST8 


aiVNEXEC 


;8R IF TEST CODE TO BE EXECUTED 


6E0 


.♦6 




JMP 


RELE8 




BIT 


/rFPOPT.a*OPT.CP 


.•FLOATING POINT AVAILABLE? 


BNF 


100$ 


.•BRANCH IF YES 


JMP 


REL88+2 




JSR 


PC.arFLTSGL 


;6ET RANDOM OPERANDS 


LDFPS 


MO 


;INIT FPS 


LDF 


aWTMPO.ACI 


.-LOAD A OPERAND 


LDF 


a»$TMP2.AC0 


.-LOAD B OPERAND 


MOV 


avSREGO^amci 


.•SETUP EXTENDED 


MOV 


a#SREGi ,amco 


.•EXPONENTS 


JSR 


PCFLTADD 


.•PERFORM THE ADD 


STF 


ACl.ACO 


.•SETUP ACO TO 


MOV 


air$ACi.»r$Aco 


.•PERFORM THE SQUARE 


JSR 


PC.FLTMPY 


;D0 THE MULTIPLY 


STF 


ACi.ar$TMP4 


.-SAVE RESULT 


MOV 


anAci,anREG2 


;AND SOFTWARE EXP 



NOW DO THE RIGHT HAND SIDE OF THE EQUATION 
DO THE A*A FIRST 



MOV air$REGO.air$Aco 

LDF aWTMPO.ACO 

MOV amco,a#$Aci 

LDF ACO.ACI 

JSR PC-FLTMPY 

STF AC1.AC2 



GET EXT EXPONENT 

LOAD OPERAND A 

SET OPERAND 6 EXT EXPONENT 

LOAD B OPERAND 

EXECUTE THE MULTIPLY 

SAVE RESULT 



lEQKC-C POP n/70 CPU EXERCISER «ACrl1 3OA(1052) 12-#WR-80 
CE0KCE.P11 12-fUR-80 11:27 START OF SECTION 8 



B 12 

11:30 PAGE 47-119 



SEO 0U4 



10748 

10749 

10750 

10701 

10752 

10755 

10754 

10755 

10756 

^0757 

10758 

10759 

10760 

10761 

10762 

10763 

10764 

10765 

10766 

10767 

10768 

10769 

10770 

10771 

10772 

10773 

10774 

10775 

10776 

10777 

10778 

10/79 

10780 

10781 

10782 

10783 

10784 

10785 

10786 

10787 

10788 

10789 

10790 

10791 

10792 

10793 

10794 

10795 

10796 

10797 

10798 

10799 

10800 

10801 

10802 

10803 



054210 013737 001464 001466 



034216 
054222 
054224 
054252 
034240 
05^244 
054246 



054254 
054260 
054262 
054264 
034272 
054500 
054504 
054510 
054516 



054522 
054550 
054352 
054556 
054540 
054546 
054552 
034556 



1 r:457 

172500 
015757 
015757 
004767 
174103 
013737 



012701 
172411 
172541 
013757 
015757 
004767 
172427 
012757 
004767 



015757 
172405 
004767 
172'.02 
015757 
004767 
174157 
015737 



001556 

001330 
001462 
002026 



001462 
001464 



001464 001470 



nov 

•NOW DO THE 8*8 

LDF 
LDF 

nov 

NOV 

JSR 
STF 

nov 



anAci ,amc2 



a»$T«P2,Aco 

AC0.AC1 

airSREGi .afSACO 
afSACO^amci 

PC-FLTHPY 
AC1,AC3 

avsAd ,amc3 



001556 



001550 
001326 
001766 
040000 
000002 
001750 



;NOW DO THE 2*8*A 



001462 
001464 



001462 
001470 001462 



MOV #$TMP2,R1 

LDF (RD.ACO 

LDF -(RD.ACl 

nov afSREGi .arsACO 

nov airSREGO.anACi 

JSR PCFLTMPY 

LDF #''O40000-AC0 

nov #2,amco 

JSR PCFLTHPY 



.-NOW SUM THE RESULTS 



002004 

001466 
001770 
001566 
001464 



001462 
001334 



nov MrsAC3.anAco 

LDF AC3,AC0 

JSR PC-FLTADD 

LDF AC2,AC0 

nov avsAC2,a#$AC0 

JSR PCFLTADD 

STF ACl.air$THP6 

nov anAci .a#$REG3 



;LOAD 8 OPERAND 

:AND EXT EXPONENT 

;D0 THE nULTJPLY 
.•SAVE THE RESULT 



;LOAD THE B OPERAND 
;LOAD THE A OPERAND 
;AND THE EXT EXPONENTS 

;D0 THE nULTIPLY 
.•SETUP TO MULTIPLY BY 

;D0 THE nULTIPLY 



.•GET RESULT OF B*6 
;ADD THE RESULT 
;GET RESULT OF A* A 

;ADD THIS RESULT 
.•SAVE FINAL RESULT 



TWO 



NOW CHECK BOTH SIDES OF THE EQUATION 
CALCULATE THE NLfBER OF CORRECT BITS 
PUT LARGEST EXPONENT OF A**2 OR B**2 IN SAC2 



054564 


025757 


001466 


001 h70 




cnp 


airSAC2.airSAC3 


054572 


002003 








BGE 


1$ 


0545^4 


013757 


001470 


001466 




nov 


anAC3.a#uc2 


034402 


165757 


001464 


001466 


1$: 


SUB 


anAci .»r$AC2 


034410 


162757 


000023 


001466 




SUB 


/ri9..Mr$AC2 


034416 


005457 


001466 






NEG 


airuc2 


034422 


172457 


001562 






LDF 


a«Tnp4,AC0 


034426 


015757 


001532 


001462 




nov 


airsREG2.anAco 


054454 


004767 


001676 






JSR 


PC-FLTSUB 


054440 


165757 


001354 


001464 




SUB 


airSREG3,MrSAC1 


054446 


100002 








8PL 


3$ 


054450 


005437 


001464 






NEG 


afSAci 


034454 


025757 


001466 


001464 


3$: 


cnp 


airsAC2.a#$ACi 


054462 


005401 








BLE 


SECT2 


034464 


104014 






4S: 


ERRC^ 


14 


03446b 


170127 


000000 




SECT2: 


LDFPS 


#0 










;D0 A+8 






034472 


1 72557 


001552 




LDF 


a#$Tnpo.ACi 


0544 76 


172457 


001556 






LDF 


ftr$TnP2.AC0 



BRANCH IF »AC2 ALREADY HAS LARGEST 

SAC3 WAS LARGER 

NOW CALCLtATE NlfBER 

OF CORRECT BITS WITHIN 2 

WAKE RESULT POSITIVE 

LOAD RESULT Of LEFT HAND SIDE 

AND EXTENDED EXP0NEN1 

SUBTRACT TO SEE HOW CLOSE THEY ARE 

GET DIFFERENCE IN EXT EXPONENTS 

ACTUAL EXP'S ARE EQUAL TO 200 

ENSURE RESULT IS POSITIVE 

ANSWERS WITHIN ALLOWABLE NUMBER** 
BRANCH IF YES 
RESULTS ARE (4RQNG 



.-LOAD A OPERAND 
.-LOAD B OPERAND 



EQKC-e POP 
^EQrCE.Pn 



11/70 CPU EXERCISER ^WCVII 
12-MAR-80 11:27 



^0A(1052) 
START OF 



12-mR-80 
SECTION 8 



11:50 



C 12 
PAGE 



10804 


054502 


015757 


001526 


001464 


10805 


054510 


015757 


001550 


001462 


10806 


054516 


004767 


001620 




10807 


054522 


174102 






10808 


054524 


01575* 


001464 


001466 


10809 










10810 


054552 


172557 


001552 




10811 


054 5 56 


015757 


001526 


001464 


10812 


054544 


172457 


001356 




10813 


054550 


013757 


001330 


001462 


108U 


054556 


004767 


001554 




10815 










10816 


054562 


1 72402 






10817 


054564 


013737 


001466 


001462 


10818 


054572 


004767 


001474 




10819 


054576 


174137 


001362 




10820 


054602 


015737 


001464 


001552 


10821 










10822 


054610 


1 72457 


001556 




10823 


054614 


015757 


001550 


001462 


10824 


054622 


172500 






10825 


054624 


015757 


001462 


001464 


10826 


034632 


004767 


001454 




10827 


054656 


174102 






10828 


054640 


015757 


001 46^' 


001466 


10829 










10830 


054646 


1 72457 


001552 




10831 


054652 


015757 


001526 


001462 


10832 


054660 


172500 






10833 


054662 


015737 


001462 


001464 


108 3A 


054670 


004767 


001576 




10835 


054674 


013737 


001464 


001470 


10836 










10837 


054702 


1 72402 






10838 


054704 


013737 


001466 


001462 


10839 


054712 


004767 


001420 




10840 


054716 


174137 


001366 




10841 


054722 


013757 


001464 


001554 


10842 










10843 










10844 


054750 


025757 


001466 


001470 


10845 


054756 


002003 






10846 


054740 


013757 


001470 


001466 


10847 


054746 


165757 


001464 


001466 


10848 


054754 


162757 


000025 


001466 


10849 


054762 


005437 


001466 




10850 


034766 


1 72437 


001562 




10851 


054772 


013737 


001552 


001462 


10852 


055000 


004767 


001552 




10853 


035004 


163757 


001554 


001464 


10854 










10855 


055012 


100002 






10856 


055014 


005437 


001464 




10857 


035020 


025757 


001466 


001464 


10858 


035026 


005401 






10859 


055050 


104014 







MOV 
MOV 
JSR 
STF 
MOV 

;N0W DO THE A-B 
LDF 
MOV 
LDF 
MOV 
JSR 



DO (A+8)*(A-35 



airsREGO,a»tAci 
afSRESi ,»ruio 

PC-FLTAOO 
AC1.AC2 

afSACi,anAC2 

a#$TMP0,AC1 

airsREGO,anAci 

af$TMP2,AC0 

a#$REGi ,amco 

PCFLTSUe 



LDF 
MOV 
JSR 
STF 
MOV 

;N0W DO THE 8*8 
LDF 
MOV 
LDF 
MOV 
JSR 
STF 
MOV 

;NOW DO THE A*A 
LDF 
MOV 
LDF 
MOV 
JSR 
MOV 

.-NOW DO A**2-e**2 

LDF AC2,AC0 

MOV airSAC2,anAC0 

JSR PCFLTSUB 
STF ACl,*nTnP6 
MOV »rSAC1,a#$REG3 
.NOW CONFUTE THE RESULTS 

"'THE Nl#«R OF CORREC 



2$: 



AC2.AC0 

airSAC2,anAC0 

PC.FLTMPY 

Aci .amHP4 
a«SACi.anREG2 

a#$TMP2.AC0 

arsREGi.amco 

ACO.ACI 

amco.anAci 

PC.FLTMPY 
AC1.AC2 

airSACi,anAC2 
airsTMPO.ACo 

MTSREGO.amcO 
ACO.ACI 

amco.amc! 

PC.FLTMPY 

anAci.anAC5 



1$: 



CMP 


a«SAC2,anAC5 


BGE 


2$ 


MOV 


airSAC5.airSAC2 


SUB 


MTSAd .anAc2 


SUB 


#21 . ,%nkC2 


NEG 


af$AC2 


LDF 


air$TMP4.AC0 


MOV 


»rSREG2.anAC0 


JSR 


PC.FLTSU8 


SUB 


air$REG5.arsACi 


8PL 


IS 


NEG 


anACi 


CMP 


airSAC2,d#SAC1 


BLE 


SECT5 


ERROR 


14 



47-120 



ADD THEM 

SAVE IN AC2 

AND EXT EXPONENT 

LOAD OPERAND A 
AND EXT EXPONENT 
LOAD OPERAND 8 

SUBTRACT THEM 

GET RESULT OF (A*8) 

FORM THE PRODUCT 

SAVE RESULT 

AND EXT EXPONENT 

LOAD OPERAND 8 

8 OPERAND IS IN ACO 
AND EXT EXPONENT 

SAVE RESULT IN AC2 



.-LOAD OPERAND A 



.•EXECUTE THE MU».TIPLY 
.•SAVE EXT EXPO OF A*A 

;6ET 8*8 
;A*A IN ACI 

.•SAVE IN MEMORY 



T BITS 

DETERMINE WHICH EXP IS LARGER 
BRANCH IF AC2 LARGER 
PUT LARGEST IN AC2 



;6ET LEFT HAND SIDE 

.■SUBTRACT TO SEE HOW CLOSE THEY ARE 
.-SUB EXT EXPONENTS 
.•ACTUAL EXPONENTS ARE EQUAL 
;MAKE SURE RESULT IS POSITIVE 

.RESULTS WITHIN RANGE ALLOWED' 
.•BRANCH IF YES 
.•RESULTS WRONG 



tOK -e -^b^ CPU EXERCISER nACVll 

'EQKCE.Pn V-nAR-80 11:27 



3OA(1052) 
START Of 



12-#UR-80 
SECTION 8 



D 12 
11:30 PAGE 



47-121 



10660 

1086 
10862 
1086B 
10864 
10865 
10866 
10867 
10868 
10869 
10870 
10871 
'0872 
10873 
10874 
10875 
10876 
10877 
10878 
10879 
10880 
10881 
10882 
10885 
(?) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(3) 
(2) 
(2) 
(2) 
(2) 
10884 
10885 
10886 
10887 
10888 
10889 
10890 
10891 
10892 
10893 
10894 
10895 
10896 
10897 
10898 
10899 
10900 
10901 
10902 



035032 
035036 
035042 
035050 
035056 
035062 
035066 
035072 
035100 
035104 
035110 
035116 
035124 
035150 
055156 
035140 
035144 
035152 
035154 
035156 



172537 
172437 
013737 
013737 
004767 
004767 
174137 
013737 
172437 
1 74057 
015757 
015737 
004767 
163737 
100002 
005437 
022737 
003001 
000401 
104014 



001352 
001356 
001326 
001350 
001232 
001204 
001562 
001464 
001552 
001566 
001526 
001526 
001206 
001326 

001464 
000026 



0OK64 
001462 



001332 

001462 
001334 

001464 
001464 



SECT3: LOF a*$T«P0,AC1 

LDF anT«P2,AC0 

nov a«r$AEGO,af$ACi 

nov »rSREGi ,a#$AC0 

JSR PC.FLTOIV 

JSR PC-FLTHPY 

STF AC1.ar$THP4 

nov air$ACi.»rsREG2 

LDF aUfSTMPO.ACO 

STF AC0.a*$THP6 

MOV a«$REGO,af$ACO 

nov air$REG0,anREG3 

JSR PC-FLTSUB 

SUB aHREGO,anAci 

BPL 1$ 

NEG a#SAC1 

1$: CMP *22.. a»$AC1 

BGT 2$ 

BR TST73 

2$: ERROR 14 



.-LOAD OPERAND A 
.-AND OPERA^M> B 



;60 DIVIDE THEM 
.-nULTIPLV RESULT BV B 
.•SAVE RESULT 

.-LOAD OPERAND A 
.SAVE INCASE TYPE OUT 



SUBTRACT RIGHT AND LEFT HAND SIDES 

SEE IF RESULT OK 

ENSURE DIFFERANCE IS POSITIVE 

.•RESULTS WITHIN 2 BITS? 
.•BRANCH IF NO 
;;G0 TO NEXT TEST 
.•RESULTS WRONG 



TEST 73 



FLOATING POINT TEST 2 



THIS TEST TAKES TWO RANDOM NlfCERS (A AND 6) AND 

COMPARES THE RESULTS OF TWO EQUAL CALCLH.ATIONS. 

EACH SECTION EVALUATES A DIFFERENT EQUATION AS DESCRIBED BELOW 

SECT1 (A*a)**2=A**2*2*A'»8*B**2 

SECT2 (A*8)*(A-8)=A**2-e**2 

SFCT3 A/8*B=A 

********************************************* ****** •••••••*••*• 



035160 


000004 






TST73: 


SCOPE 


035162 


112737 


000073 


001252 




MOVE 


035170 


013737 


001252 


177570 




MOV 


035176 


012737 


000001 


001376 




MOV 


035204 


004737 


060660 




100S: 


JSR 


035210 


170127 


000200 






LDFPS 


035214 


: 72557 


001352 






LDF 


035220 


mi*i7 


001362 






LDF 


035224 


013737 


001326 


001464 




MOV 


035232 


013737 


001330 


001462 




MOV 


035240 


004767 


001076 






JSR 


035244 


174100 








STF 


035246 


013737 


001464 


001462 




MOV 


035254 


004767 


001012 






JSR 


035260 


174137 


001502 






STF 


035264 


013737 


001464 


001332 




MOV 



#73.anTSTi^ 

arSTSTNW.aiTDI SPLAY 
#1.a#$TIMES 
PC.a#FLTDBL 

#260 

d»$TMP0.AC1 

anrnPA.Aco 
arsREGCafSAci 
arSREGi.amco 

PC.FLTADO 
ACI.ACO 

anAci.amco 

PC.FLTMPY 
AC1,a#FLTMP0 

amci ,a«$REG2 



.-LOAD TEST NUMBER 
.-.•DISPLAY TEST NUMBER 



GET RANDOM OPERANDS 
INIT FPS 
LOAD A OPERAND 
LOAD B OPERAND 
SETUP EXTENDED 
EXPONENTS 
PERFORM THE ADD 
SETUP ACO TO 
PERFORM THE SQUARE 
DO THE MULTIPLY 
SAVE RESULT 
AND SOFTWARE EXP 



NOW DO THE RIGHT HAND SIDE OF THE EQUATION 
.DO THE A»A FIRST 
035272 013757 001326 001462 MOV arSREGO.anACO 

035300 172437 001352 LDF a»$TMP0.AC0 

035304 013737 001462 001464 MOV amc0.a#tAC1 



GET EXT EXPONENT 
LOAD OPERAND A 
SET OPERAND 0 FXT EXPONENT 



fOKC-t POP 11/70 CPU EXERCi:6« NACV11 
CF0KCE.P11 12-«ffi-80 11:27 



E 12 

30A(1052) 12-«AR-80 11:30 PAGE 47-122 
T73 FLOATING POINT TEST 2 



SEQ 0U7 



10905 
1090<. 
1090S 
10906 
10907 
10908 
10909 
10910 
10911 
10912 
10915 
109U 
1091S 
10916 
10917 
10918 
10919 
10920 
10921 
10922 
10925 
10924 
10925 
10926 
1092^ 
10928 
10929 
10950 
10931 
10952 
10955 
10954 
10955 
10956 
10957 
0958 
10959 
10940 
10941 
10942 
10945 
10944 
10945 
10946 
10947 
10948 
10949 
10950 
10951 
10952 
10955 
10954 
10955 
10956 
ICK 7 
109^8 



055512 
055514 
055320 
035322 



035330 
035534 
035556 
055544 
055552 
055556 
053360 



035366 
035572 
055574 
055576 
055404 
055412 
055416 
055422 
055430 



055454 
055442 
055444 
055450 
055452 
055460 
055464 
055470 



055476 
035504 
035506 
035514 
035522 
055530 
055554 
055540 
035546 
055552 

055560 
055562 
055566 
055574 
035576 



172500 
004767 
174102 
013737 



172437 
172500 
013737 
013737 
004767 
174103 
013737 



012701 
172411 
172541 
015757 
015757 
004767 
1 721.27 
012757 
004767 



015757 
1 72405 
004767 
1 72402 
015757 
00^767 
^7i,M7 
015737 



025757 
002005 
013737 
163737 
162737 
005437 
172437 
015737 
004767 
163737 

100002 
005437 
025757 
005401 
104016 



000752 

001464 001466 



001362 

001330 

001462 
000714 



001 362 



001350 
001526 
000654 
040000 
000002 
000636 



000672 

001466 
000656 
001512 
001464 



001470 
001464 
000064 
001466 
001502 
001332 
000564 
001334 



001464 
001466 



001462 
001464 



001464 001470 



001462 
001464 



001462 
001470 001462 



001462 
001334 



001466 001470 



001466 
001466 
001466 



001462 
001464 



LDF 
JSR 
STF 
MOV 

•NOW DO THE B*8 
LDF 
LDF 
MOV 
MOV 
JSR 
STF 
MOV 



AC0.AC1 

PC.FLTMPY 

AC1.AC2 

anAci,afSAC2 



a#STMP4,AC0 
AC0.AC1 

arSREGI ,»rSACO 

afUco.atsAci 

PC.FLTHPy 
AC1,AC3 

a#$Aci,a#SAC3 



.-NOW DO THE 2*8*A 



MOV #$TMP4.R1 

LDF (RD.ACO 

LDF -(RD.ACI 

MOV »r$REG1 ,a#SACO 

MOV »rSREG0,a#SAC1 

JSR PC.FLTKPy 

LDF #*040000-ACO 

MOV #2,a#SAC0 

JSR PC.FLTMPY 



;NOW sun THE RESULTS 



MOV anAC3,anAco 

LDF AC3,AC0 

JSR PC.FLTADD 

LDF AC^.ACO 

MOV a#SAC2,a«SAco 

JSR PC.FLTADD 

STF AC1,a*FLTMP1 

MOV »r$AC1 ,afSREG5 



LOAD B OPERAND 
EXECUTE THE rtULTIPLY 
SAVE RESULT 



.LOAD 8 OPERAND 

;AND EXT EXPONENT 

;D0 THE MULTIPLY 
;SAVE THE RESULT 



LOAD THE B OPERAND 
LOAD THE A OPERAND 
AND THE EXT EXPONENTS 

;D0 THE MULTIPLY 

.•SETUP TO MULTIPLV BY TWO 

.•DO THE MULTIPLY 



GET RESULT OF B»8 
ADD THE RESULT 
GET RESULT OF A* A 

.-ADD THIS RESULT 
.•SAVE FINAL RESULT 



NOW CHECK BOTH SIDES OF 
CALCULATE THE Nll«ER OF 
PUT LARGEST EXPONENT OF 



001464 5$: 



CMP avSAC2,a#$AC3 

BGE IS 

MOV a(ruc3,airuc2 

1$: SUB a(ruci,amc2 

SUB #52. .airSAC2 

NEG anAC2 

LDF a*FLTMP0,AC0 

MOV a#$REG2,airSAC0 

JSR PC.FLTSUB 

SUB a#$REG3,anAci 

BPL 3$ 

NEG arSACi 

CMP a#$AC2.a#$Aci 

8LE SECT2D 

4$: ERROR 16 



THE EQUATION 
CORRECT BITS 
A**2 OR B**2 IN $AC2 



BRANCH IF $AC2 ALREADY HAS LARGEST 

SAC3 WAS LARGER 

NOW CALCULATE NlfBER 

OF CORRECT BITS WITHIN 2 

MAKE RESULT POSITIVE 

LOAD RESULT OF LEFT HAND SIDE 

AND EXTENDED EXPONENT 

SUBTRACT TO SEE HOW CLOSE THEY ARE 

GET DIFFERENCE IN EXT EXPONENTS 

ACTUAL EXP'S ARE EQUAL TO 200 

ENSURE RESULT IS POSITIVE 

ANSWERS WITHIN ALLOWABLE NLWfcR? 
BRANCH IF YES 
RESULTS ARE WRONG 



•»••♦♦♦»••♦♦♦••••*•••♦•**•••»»•••♦•»»♦»•»»»•»»»»•••••**••**•*»•• 



0556OC 170127 000200 



SECT2D: LDFPS #200 



OM-t Plf^ CPU ExERCi:f« MACVll 

QKCE.PT i2-«A«-80 11:27 



F 12 

30A(1052) 12-«AR-80 11:30 PAGE 47-123 
T73 FLOATING POINT TEST 2 



SEQ 0U8 



0959 

0960 
0961 



096! 
0964 
0965 
0966 
0967 

0968 
0969 
0970 
0971 
097? 

0973 
0974 
0975 
0976 
0977 
0978 
0979 
0980 
0981 
0982 
0983 
0984 
0985 
0986 
0987 
0988 
0989 
0990 
0991 
0992 
0993 
0994 
0995 
0996 
0997 
0998 
0999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 



035604 
035610 
035614 
035622 
035650 
035654 
055656 

035644 
035650 
035656 
035662 
035670 

035674 
035676 
035704 
055710 
055714 

035722 
055726 
055754 
055756 
055744 
035750 
035752 

035760 
035764 
055772 
055774 
036002 
056006 

056014 
056016 
056024 
056050 
056054 



056042 
056050 
056052 
056060 
056066 
056074 
036100 
036104 
056112 
056116 

036124 
036126 



172537 
172457 
015757 
015757 
004767 
174102 
015757 

172557 
015757 
172457 
015757 
004767 

1 72402 
015757 
004767 
174157 
015757 

172457 
013737 
172500 
015757 
004767 
174102 
015757 

172437 
015757 
172500 
015757 
004767 
015757 

1 72402 
015737 
004767 
174157 
015757 



025757 
002005 
015757 
165757 
162757 
005457 
172457 
015757 
004767 
165757 

100002 
005437 



001552 
001562 
001526 
001550 
000506 



001552 
001526 
001562 
001550 
000442 



001466 
000562 
001502 
001464 

001562 
001550 

001462 
000322 



001352 
001526 

001462 
000264 
001464 



001466 
000506 
001512 
001464 



001470 
001464 
000065 
001466 
001502 
001552 
000220 
001534 



001464 



001464 
001462 



001464 001466 



001464 
001462 

001462 

001552 

001462 
001464 



001464 001466 



001462 
001464 
001470 

001462 

001 554 



001466 001470 



001466 
001466 
001466 



001462 
001464 



;D0 A*e 

LDF 
LDF 
liOV 
flOV 
JSR 
STF 
liOV 

.-NOW DO THE A-e 
LDF 
MOV 

LDF 
MOV 
JSR 

;NOW DO (A-»-8)»(A-e) 



a#$TMP0,AC1 
MTSTMPA.ACO 

afSREGO.airSACi 
MrsREGi .amco 

PCjFLTADD 
AC1.AC2 

airSACi,a4P$AC2 

a(r$TMF>0,AC1 

airsREGO,airtACi 

a#$TMP4.AC0 

atrSREGi .arSACO 

PCFLTSUB 



AC2,AC0 

airSAC2,air$Aco 

PC.FLTMPY 
ACl.a#FLTHP0 

airsACi,afSREG2 

a#$TMP4.AC0 

arSREGi ,anAco 

AC0,AC1 

airSAC0,»ruci 

PC.FLTMPY 
AC1.AC2 

airSACi.»rSAC2 

arsTMPO.ACO 
air$REG0.a#SAC0 

ACO.ACl 

airSACO,»rsAci 

PC-FLTMPY 

ay$ACi,»r$AC5 



LDF 
MOV 
JSR 
STF 
MOV 

.-NOW DO THE B»8 
LDF 
MOV 
LDF 
MOV 
JSR 
STF 
MOV 

;NOW DO THE A»A 
LDF 
MOV 
LDF 
MOV 
JSR 
MOV 

;NOW DO A»»2-6»»2 

LDF AC2,AC0 

MOV anAC2,»r$AC0 

JSR PC.FLTSUB 
STF ACl,a*FLTMPl 

MOV anACi,ar$REG5 

.-NOW CO«F>UTE THE RESULTS 
.•CALCULATE THE NUeER OF CORREC 

CMP afSAC2.anAC5 

BGE 2S 

MOV anAC5.a4rsAC2 
2$: SUB airsACi.anAC2 

SUB #S5..a«SAC2 

NEG anAC2 

LDF dTFLTMPO.ACO 

MOV air$REG2.anAco 

JSR PC.FLTSUB 

SUB a#iREG5.a#SACl 

8PL 1$ 
NEG a#$ACi 



;L0AD A OPERAND 
;LOAD B OPERAND 



ADD THEM 

SAVE IN AC2 

AND EXT EXPONENT 

LOAD OPERAND A 
AND EXT EXPONENT 
LOAD OPERAND B 

SUBTRACT THEM 

GET RESULT OF (A^B) 

FORM THE PRODUCT 

SAVE RESULT 

AND EXT EXPONENT 

LOAD OPERAND B 

6 OPERAND IS IN ACO 
AND EXT EXPONENT 

SAVE RESULT IN AC2 



.•LOAD OPERAND A 



.•EXECUTE THE MULTIPLY 
.•SAVE EXT EXPO OF A*A 

.GET B»8 
;A»A IN AC1 

;SAVE IN MEMORY 



T BITS 

DETERMINE WHICH EXP IS LARGER 
BRANCH IF AC2 LARGER 
PUT LARGEST IN AC2 



.-GET LEFT HAND SIDE 

.•SUBTRACT TO SEE HOW CLOSE THEY ARE 
.SUB EXT EXPONENTS 
.•ACTUAL EXPONENTS ARE ECXJAL 
.•MAKE SURE RESULT IS POSITIVE 



J 



I 



6 12 

Q<tC-€ POP 11/70 CPVJ EXEWCI.FR l^cni 50A{1052) i2-nW»-80 11:30 PAGE <.7-124 
0KCE.P11 12-m«-80 11:27 T73 FLOATING POINT TEST 2 



SEQ 0H9 



1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

10^9 

1030 

1051 

1052 

1055 

1034 

1035 

1036 

1037 

1038 

1039 

10<.0 

10^1 

1042 

1045 

104A 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 



036132 


023737 


001466 


001464 


1$: 


CMP 


036140 


005401 








BLE 


036142 


104016 








ERROR 


036144 


172537 


001352 




SECT3D: 


LDF 


036150 


172437 


001362 






LDF 


0361 '54 


013737 


001326 


001464 




MOV 


036162 


01373"' 


001330 


001462 




MOV 


036170 


004767 


000120 






JSR 


036174 


004767 


000072 






JSR 


036200 


174137 


001502 






STF 


036204 


013737 


001464 


001332 




MOV 


036212 


172437 


001352 






LDF 


036216 


174037 


001512 






STF 


056222 


013737 


001326 


001462 




MOV 


056250 


013737 


001326 


001334 




MOV 


036236 


004767 


000074 






JSR 


056242 


163737 


001326 


001464 




SUB 


056250 


100002 








BPL 


036252 


005437 


001464 






NEG 


036256 


022737 


000066 


001464 


1$: 


CMP 


036264 


003505 








BLE 


056266 


104016 








ERROR 


056270 


000503 








BR 



airuc2.a#$ACi 

SECT3D 
16 



.•RESULTS WITHJN RANGE 
.BRANCH IF YES 
.•RESULTS WRONG 



036272 063737 

036300 171100 

036302 012746 

036306 004737 

036312 000207 



001462 001464 FLTMPy: 



100400 
061020 



1$: 



036314 163737 

036322 174500 

036324 012746 

036330 004737 

036334 000207 



001462 001464 FLTDIV: 



100400 
061020 



1$: 



.S8TTL 



*r$TMP0.AC1 
dnTMP4.AC0 
»r$REG0,a#$AC1 

airsREGi ,a#$AC0 

PC. FLTDIV 

PC. FLTMPY 

ACl.a»FLTMPO 

»r$AC1.»rSREG2 

anTMPO.ACO 

ACO.a»FLTMPl 

anREGO.afSACO 

»r$REG0.»rSREG3 

PC.FLTSUB 

»r$REG0.»r$AC1 

1$ 

afSACi 
#54..a(r$ACi 

RELE8 
16 

RELE8 



.-LOAD OPERAND A 
;ANO OPERAND B 



;G0 DIVIDE THEM 
.-MULTIPLY RESULT Br B 
.•SAVE RESULT 

.■LOAD OPERAND A 
.•SAVE INCASE TYPE OUT 



.■SUBTRACT RIGHT AND LEFT HAND SIDES 

;SEE IF RESULT OK 

.■ENSURE DIFFERANCE IS POSITIVE 

.•RESULTS WITHIN 2 BITS? 
.•BRANCH IF YES 
.•RESULTS WRONG 



,S8TTL FLOATING POINT MULTIPLY ROUTINE 

THIS ROUTINE MULTIPLIES THE CONTENTS OF ACO AND AC1 
AND LEAVES THE RESULT IN AC1. IT ALSO TAKES CARE OF 
THE SOFTWARE EXPONENTS THAT APE KEPT IN fACO AND $AC1 



ADD afSAco.amci 

MULF AC0-AC1 

MOV #100400. -(SP) 

JSR PC.atEXPEXT 

RTS PC 



.ADD SOFTWARE EXPONENTS 

;D0 THE MULTIPLY 

;PUT CONTROL WORD ON STACK 

.•CALCULATE EXT EXPONENT 

.■RETURN 



S8TTL FLOATING POINT DIVIDE ROUTINE 

• THIS ROUTINE DIVIDES THE CONTENTS OF ACl BY ACO 

• AND LEAVES THE RESULT IN ACl . 



SUB MrsAco.amc! 

DIVF ACO, ACl 

MOV #100400. -(SP) 

JSR PCaiTEXPEXT 

RTS PC 



.-ADJUST SOFTWARE EXPONENTS 
.-EXECUTE THE DIVIDE 
;PUT CONTROL WORD ON STACK 
.-CALCULATE EXT EXPONENT 
.-RETURN 



FLOATING POINT ADO ROUTINE 

THIS ROUTINE ADDS THE CONTENTS OF ACO TO ACl. 
THIS CAN ONLY BE DONE IF THE SOFTWARE EXPONENTS 
ARE CLOSE ENOUGH TOGETHER SUCH THAT AN ADJUSTMENT 
OF THE REAL EXPONENT LEAVES A NON-ZERO NLWBER. 



056A06 
036<.12 
036A16 

036A50 
036A32 
036A54 
056^56 



'FQKCE.P11 



11071 
'1072 
n075 
11074 
n075 
11076 
n077 
11078 
11079 
11080 
11081 
11082 
1 1083 
n08^ 
11 OSS 
11086 
11087 

no88 

HQS'? 
11090 
11091 
11092 
1 1095 
1109^, 
11095 
'1096 
11097 
11098 
11099 

moo 

11101 
11102 
11103 
11104 
11105 
11106 
11107 
11108 
m09 
11110 

(1) 
t1) 
l1) 

(1 ) 
(1) 
11111 
'1112 
1111 3 

niu 

11115 

r 116 
ni26 
f3) 

(A) 



M/70 (.Pu EXEHCi:fR MAC*11 30A(1052) 
12-*VW-80 11:27 FLOATING 



12-«Afi-80 11:50 
POINT ADD ROUTINE 



H 12 
PAGE 



47-125 



SEO 0150 



056556 


010667 


0001 54 


FLTSU8: 


MOV 


056542 


023737 


001462 001464 


FLTADD: 


CMP 


056550 


003016 






BGT 


056352 


00 ■'454 






BEO 








.ACCinJLATOR 1 


056554 


01 5702 


001464 




MOV 


056360 


163702 


901462 




SUB 


036564 


020227 


000071 




CMP 


056570 


002003 






BGE 


056572 


005402 






NEC 


056374 


176402 






LDEXP 


056376 


000422 






BR 


036400 


176427 


177703 


7$: 


LDEXP 


05640^. 


000417 






BR 



SP.SUBfLG 
a«iAC0,a4rSACl 

1$ 

2S 

15 LARGER THAN 
anACl.R2 
afSAC0,R2 
R2,#57. 
7% 

R2 

R2.AC0 
2S 

*-75,AC0 
2S 



.•SET SUBTRACT FLAG 
.•CHECK SOFTWARE EXPONENTS 



ACCinJLATOR 0 

GET OPERAND B SOFTWARE EXP 
GET DIFFERENCE IN SOFTWARE EXP'S 
EXP WITHIN OBL PREC RANGE? 
BRANCH IF ADD NOT REQUIRED 
RESULT IS OPERAND B 

.RELOAD THE EXPONENT 

;FAKE EXPONENT SO HARDWARE 
.•WILL DETECT OUT OF RANGE 



01 3702 
163702 
013737 
020227 
002003 
005402 
1 76502 
000402 



001462 
001464 

001462 00K64 
000071 



;ACCUHULAT0R 0 IS LARGER THAN ACCLfM.AT0R 1 



IS: 



MOV 
SUB 
MOV 
CMP 
BGE 
NEG 
LDEXP 
BR 



airSAco.R2 

a*$AC1,R2 

amco.anAd 



;GET SOFTWARE EXP OF OPERAND A 
;GET DIFFERENCE IN EXP'S 
.•MAKE SOFTWARE EXP'S EQUAL 
R2.#57. ;EXP WITHIN DBL PREC RANGE? 
4S .-BRANCH IF NO 

R2 

R2,AC1 .RELOAD THE EXPONENT 

2S 



;ACCl/1ULAT0R 0 IS MUCH LARGER THAN ACCLMULATOR 1 SO RESULT IS 0 



036440 


176527 


177703 


4S: 


LDEXP 


*-75,ACl 


FAKE EXPONENT SO HARDWARE 
•WILL DETECT OUT OF RANGE 


056444 


005767 


000026 


2$: 


TST 


SIBFLG 


•ADD OR SUBTRACT? 


036450 


001402 






BEO 


5S 


■BRANCH IF ADD 


056452 


173100 






SUBf 


AC0.AC1 




036454 


000401 






BR 


6$ 




036456 


1721C0 




5$: 


ADDF 


AC0,Ai.1 


•EXECUTE THE ADD 


036460 


012746 


100400 


6S: 


MOV 


*1 00400, -(SP) 


•PUT CONTROL WORD ON STACK 


056464 


004737 


061020 




JSR 


pc.arExPExT 


•CALCULATE EXT EXPONENT 


036470 


005067 


000002 


3$: 


CLR 


SLBFLG 


■INIT SUBTRACT FLAG 


056474 


000207 






RTS 


PC 


•RETURN 


056476 


000000 




SU8FLG: 


.WORD 






036500 


000004 




RELE8: 


SCOPE 






036502 


010702 






MOV 


PC.R2 




036504 


062702 


000012 




ADD 


#1^.R2 




036510 


012707 


044042 




MOV 


#RELOC.PC ;G0 RELOCATE PROGRAM CODE 


056514 


000000 




REL88: 


.WORD 


0 





.-8888888888888 LAST ADDRESS OF CODE TO BE RELOCATED 88888888888 



036516 005757 001552 

056522 001002 

036524 000167 004060 
036530 



OOMFPT; 



TST 
BNE 
JMP 



airKSiiE 

OOMFPT 
ENOCIS 



IS THIS A KBII-E OR (CBII-EM? 
BR IF IT IS 

SKIP THIS TEST IF NOT. MFPT AND CIS NOT THERE 



•TEST 74 CHECK MFPT INSTRUCTION (KB11-E/EM ONLY) 

THE MFPT INSTRUCTION IS NOT AVAILABLE ON THE KBIl-fi/C/CM BUT 
• IF THIS IS A KB11-E/EM THIS TEST IS RUN. MFPT RETURNS 



CEOKL-E POP 
CFQKCE.P11 



(A) 
(4) 
(A) 
<{,) 
<i,) 
(I) 
<2) 
(?) 
(?) 
(?) 
(?) 

ir?7 

f 1 ) 
( 1 ) 
( 1 ) 

' 1 ) 
( 1 ) 
f 1 ) 
' ' ) 
n ) 
(1) 
(1) 

t V 

(1) 
in?8 
m?9 
ni50 

11131 
11132 
11135 
ni?A 

1113S 
11136 
11137 
11138 
11139 

nuo 
nui 

11U2 
11U3 

11U5 
(3) 
(3) 
(?) 
(?) 
(?) 
(?) 
•1U6 
11U7 

11U8 
11 U9 
11150 
11151 



11/70 CPU EXERCi:fR 
1?-«AR-80 n:27 



056550 01?767 

056556 000004 

056540 n?737 

056546 015757 



056554 
056556 
056560 
056564 
036566 
05657? 
056576 
05660? 
036610 
036616 
05662? 
056624 
056630 
056654 
036640 
05664? 
036646 
036654 
056656 
036662 
036664 
036666 
036670 
036674 
056700 
036702 
036706 
056710 
056714 



056714 
056716 
056724 
056732 
03o740 
056746 

056754 
036762 



010700 
005740 
010057 
010700 
162700 
010057 
010757 
062757 
015737 
105737 
001402 
000167 
012703 
105737 
001402 
052703 
032737 
001402 
052703 
000007 
020003 
001405 
010337 
010037 
104017 
105737 
001002 
000167 



000004 
112737 
013737 
013767 
015767 
062757 

016757 
016757 



000074 
00125? 



001610 

056566 
001604 
001 ?6? 
000050 
001262 
001600 

003742 
000002 
001555 

000400 
020000 

001000 



001552 
001554 

001555 

003656 



000075 
001252 
001620 
001622 
000056 

002252 
002246 



I 12 

hACm 3OA(1052) 12-mR-80 11-50 PAGE 47- V6 

T74 CHECK MFPT INSTRUCTION (KJBII-E/EW ONtr) 

;• DATA TO RO IN THE FOLLOWING FORMAT: 

;• BIT 0 - 1 INDICATES 11/44 CPU 

;• BIT 1 - 1 INDICATES K811-E/EM CPU (SHOULD 

;• BIT 8 - 1 INDICATES CISP PRESENT 

BIT 9 - 1 INDICATES FP PRESENT 



SfO 0151 



ALWAYS COME UP IN THIS TEST- 



000001 142640 



001252 
177570 



001262 
001260 



001252 
177570 
002272 
002266 
001262 

001620 
001622 



MOV 

TST74: SCOPE 

Move 

MOV 

.S8TTL 
■9999999999999 

REL9: 



*1,$TIMES 



;;D0 1 ITERATION 



#74.ar$TSTN« 
a#$TSTNM.*rDISPLAr 



.•LOAD TEST NLMBER 
.•.DISPLAY TEST NUMBER 



START OF SECTION 9 
FIRST ADDRESS TO BE RELOCATED 999999999 
GET PC 

RO CONTAINS THE ADDRESS OF REl9 
SAVE 

GET CURRENT PC 
SUBTRACT RELOCATION FACTOR 
SAVE RELOCATION FACTOR 
SET LOOP ADDRESS 
ADJUST 

I 

8R IF TEST CODE TO 9E EXECUTED 



001550 1$: 



2$: 



DONE 7: 



DOCIS: 



MOV 


PC.RO 


TST 


-(RO) ;l 


MOV 


RO.afTFRSTAO 


MOV 


PC.RO 


sue 


*.,R0 


MOV 


R0.a*FACTOR 


MOV 


PC.anLPERR 


ADD 


4r30.anLPERR 


MOV 


aurSLPERR.atrSLPADR 


TSTB 


aKTNEXEC ;l 


BEO 


.♦6 


JMP 


RELE9 


MOV 


#2.R3 


TSTB 


arc ISP 


BEQ 


1$ ;l 


BIS 


#400.R3 ;( 


BIT 


*20000,a«)PT.CP 


BEQ 


2$ ;l 


BIS 


#1000.R3 ;l 


MFPT 


; 


CMP 


R0.R3 ;l 


BEO 


DONE 7 


MOV 


R3.anTMP0 


MOV 


RCaniMpi 


ERROR 




TSTB 


a#cisp 


BNE 


DOCIS 


JMP 


RELE9 



R3 IS DATA PATTERN. BIT 1 WILL ALWAYS BE SET 
CISP FOUND? 
BR IF NOT 

BIT 8 SHOULD BE SET FOR CISP 

;FP FOUND? 
8R IF NOT 

BIT 9 WILL BE SET FOR FP 
EXECUTE INSTRUCTION 
«*TCH? 
DONE IF SO 

SET UP EXPECTED (GOOD) DATA 
SET UP RECIEVED (BAD) DATA 
ERROR PRINTOUT 

IS CISP PRESENT? 
BR IF IT IS 

SKIP CIS TEST BUT RELOCATE SECTION FOR MFPT 



»TEST 75 



COWERCIAL INSTRUCTION SET TEST 



TST75: 



SCOPE 

Move *75,anTSTi#i .-load test number 

MOV aurSTSTffl.aifOISPLAV ; .-DISPLAY TEST NUWER 

MOV aff$LONUM,SAVRNL ;SAVE SEED LOU 

MOV adrSHINUn.SAVRNH ;SAVE SEED HIGH 

ADD 4r30.,anLPERR ;ADJUST LOOP ON ERROR POINTER 

.START OF TEST TO MODIFY ABSOLUTE ADDRESSES WHEN RELOCATiNG 

MOV SAVRNL.arSLONin .RESTORE SEED LO 

MOV SAVRNH,a#$HINlf4 .-RESTORE SEED HI 



QKC-[ PDP 11/70 CPt EXE«Cl^fR MACi^ll 
fOtcCE.PII 12-WAR-80 '1:27 



30A(1052) 
T75 



12-nAR-80 
COWERCIAL 



J 12 

11:50 PAGE h7-127 
INSTRUCTION SET TEST 



SEQ 0152 



niS2 
ni55 

1156 
1157 
1158 
1159 
11160 
11161 
1162 
11165 
116A 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
117<. 
1175 
1176 
11177 
11/8 
11179 
1180 
1181 
11182 
1183 
1 Ift^ 
11185 
11186 
11187 
1188 
11189 
1190 
11191 
11192 
11193 
I119« 
1195 
11196 
11197 
11198 
11199 
11200 
11201 
1202 
11203 
I120« 
11205 
1206 
n207 



036770 
03677A 
037000 
037002 
037004 
037006 
037012 
0370K 
037020 

037022 
037026 
037032 
037036 
0370A2 
0370A6 
037052 
03705A 
037060 



012700 
063700 
012001 
00U07 
010102 
063702 
011112 
063712 
000767 

016700 
016701 
062701 
004737 
013710 
042710 
012021 
020067 
0C2766 



041352 
001604 



001604 
001604 



002302 
002276 
000310 
060562 
001620 
100200 

002164 



MOV WfFTAB.RO 

ADD a^FACTOR.RO 

IS: MOV (R0)*.R1 

8EQ 3t 

MOV R1 .R2 

ADD a#FACT0R,R2 

MOV (R1).(R2) 

ADD a«rFACT0R,(R2) 

BR 1$ 

.SET PASS COUNT AND GET 

3$: MOV BUFFAD.RO 

MOV BUFF AD, R1 

ADD #200.. R1 

4S: JSR PC.anRAND 

MOV »riLONUM.(RO) 

SIC #100200. (RO) 

MOV (R0)*,(R1)* 

CMP RO.DST.IA 

BLT 4$ 











.-TEST 


CMPC INSTRUC 


037062 


004767 


001 560 


COMP; 


JSR 


PC. SETUP 


037066 


076144 






CMPCI 




037070 


041236 




SRC1: 


.WORD 


SRC. ID 


037072 


041242 




DST1 : 


.UIORD 


DST.1D 
1 


037074 


000040 






.WORD 


037076 


001403 






BEQ 


MOVE 


037100 


004767 


001602 




JSR 


PC.CISER 


037104 


104020 






ERROR 
.•MOVE 


20 

CHAR STRING 


037106 


004767 


001534 


MOVE: 


JSR 


PC. SETUP 


037112 


076067 






L3D7 




037114 


041236 




SRC2: 


.WORD 


SRC. ID 


037116 


041242 




DST2: 


.WORD 


DST.1D 


037120 


041320 




CHAR1 : 


.WORD 


CHAR 


037122 


076030 






MOVC 




037124 


076144 






CMPCI 




037126 


041236 




SRC 3: 


.WORD 


SRC. 10 


037130 
037132 


041242 




DST3: 


.WORD 


DST.1D 


000040 






.WORD 


037134 


001403 






BEQ 


SCAN 


037136 


004767 


001544 




JSR 


PC.CISER 


037142 


104020 






ERROR 


20 










.SCAN. MOVC 


037144 


004767 


001476 


SCAN: 


JSR 


PC. SETUP 


037150 


112767 


000001 


002124 


M0V8 


#1. SET. ID 


037156 


076142 




NX SCAN: 


SCANCI 




037160 


041236 




SRC4: 


.WORD 


SRC. ID 


037162 


041302 




SET1: 


.WORD 


SET. ID 


037164 


001003 






BNE 


FNDSCN 


037166 


106367 


002110 




ASL8 


SET. ID 


037172 


000771 






BR 


NXSCAN 


037174 


010067 


002036 


FNDSCN; 


MOV 


R0.SRC.1D 


037200 


010167 


002034 




MOV 


R1.SRC.1A 


037204 


076130 






MOVCl 




037206 


041236 




SRC 5: 


.WORD 


SRC. ID 



GET OFFSET TO OFFSET TABcE 
ADD FACTOR TO GET ADDRESS OF TABLE 
GET OFFSET OF STRING 
DONE IF OFFSET = 0 
SAVE R1 

ADD FACTOR TO OFFSEI 
MOVE ORIGINAL DATA TO ADDRESS 
ADD FACTOR FOR ADDRESS 
GO MODIFY NEXT ADDRESS 
RANDOM DATA 

SET SRC AODRES FOR DATA 
SET DST ADDRESS FOR DATA 
ADJUST 

GET RANDOM NlTBER 
STORE NlfBER IN SOURCE ONE 
MAKE NlfGER BETWEEN 0 AND 177 
STORE NlfBER IN DST FOR TEST CMPC 
DONE FILLING SOURCE ONE VET 
NO GET NEXT RANDOM NLI«ER 
VES GO TO FIRST TEST 
COMPARE SRC 1 TO SRC 1 

SET UP DESCRIPTORS 

COMPARE STRINGS 
SOURCE ONE DESCRIPTOR 
DST DESCRIPTOR 
FILL WITH SPACES 
NO ERROR GO TO NEXT TEST 
GET ERROR DATA 
REPORT ERROR 



SET STRING DESCRIPTORS 
LOAD DESC INTO REG 

THIS LOCATION MODIFIED WHEN TEST RELOCATES 
THIS LOCATION MODIFIED WHEN TEST RELOCATES 

MOVE STRING 
COMPARE SRC AND DST 

THIS LOCATION MODIFIED WHEN TES^ RELOCATES 
THIS LOCATION MODIFIED WHEN TEST RELOCATES 
FILL WITH SPACES 
IF EQUAL NEXT TEST 
GET ERROR DATA 
REPORT ERROR 

SET UP DESCRIPTORS 

SET CHAR MASK FOR SPAN AND SCAN 

SCAN 

SOURCE DESC 
PTR TO CHAR SET DESC 
CHAR FOUND MOVE STRING 
NOT FOUND SHIFT MASK 
LOOK AGAIN 

MOV NEW ADDRESS TO DESC 

MOV NEW LENGTH TO DESC 

MOV TEXT STARTING WITH CHAR fOkH> 

THIS LOCATION MODIFIED WHEN TEST RELOCATES 



■QK'-E POP 11/70 CPU EXfRCi:fR MACYll 
= QKCE .P11 12-f1AR-80 ^^:27 



30A(1052) 
T75 



1 2-mR-80 
COMMERCIAL 



K 12 

11:30 PAGE 47-128 
INSTRUCTION SET TEST 



SfO 0155 



'1208 
11209 
1210 
11211 
11212 
11215 
12U 
121S 
1216 
11217 
11218 
1219 
1220 
11221 
11222 
11225 
1224 
1225 
n226 
11227 
11228 
1229 
1250 
1251 
11232 
11253 
1254 
1235 
11236 
1237 
11238 
11239 
11240 
11241 
11242 
11243 
1244 
11245 
11246 
11247 
1248 
1249 
11250 
11251 
11252 
11253 
11254 
11255 
1256 
1257 
1258 
1259 
11260 
'1261 
1262 
1263 



057210 
057212 
057214 
037216 
057220 
057222 
057224 
037226 
037232 

057234 
037240 

037246 
037250 
037252 
037254 
03^256 
037260 
037262 
037266 
037270 
037274 
037500 
037502 
037504 
057506 
057510 
037512 
037514 
037316 
037320 
037322 
037524 
057526 
057552 

057554 
037540 
057542 
057344 
057546 
057550 
057554 
057562 
057364 
057366 
057570 
057572 
057574 
057576 
057402 

057404 
037410 
057412 



041242 
000040 
076144 
041256 
041242 
000040 
001405 
004767 
104020 

004767 
012767 

076067 
041256 
0^.1242 
041502 
076043 
001003 
106367 
000767 
010067 
010167 
076067 
041256 
041242 
041520 
076050 
076067 
041256 
041242 
041520 
076044 
001405 
004767 
104020 

004767 
076027 
041236 
041246 
076045 
010167 
012767 
076067 
041236 
041246 
041320 
076044 
001403 
004767 
104020 

004767 
076131 
041256 



001454 



001406 
000001 



002054 



002014 

001 742 
001 740 



001554 
001506 



001664 
000031 



001654 



001 304 
001236 



DST4: 


.WORD 


DST.1D 


.-THIS LOCATION MODIFIED WHEN 


TEST 


RELOCATES 


.WORD 




.•FILL WITH SPACES 








CMPCI 




.•COMPARE SRC AND DST 






SRC6; 


.WORD 


SRC. ID 


.•THIS LOCATION MODIFIED WHEN 


TEST 


RELOCATES 


DST5: 


.WORD 


DST.1D 


.•THIS LOCATION MODIFIED WHEN 


rfST 


RELOCATES 




.WORD 


t 


;FILL WITH SPACES 








BEO 


SPAN 










JSR 


PC.CISER 


;NOT EQUAL GET ERROR DATA 








ERROR 


20 


.•REPORT ERROR 








.-SPAN AND MOVC 








SPAN: 


JSR 


PC. SETUP 


.•SETUP DESC 








MOV 


#1. SET. ID 


;SET MASK 






NX SPAN: 


L5D7 




;LOAD DESC 






SRC 7: 


.WORD 


SRC. ID 


;THIS LOCATION MODIFIED WHEN 


TEST 


RELOCATES 


DST6: 


.WORD 


DST.1D 


.DUMMY DESC TO GET SET. ID TO 


R4 




SET2: 


.WORD 


SET. ID 


;THIS LOCATION MODIFIED WHEN 


TEST 


RELOCATES 




SPANC 




.•FIND CHAR 








BNE 


FNDSPN 


.-FOUND MOVE STRING 








ASLB 


SET. ID 


.-NOT SHIFT MASK 








BR 


NXSPAN 


;AM> LOOK AGAIN 






FNDSPN: 


MOV 


R0.SRC.1D 


.-GET ADDRESS 








MOV 


R1.SRC.1A 


.SET LENGTH 








L5D7 




.LOAD DESC 






SRC8: 


.WORD 


SRC. ID 


.-THIS LOCATION MODIFIED WHEN 


TEST 


RELOCATES 


DST7: 


.WORD 


DST.1D 


.•THIS LOCATION MODIFIED WHEN 


TEST 


RELOCATES 


CHAR2: 


.WORD 


CHAR 










MOVC 




.-MOVE STING BEGIfMING WITH CHAR 






L5D7 




.-LOAD DESC 






SRC9: 


.WORD 


SRC. ID 


;THIS LOCATION MODIFIED WHEN 


TEST 


RELOCATES 


DST8: 


.WORD 


DST.1D 


.THIS LOCATION MODIFIED WHEN 


TEST 


RELOCATES 


CHAR5: 


.WORD 


CHAR 


.THIS LOCATION MODIFIED WHEN 


TEST 


RELOCATES 




CMPC 




.COMPARE SRC AND DST 








BEO 


fWTCH 


.•STRINGS EQUAL NEXT TEST 








JSR 


PCCISER 


;NOT EQUAL GET ERROR DATA 








ERROR 


20 


.REPORT ERROR 








.•MATCH 


AND MOVE REVERSE 








MATCH: 


JSR 


PC, SETUP 


.•SET UP DESC 








L2D7 


.-LOAD DESC INTO REGISTERS 






SRC10: 


.WORD 


SRC. ID 


.•SOURCE POINTER 






08J1: 


.WORD 


OBJ. ID 


.-OBJECT POINTER 








MATC 




.-MATCH STRINGS 








MOV 


R1,SRC.1A 


.-GET NEW SRC ADDRESS 








MOV 


**D25.SRC.1D 


.-GET NEW SRC LENGTH 








L5D7 


.-LOAD DESCRIPTORS 






SRC11: 


.WORD 


SRC. ID 


.-THIS LOCATION MODIFIED WHEN 


TEST 


RELOCATES 


DST9: 


.WORD 


OBJ. ID 


.-THIS LOCATION MODIFIED WHEN 


TEST 


RELOCATES 


CHAR4: 


.WORD 


CHAR 


.-THIS LOCATION MODIFIED WHEN 


TEST 


RELOCATES 




CMPC 




.-COMPARE RESULTS 








BEO 


MOVER 


.-FOtWO NEXT TEST 








JSR 


PCCISER 


.•ERROR DATA 








ERROR 


20 


.•REPORT ERROR 








.-MOVE 


REVERSE 








MOVER: 


JSR 


PC. SETUP 


.SET UP DESC 








MOVRCI 


.MOVE RE VERGE 






SRC12: 


.WORD 


SRC. ID 


;THIS LOCATION MODIFIED WHEN 


TEST 


RELOCATES 
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11264 


037414 


041242 




DST10: 


.WORD 


DST.1D 


11265 


037416 


000040 






.WORD 


1 V66 


037420 


07606^ 






L5D7 




11267 


037422 


041242 




DST11 : 


.WORD 


DST.1D 


11268 


057424 


041242 




DST12: 


.yORO 


DST.1D 

• 


11269 


057426 


000040 






.WORD 


11270 


057450 


076051 






MOVRC 




11271 


057452 


076067 






L5D7 




11272 


057434 


041256 




SRC15: 


.WORD 


SRC.1D 


11273 


0374 56 


041242 




DST15: 


.WORD 


DST.1D 


11274 


037440 


000040 






.WORD 


11275 


057442 


076044 






CMPC 




1 276 
11277 


057444 


001405 






BEO 


MOVT 


057446 


004767 


001254 




JSR 


PCCISER 


11278 


057452 


104020 






ERROR 


20 


11279 










.MOVE TRANSLATE 


n?80 


057454 


004767 


001166 


MOVT: 


JSR 


PC, SETUP 


11281 


057460 


076152 






MOVTCI 




11282 


057462 


041256 




SRC14: 


.WORD 


SRC. ID 


11283 


057464 


041242 




DST14: 


.WORD 


DST.1D 


11284 


057466 


000040 






.WORD 


11285 


057470 


040776 




TRANS 1 : 


.WORD 


TRANS 


11286 


037472 


076152 






MOVTCI 




11287 


057474 


041242 




DST15: 


.WORD 


DST.1D 


11288 


057476 


041242 




DST16: 


.WORD 


DST.1D 


11289 


037500 


000040 






.WORD 


11290 


057502 


040776 




TRANS2: 


.WORD 


TRANS 


11291 


057504 


076144 






CMPCl 




11292 


057506 


041256 




SRC15: 


.WORD 


SRC. ID 


11293 


037510 


041242 




DST17: 


.WORD 


DST.1D 

t 


11294 


057512 


000040 






.WORD 


1295 


057514 


001405 






BEO 


LOCATE 


1296 


057516 


004767 


001164 


ERR4: 


JSR 


PCCISER 


11297 


057522 


104020 






ERROR 


20 


1298 










.•LOCATE 


AND MOVE CHARACTER 


1299 


057524 


004767 


001116 


LOCATE : 


JSR 


PC, SETUP 


1300 


037530 


076140 




NXLOC: 


LOCCI 


11301 


037532 


041256 




SRC 16: 


.WORD 


SRC. ID 


11302 


057554 


000040 




LOCCHR: 


.WORD 


1503 


057556 


001005 






BNE 


FNDLOC 


1504 


037540 


105267 


177770 




INCB 


LOCCHR 


1505 


037544 


000771 






BR 


NXLOC 


1506 


057546 


010067 


001464 


FNDLOC: 


MOV 


R0,SRC.1D 


11507 


057552 


010167 


001462 




MOV 


R1,SRC.1A 


11308 


037556 


016703 


001462 




MOV 


DST.1A,R5 


11309 


037562 


016702 


001454 




MOV 


DST.1D,R2 


11310 


057566 


012704 


000040 




MOV 


0' ,R4 


11311 


057572 


076050 






MOVC 


11312 


057574 


076144 






CMPCI 




11515 


057576 


041236 




SRC17: 


.WORD 


SRC. ID 


11314 


057600 


041242 




DST18: 


.WORD 


DST.1D 
t 


11315 


057602 


000040 






.WORD 


1516 


057604 


001405 






BEO 


SKIP 


1517 


057606 


004767 


001074 




JSR 


PCCISER 


11318 


037612 


104020 






ERROR 


20 



1319 .SKIP AND MOVE CHAR STRING 



THIS LOCATION MODIFIED WHEN TEST RELOCATES 
FILL WITH SPACES 
LOAD DESCRIPTORS 

THIS LOCATION MODIFIED WHEN TEST RELOCATES 
THIS LOCATION MODIFIED WHEN TEST RELOCATES 

MOVE REVERSE AGAIN 
LOAD DESC FORCQMPARE 

THIS LOCATION MODIFIED WHEN TEST RELOCATES 

THIS LOCATION MODIFIED WHEN TEST RELOCATES 

FILL WITH SPACES 

COMPARE STRINGS 

EQUAL NEXT TEST 

GET ERROR DATA 

REPORT ERROR 

SET UP DESC 
MOVt TRANSLATE 
SHC DESC PTR 
DEST DESC PTR 
FILL WITH SPACES 
: TRANSLATE TABLE ADDRESS 
;MOVE TRANS AGAIN 

ITHIS LOCATION MODIFIED WHEN TEST RELOCATES 
;THIS LOCATION MODIFIED WHEN TEST RELOCATES 
;FILL WITH SPACES 

ITHIS LOCATION MODIFIED WHEN TEST RELOCATES 
'COMPARE SRC AND DST 

•THIS LOCATION MODIFIED WHEN TEST RELOCATES 
;THIS LOCATION MODIFIED WHEN TEST RELOCATES 
;FILL WITH SPACES 
;STRINGS EQUAL NEXT TST 
;GET ERROR DATA 
;REPORT ERROR 

;SETUP DESCIPTORS 
; LOCATE CHARACTER 

:THIS LOCATION MODIFIED WHEN TEST RELOCATES 

; FOUND MOVE STRING 
;NOT FOUND INC CHAR FOR SEARCH 
;LOOK AGAIN FOR NEW CHAR 
;ADDRESS OF CHAR FOUND TO SCR.1 
: LENGTH OF STRING 
;MOVE DST ADDRESS TO R2 
;MOVE STRING LENGTH TO R3 
;FILL CHAR 

;MOVE STRING BEGINING WITH CHAR FOUND 
; COMPARE SOURCE AND DEST 

;THIS LOCATION MODIFIED WHEN TEST RELOCATES 
iTHIS LOCATION MODIFIED WHEN TEST RELOCATES 
;FILL WITH SPACES 
:STRINGS EQUAL NEXT TEST 
;NOT EQUAL ERROR 
; REPORT ERROR 



CEQKC-E POP 11/70 CPU EXERCISER MACvH 
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11320 

11321 

11322 

11323 

11324 

11325 

11326 

11327 

11328 

11329 

11330 

11331 

11332 

11333 

11334 

11335 

11336 

11337 

11338 

11539 

11340 

11541 

11542 

11545 

11344 

11545 

11546 

11547 

11348 

11349 

11350 

11551 

11352 

11353 

11354 

11555 

11556 

11557 

11358 

11559 

11560 

11561 

11362 

11363 

11564 

11365 

11366 

11367 

11568 

11569 

11570 

11371 

11372 

11573 

11374 

11375 



057614 
037620 
057622 
057624 
057626 
057630 
057654 
057656 
057642 
037646 
037650 
037652 
037654 
057656 
037660 
037662 
057664 
037666 
037670 
037672 
037676 



057700 
037704 
057710 
057714 
037716 
057722 
037726 
037730 
037732 
037734 
037756 
037740 
037742 
037744 
037746 
037750 
037754 
037756 
037760 
037762 
037764 
037770 
037774 
040000 
040004 
040010 
040014 
040020 
040022 

040024 
040026 
040030 



004767 
076141 
041256 
000040 
001005 
005267 
000771 
010067 
010167 
076130 
041236 
041242 
000040 
076067 
041256 
041242 
041520 
076044 
001405 
004767 
104020 



016700 
016705 
062705 
005002 
012703 
063703 
011001 
005004 
042301 
022301 
002001 
161301 
005723 
050102 
005204 
022704 
002366 
010220 
020500 
103354 
012701 
063701 
012702 
063702 
042711 
052711 
062701 
020102 
103770 

076152 
041252 
041252 



001026 



177770 

001374 
001372 



001010 



001424 
001420 
000070 

041176 
001604 



000004 



041252 
001604 
041276 
001604 
070000 
010000 
000004 



50A(1052) 
T75 

SKIP: 
UXSKIP: 
SRC18: 
SKPCHR: 



12-mR-80 
COWERCIAL 



n 12 

11:30 PAGE 47-13 
INSTRUCTION SET TE 



FNDSKP: 



SRC19: 
DST19: 



SRC20 
DST20 
CHAR5 



JSR 
SKPCI 
.WORD 
.WORD 
BNE 
INC 
BR 
MOV 
MOV 
MOVCI 
.WORD 
.WORD 
.WORD 
L3D7 
.WORD 
.WORD 
.WORD 
CMPC 
BEO 
JSR 
ERROR 



PC. SETUP 
SRC. ID 

t 

FNOSKP 

SKPCHR 

NXSKJP 

R0.SRC.1D 

R1,SRC.1A 

SRC. ID 
DST.1D 



SRC. ID 
DST.1D 
CMAR 



DECDAT 
PCCISER 
20 

.•DECIMAL ARITHMETIC TESTS 
.SETUP DECIMAL DATA 



DECDAT: MOV BUFFAD.RO 

MOV BUFF AD. R5 

ADD #56. ,R5 

1$: CLR R2 

MOV *MSKTAB.R3 

ADD »rFACT0R,R3 

MOV (RO) ,R1 

CLR R4 

2$: BIC (R3)+.R1 

CMP (fi3)+,Rl 

BGE 3S 

SUB (R3).R1 

3$: TST (R3)* 

BIS R1.R2 

INC R4 

CMP #4.R4 

BGE 2S 

MOV R2.(R0)+ 

CMP R5,R0 

BHIS 1$ 

MOV #A.DSC,R1 

ADD a#FACT0R.R1 

MOV /rO.DSC.R? 

ADD aiVFACT0R.R2 

4$: BIC #070000. (R1) 

BIS #10000. (R1) 

ADD #4.R1 

CMP R1 .R2 

BLO 4$ 

.•TEST COMPARE NUMERIC 
CMPNI 

A1: .WORD A. DSC 

A2: .WORD A. DSC 



SEO 015^ 

SETUP DESCRIPTORS 
SKIP CHAR 

THIS LOCATION MODIFIED WHEN TEST RELOCATES 

CHAR FOUND GO MOVE STRING 

NOT f(XH> INC CHAR 

LOOK AGAIN 

GET NEW SRC ADDRESS 

NEW SOURCE LENGTH 

MOVE STRING 

THIS LOCATION MODIFIED WHEN TEST RELOCATES 

THIS LOCATION MODIFIED WHEN TEST RELOCATES 

FILL WITH SPACES 

LOAD DESCIPTORS FOR COMPARE 

THIS LOCATION MODIFIED WHEN TEST RELOCATES 

THIS LOCATION MODIFIED WHEN TEST RELOCATES 

COMPARE STRINGS 
EQUAL NEXT TEST 
NOT EQUAL GET ERROR DATA 
; REPORT ERROR 



;GET BUFFAD TO RO FOR INDEX 



CLR R2 TO ACCinJLATE NIBBLES 
GET OFFSET OF MSKTAB 
ADJUST ADDRESS 
LOAD R1 

CLR FOR COUNTER 

CLEAR OFF UNDESIRED NIBBLES 

IS NIBBLE LESS THAN 9 

YES DONT SUBTRACT 

GREATER THAN 9 SUB 6 

INC R3 TWICE IF NO SUB 

STORE NIBBLE IN R2 

INC NIBBLE COUNT 

4 NIBBLES DONE YET 

NO DO AGAIN 

STORE VALID DATA IN SOURCE 

NO DO AGAIN 

.-SET DATA TYPE 
ADD FACTOR FOR ADDRESS 

;G£T OFFSET OF D.DSC 
ADJUST TO GET ADDRESS 
CLEAR TYPE BITS 
MAKE UNSIGNED ZONED DATA 
GET NEXT DATA TYPE SPECIFIER 
TEST FOR DONE 
NOT DONE DO AGAIN 

COMPARE EQUAL STRINGS 

THIS LOCATION MODIFIED WHEN TEST RELOCATES 
THIS LOCATION MODIFIED WHEN TEST RELOCATES 



■.QKi-i PDf 11/70 CPU EXERCISER «ACy11 
rQKCE.PII 12-mR-80 11:27 



3OA(1052) 
T75 



12-«AR-80 
COWERCIAL 



N 12 

11:30 PAGE 47-131 
INSTRUCTION SET TEST 



SEO 0156 



11376 
1377 
1378 
11379 
11580 
1381 
1382 
11383 
11384 
11385 
11 586 
1138' 
1388 
1389 
1390 
11391 
11592 
11393 
11394 
1395 
1596 
11397 
11398 
11399 
11400 
11401 
1402 
11403 
11404 
1405 
11406 
11407 
1408 
11409 
11410 
11411 
1412 
1413 
11414 
11415 
11416 
11417 
11418 
11419 
11420 
11421 
11422 
11423 
11424 
1425 
11426 
11427 
11428 
11429 
1430 
1431 



0- X)32 001403 

0^0034 004767 000720 

040040 104020 



040042 076156 

040044 041252 

040046 041276 

040050 000001 

040052 076156 

040054 041256 

040056 041266 

040060 000001 

040062 076150 

040064 041276 

040066 041266 

040070 04127? 

040072 0761 56 

040074 041262 

040076 041276 

040100 000001 

040102 076151 

040104 041276 

040106 041272 

040110 041266 

040112 076067 

040114 041252 

040116 041262 

040120 041272 

040122 076051 

040124 076067 

040126 041256 

040130 041272 

040132 041276 

040134 076050 

040136 076067 

040140 041276 

040142 041272 

040144 041316 

040146 076056 

040150 076027 

040152 041266 

040154 041272 

040156 076052 

040160 001403 

040162 004767 000554 

040166 104020 



040170 076157 

040172 041266 

040174 041306 

040176 076153 



NJVtlC: 
A3: 

D1: 



B1 
El 



D2 
E2 

Fl 

CI: 
D3: 



F2 
D4 
E3 



A4 
C2 
F3 



82 
F4 
D5 



D6: 
F5: 
0NE1 



E4: 
F6: 



BEO HiFRK 
JSR PC.CISER3 
ERROR 20 

.•CALCULATE [(10A*10e)-10C3 



ASHNI 
.WORD 
.WORD 
.WORD 
ASHNI 
.WORD 
.WORD 
.WORD 
ADDNI 
.WORD 
.WORD 
.WORD 
ASHNI 
.WORD 
.WORD 
.WORD 
SUBNI 
.WORD 
.WORD 
.WORD 



CONNUM: 

E5: 

LONGI : 



A. DSC 

D. DSC 
1 

B. DSC 

E. DSC 
1 

D. DSC 

E. DSC 

F. DSC 

C. DSC 

D. DSC 
1 



D. DSC 
F.DSC 

E. DSC 

.■CALCULATE 10*[(A-C)*83 
L3D7 

A. DSC 
C.DSC 

F. DSC 



.WORD 
.WORD 
.WORD 
SUBN 
L3D7 
.WORD 
.WORD 
.WORD 
ADDN 
L3D7 
.WORD 
.WORD 
• WORD 
ASHN 

.-COMPARE RESULTS 
L2D7 



B.DSC 
F.DSC 
D.DSC 



D.DSC 
F.DSC 
ONE 



.WORD 
.WORD 
CMPN 
BEO 
JSR 
ERROR 



E. DSC 

F. DSC 



CONNUM 
PC.CISER2 
20 

.•CONVERT DATA TYPES 
.•LONG -> NLMERIC -> LONG 
.•NUMERIC -> PACKED -> Nl/IERIC 
CVTLNI 

.WORD E.DSC 
.WORD L0NG.1 
CVTNLI 



EQUAL NEXT TEST 
GET ERROR DATA 
REPORT ERROR 



SHIFT A 
THIS LOCATION 
THIS LOCATION 
SHIFT COUNT 
SHIFT B 
THIS LOCATION 
THIS LOCATION 
SHIFT COUNT 
10A*10e 
THIS LOCATION 
THIS LOCATION 
THIS LOCATION 
SHIFT C 
THIS LOCATION 
THIS LOCATION 
SHIFT COUNT 
10A+108-10C 
THIS LOCATION 
THIS LOCATION 
THIS LOCATION 



MODIFIED 
MODIFIED 



MODIFIED 
MODIFIED 



WHEN 
WHEN 



WHEN 
WHEN 



MODIFIED WHEN 
MODIFIED WHEN 
MODIFIED WHEN 

MODIFIED WHEN 
MODIFIED WHEN 



MODIFIED WHEN 
MODIFIED WHEN 
MODIFIED WHEN 



TEST RELOCATES 
TEST RELOCATES 



TEST RELOCATES 
TEST RELOCATES 



TEST RELOCATES 

TEST RELOCATES 

TEST RELOCATES 

TEST RELOCATES 

TEST RELOCATES 



TEST RELOCATES 
TEST RELOCATES 
TEST RELOCATES 



LOAD DESCRIPTORS 

THIS LOCATION MODIFIED 

THIS LOCATION MODIFIED 

THIS LOCATION MODIFIED 
SUB A-C 

LOAD DESC 

THIS LOCATION MODIFIED 

THIS LOCATION MODIFIED 

THIS LOCATION MODIFIED 
ADD A-C+e 

LOAD DESC 

THIS LOCATION MODIFIED 

THIS LOCATION MODIFIED 

;MULT BY 10 



WHEN TEST 
WHEN TEST 
WHEN TEST 



WHEN TEST 
WHEN TEST 
WHEN TEST 



WHEN TEST 
WHEN TEST 



RELOCATES 
RELOCATES 
RELOCATES 



RELOCATES 
RELOCATES 
RELOCATES 



RELOCATES 
RELOCATES 



LOAD DESC 

THIS LOCATION MODIFIED WHEN TEST RELOCATES 
THIS LOCATION MODIFIED WHEN TEST RELOCATES 
COMPARE STRINGS 
NEXT TEST IF EQUAL 
GET ERROR DATA 
REPORT ERROR 



CONVERT LONG TO NLMERIC 

THIS LOCATION MODIFIED WHEN TEST RELOCATES 
THIS LOCATION MODIFIED WHEN TEST RELOCATES 
CONVERT NUMERIC TO LONG 



B 13 

CtOKC-t 11/70 CPU EXERCISER KACYll 5OA(1052) 12-«AR-80 11:30 PA66 47-132 
CfQKCE.Pn 11:27 T75 COWCRCIAL INSTRUCTION SET TEST 



SEO 0157 



U32 

U35 

U54 

H35 

U56 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

14!)0 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 



040200 
040202 
040204 
040212 
040214 
040222 
040224 
040230 

040232 
040234 
040236 
040240 
040242 
040244 
040246 
040250 
040252 
040254 
040256 

040260 
040262 
040264 
040266 
040272 

040274 
040300 
040304 
040310 

040314 
040320 
040324 
040330 
040332 
040334 
040342 
040350 
040356 
040362 
040370 
040376 
040404 
040412 
040420 

040426 
040430 
040432 
040434 
040436 

040440 
040442 



041266 
041312 
026767 
001004 
026767 
001403 
004767 
104020 

076155 
041252 
041266 
076154 
041266 
041272 
0761 56 
041252 
041266 
000000 
076152 

041266 
041272 
001403 
004767 
104020 

012701 
063701 
012702 
063702 

042711 
052711 
062701 
020102 
101770 
146777 
146777 
146777 
016700 
146760 
156760 
146760 
156760 
146760 
156760 

076172 
041252 
041252 
001401 
104020 

076174 
041256 



001076 
001070 
000474 



000450 



041252 
001604 
041276 
001604 

070000 
060000 
000004 



000666 
000660 
000652 
000746 
000642 
000633 
000626 
000617 
000612 
000603 



001100 
001072 



000712 
000710 
000706 

000016 
000016 
000043 
000043 
000057 
000057 



E18: 
L0NG4: 



1$: 



Nl/IPAC: 

A5: 

E6: 

E7: 
F7: 



A6: 
E8: 



E9: 
F8: 



PACDAT; 



1$: 



.WORD E.DSC 

.WORD LONG. 2 

CMP LONG. I.LONG. 2 

Bf^E IS 

C«P LONG. 1 +2. LONG. 2*2 

BEQ NlPPAQ 

JSR PC.CISER1 

ERROR 20 

.•CONVERT ^^UM TO PACK TO NUM 
CVTNPI 



fMPPAK: 

A7: 

A8: 



PACKED: 
B3: 



A. DSC 
E.DSC 

E. DSC 

F. DSC 

A. DSC 
E.DSC 
0 



.WORD 
.WORD 
CVTPNI 
.WORD 
.WORD 
ASHNI 
.WORD 
.WORD 
.WORD 
CMPNI 

.WORD 
.WORD 
BEO 
JSR 
ERROR 

.•PACKED DECIMAL ARITHMETIC 



E. DSC 

F. DSC 
PACDAT 
PC.CISER2 
20 



MOV 
ADD 
MOV 
ADD 



#A.DSC.R1 
MTFACTOR.RI 
#D.DSC.R2 
cMfF ACTOR. R2 



#070000. (R1) 
#060000. (R1) 
#4.R1 
R1.R2 
1$ 

HIMASK.aA 
HIMASK.aS 
HIMASK.aC 
8UFFAD.ro 
L0«ASK,14.(R0) 
SIGN,14.(R0) 
L0WASK.35.(R0) 
SIGN,35.(R0) 
LOrWSK.47. (RO) 
SIW,47.(R0) 
COMPARE PACKED 

A. DSC 
A. DSC 
PACKED 
20 

10*C(B*C)]- 



BIC 
BIS 
ADD 
CMP 

BLOS 

Bice 

BiCB 
BICB 
MOV 
BICB 
BIS6 
BICB 
BIS6 
BICB 
BIS6 
.•TEST 
CMPPI 
.WORD 
.WORD 
BEQ 
ERROR 
.•CALCULATE 
MULPI 

.WORD 8. DSC 



10»C(6»»2) 



THIS LOCATION MODIFIED WHEN TEST RELOCATES 

THIS LOCATION MODIFIED WHEN TEST RELOCATES 

CHECK FIRST HALF #LONG WORD 

NOT EQUAL ERROR 

EQUAL CHECK SECOND HALF 

EQUAL NEXT TEST 

GET ERROR DATA 

REPORT ERROR 



TEST HtL XATE*; 
TEST RELOCATES 

TEST RELOCATES 
TEST RELOCATES 

TEST RELOCATES 
TEST RELOCATES 



TEST 
TEST 



RELOCATES 
RELOCATES 



CONVERT NLM TO PACKED 

THIS LOCATION MODIFIED WHEN 

THIS LOCATION MODIFIED WHEN 

CONVERT Bl^CK TO NLM 

THIS LOCATION MODIFIED WHEN 

THIS LOCATION MODIFIED WHEN 

TRANSFER A RO E 32 BYTES 

THIS LOCATION MODIFIED WHEN 

THIS LOCATION MODIFIED WHEN 

SHIFT COUNT 

COMPARE RESULTS 

THIS LOCATION MODIFIED WHEN 
THIS LOCATION MODIFIED WHEN 
EQUAL NEXT TEST 
GO GET ERROR DATA 
REPORT ERROR 

SET DATA TYPE 
ADJUST FOR ADDRESS 
GET OFFSET TO D.DSC 
ADJUST FOR ADDRESS 



MAKE UNSIGNED PACKED DATA 

SET TYPE BITS 

NEXT DATA TYPE SPEC 

DONE YET 

NO DO AGAIN 

CLR HI NIBBLE TO MAKE VALID PACKED STRING 

CLR HI NIB OF B 

CLR HI NIB OF C 

GET ADDRESS OF BUFF 

CLEAR SIGN NIBBLE 

SET SIGN NIBBLE OF A 

CLEAR SIGN NIBBLE 

SET SIGN 

CLEAR SIGN NIBBLE 
SET SIGN 

COMPARE EQUAL STRINGS 

THIS LOCATION MODIFIED WHEN TEST RELOCATES 

THIS LOCATION MODIFIED WHEN TEST RELOCATES 

EQUAL GO TEST 

REPORT ERROR 

(C**2)/(B-C)] 

MULT A*A 

THIS LOCATION MODIFIED WHEN TEST RELOCATES 



C 13 

CfcQKC-t POP r/70 CPU EXERCISER PWCrll 30A(1052) 12-MAR-80 11:30 PAGE A7-133 



■QKCE . 


P1 1 


2HnAfi-80 11 :27 


T75 


COMMERCIAL INSTRUCTION SET TEST 








SEQ 


1U88 


040444 


041256 


B4: 


.WORD 


B.DSC 




■THIS LOCATION MODIFIED 


WHEN 


TEST 


RELOCATES 


1K89 


040446 


041276 


E10: 


.WORD 


D.DSC 




•THIS LOCATION MODIFIED 


WHEN 


TEST 


RELOCATES 


1K90 


040450 


0761 74 




MULPI 






•MULT B*8 








K91 


040452 


041262 


C3: 


.WORD 


C.DSC 




•THIS LOCATION MODIFIED 


WHEN 


TEST 


RELOCATES 




040454 


041262 


C4: 


.WORD 


C.DSC 




.•THIS LOCATION MODIFIED 


WHEN 


TEST 


RELOCATES 


493 


040456 


041266 


F9: 


.WORD 


E.DSC 




;THIS LOCATION MODIFIED 


WHEN 


TEST 


RELOCATES 


%9<. 


040460 


076171 




SU8PI 






;SUB E-F 








K95 


040462 


041262 


F10: 


.WORD 


C.DSC 




;THIS LOCATION MODIFIED 


WHEN 


TEST 


RELOCATES 


IU96 


040464 


041256 


Ell: 


.WORD 


B.DSC 




:THIS LOCATION MODIFIED WHEN 


TEST 


RELOCATES 


K97 


040466 


041272 


E12: 


.WORD 


F .DSC 




;THIS LOCATION MODIFIED 


WHEN 


TEST 


RELOCATES 


K98 


040470 


001005 




BNE 


NOZERO 




.•BRANCH IF RESULT NOT ZERO 






K99 


040472 


076176 




ASHPI 














1500 


040474 


041262 


C7: 


.WORD 


C.DSC 












1501 


040476 


041256 


B7: 


.WORD 


B.DSC 












1502 


040500 


000001 




.WORD 


1 












1503 


040502 


000756 




BR 


PACKED 




;D0 ANOTHER CALCULATION 


TO Gt 


T RID OF ZERO 


150<. 


040504 


076171 


NOZERO: 


SUSP I 






• SLB AHB 








1505 


040506 


041266 


C5: 


.WORD 


E.DSC 




•THIS LOCATION MODIFIED 


WHEN 


TEST 


RELOCATES 


1506 


040510 


041276 


B5: 


.WORD 


D.DSC 




;THIS LOCATION MODIFIED 


WHEN 


TEST 


RELOCATES 


1507 


040512 


041266 


F11: 


.WORD 


E.DSC 




;THIS LOCATION MODIFIED 


WHEN 


TEST 


RELOCATES 


1508 


040514 


076067 




L3D7 














1509 


040516 


041276 


D8: 


.WORD 


D.DSC 




.-THIS LOCATION MODIFIED 


WHEN 


TEST 


RELOCATES 


1510 


040520 


041266 


E14: 


.WORD 


E.DSC 




.•THIS LOCATION MODIFIED 


WHEN 


TEST 


RELOCATES 


1511 


040522 


041316 


ONE 3: 


.WORD 


ONE 




.•SHIFT COUNT 








1512 


040524 


0761 75 




DIVPI 






;DIVIDE E/F 








1513 


040526 


041272 


F12: 


.WORD 


F.DSC 




;THIS LOCATION MODIFIED 


WHEN 


TEST 


RELOCATES 


15K 


040530 


041266 


E13: 


.WORD 


E.DSC 




.•THIS LOCATION MODIFIED 


WHEN 


TEST 


RELOCATES 


1515 


040532 


041276 


07: 


.WORD 


D.DSC 




.•THIS LOCATION MODIFIED 


WHEN 


TEST 


RELOCATES 


1516 


040534 


076076 




ASHP 






.•SHIFT 10*SCRTCH 








1517 








.•CALCULATE 10*(A*B) 


REGISTER MODE 








1518 


040536 


076067 




L3D7 






;LOAD DESCRIPTORS 








1519 


040540 


041256 


B6: 


.WORD 


B.DSC 




.-THIS LOCATION MODIFIED 


WHEN 


TEST 


RELOCATES 


1520 


040542 


041262 


C6: 


.WORD 


C.DSC 




;THIS LOCATION MODIFIED 


WHEN 


TEST 


RELOCATES 


1521 


040544 


041276 


D9: 


.WORD 


D.DSC 




.■THIS LOCATION MODIFIED 


WHEN 


TEST 


RELOCATES 


1522 


040546 


076070 




ADDP 






;ADD A+e 








1523 


040550 


076067 




L3D7 






;LOAD DESCRIPTORS 








152A 


040552 


041276 


D10: 


.WORD 


D.DSC 




.THIS LOCATION MODIFIED 


WHEN 


TEST 


RELOCATES 


1525 


040554 


041272 


F13: 


.WORD 


F.DSC 




.•THIS LOCATION MODIFIED 


WHEN 


TEST 


RELOCATES 


1526 


040556 


041316 


ONE 2: 


.WORD 


ONE 












1527 


040560 


076076 




ASHP 






.•SHIFT 10*SCRTCH 








1528 








.•COMPARE RESULTS 












1529 


040562 


0761 72 




CMPPI 






• f=F '>'>'>'> 






RELOCATES 


1530 


040564 


041266 


E15: 


.WORD 


E.DSC 




■this' LOCATION MODIFIED 


WHEN 


TEST 


1531 


040566 


041272 


F14: 


.WORD 


F.DSC 




;THIS LOCATION MODIFIED 


WHEN 


TEST 


RELOCATES 


1532 


040570 


001403 




BEO 


CONPAK 












1533 


040572 


004767 000110 




JSR 


PC.CISER 




;GET ERROR DATA 








1534 


040576 


104020 




ERROR 


20 




.REPORT ERROR 








1535 








.•CONVERT DATA TYPES 












1536 








.-LONG 


-> PACKED -> 


LONG 










1537 








;LONG 


-> NlflERIC -> 


NU1ERIC 










1538 


040600 


076177 


CONPAK: 


CVTLPI 






; CONVERT LONG TO PACKED 








1539 


040602 


041266 


E16: 


.WORD 


E.DSC 




;THIS LOCATION MODIFIED 


WHEN 


TEST 


RELOCATES 


11540 


040604 


041306 


L0NG2: 


.WORD 


L0NG.1 




;THIS LOCATION MODIFIED 


WHEN 


TEST 


RELOCATES 


11541 


040606 


0761 73 




CVTPLI 






.CONVERT PACKED TO LONG 








154? 


040610 


041266 


E17: 


.WORD 


E.DSC 




.•THIS LOCATION MODIFIED 


WHEN 


TEST 


RELOCATES 


11543 


040612 


041312 


L0NG3: 


.WORD 


LONG. 2 




.•THIS LOCATION MODIFIED 


WHEN 


TEST 


RELOCATES 



:EQKC-E pop 11/70 CPU EXERCISER HACV11 30A(1052: 
CEQKCE.P11 12-«AR-80 11:27 T75 



11S4A 

115A5 

11S46 

11S47 

115^8 

115A9 

11550 

11551 

11552 

11553 

11554 

11555 

11556 

11557 

11558 

11559 

11560 

11561 

11562 

11563 

11564 

11565 

11566 

11567 

11568 

11569 

11570 

11571 

11572 

11573 

11574 

11575 

11576 

11577 

11578 

11579 

11580 

11581 

1158? 

11583 

11584 



11585 
11586 
11587 
11588 
11589 



040614 
040622 
040624 
040632 
040634 
040640 
040642 



040646 
040654 
040662 
040670 
040676 
040704 



040706 
040714 
040722 
040724 
040732 
040740 
040742 
040750 
040756 
040760 
040766 
040774 



026767 000466 000470 
001004 

026767 000460 000462 
001403 

004767 000064 
104020 

000167 001724 



016737 
016737 
00020^ 
016737 
016737 
000207 
016737 
016737 
000207 
016737 
016737 
000207 



1$: 
DONE: 



012767 000310 000362 SETUP: 

016767 000450 000356 

012767 000310 000352 

016767 000434 000346 

062767 000310 000340 
000207 



000326 001352 CISER: 

000324 001354 

000356 001352 CISER1: 

000354 001354 

000322 001352 CISER2: 

000320 001354 

000270 00^352 CISER3: 

000262 001354 



040776 


177 


176 


175 


041001 


174 


173 


172 


041004 


171 


170 




041006 


167 


166 


165 


041011 


164 


163 


162 


041014 


161 


160 




041016 


157 


156 


155 


041021 


154 


153 


152 


041024 


151 


150 




041026 


147 


146 


145 


041031 


144 


143 


142 


041034 


141 


140 




041036 


137 


136 


135 


041041 


134 


133 


132 


041044 


131 


130 




041046 


127 


126 


125 



D 13 

12-«AR-80 11:30 PAGE 47-134 
COWERCIAL INSTRUCTION SET TEST 



C«P 


LaN6.1,LaNG.2 


.COMPARE RESULTS 


BNE 


1$ 




C«P 


LONG. 1*2,L0NG. 2*2 


.COMPARE RESULTS OF SECOND WORD 


BEO 


DONE 




JSR 


PC.CISER1 


;6ET PC. ERROR DATA 


ERROR 


20 


.REPORT ERROR 


J«P 


RELE9 


;G0 ON TO NEXT TEST 



SUBROUTINE -SETUP 
SETS UP CHAR STRING DESCRIPTORS 
USAGE: JSR PC. SETUP 
NO ARGLMENTS 



MOV 


#200.. SRC. ID 


.SET SOURCE LENGTH 


MOV 


8UFFAD.SRC-1A 


.SET SOURCE ADDRESS 


MOV 


#200..DST.1D 


.DEST LENGTH 


MOV 


BUfFA0.DST.1A 


;DEST ADDRESS 


ADD 


*200..0ST.1A 


.•ADJUST FOR DST 


RTS 


PC 


.•RETURN 



SUBROUTINES-CISER. CISER1. CISER2 AND CISER3 
GETS SHOULD AND WAS DATA AND ADDRESSES 
USAGE: JSR PC.CISER(X) 
NO ARGUMENTS 



MOV 


SRC.IA.arSTMPO .SHOULD BE ADDRESS 


MOV 


DST.lA.arSTMPI 


-WAS ADDRESS 


RTS 


PC 


•RETURN 


MOV 


LONG.lP,ar$TMPO 


■SHOULD BE ADDRESS 


MOV 


L0N6.2P.a#$TMPl 


-WAS ADDRESS 


RTS 


PC 


-RETURN 


MOV 


E,a«$TMPO 


-SHOULD BE ADDRESS 


MOV 


F ,a#STMPl 


;WAS ADRRESS 


RTS 


PC 


RE TURN 


MOV 


A.airsTMPO 


•SHOULD BE ADDRESS 


MOV 


A,a#STMP1 


;WAS ADDRESS 


RTS 


PC 


; RE TURN 



.•TRANSLATE TABLE 

.•USED BY MOVE TRANSLATE 

.-USED Br SPAN AND SCAN INSTRUCTIONS 

:128 CHAR ASCII 

.BYTE 177,176,175,174,173,172,171,170 



.BYTE 167,166,165,164.163.162,161,160 

.BYTE 157.156.155.154,153.152,151,150 

.BYTE 147,146,145,144,143,142,141 ,140 

.BYTE 137.136.135.134.133,132,131,130 

•BYTE 127.126.125.124.123.122.121.120 



"■fOtcf-C POP 
CF0KCE.P11 



11/70 CPU EXERCISER HACrll 30A(1052) 12-mR-80 
12-mR-80 11:27 J 75 COWERCIAL 



E 13 

11:30 PAGE A7-135 
INSTRUCTION SET TEST 



SEQ 0160 





041051 


124 


123 


122 






04105A 


121 


120 






11S90 


0A1056 


117 


116 


115 


.BVTE 




041061 


114 


113 


112 






041064 


111 


110 






11591 


041066 


107 


106 


105 


.BYTE 




041071 


104 


103 


102 






041074 


101 


100 






11592 


041076 


077 


076 


075 


.BYTE 




041101 


074 


073 


072 






041104 


071 


070 






11595 


041106 


067 


066 


065 


.BYTE 




041111 


064 


063 


062 






041114 


061 


060 






11594 


041116 


057 


056 


055 


.BYTE 




041121 


054 


053 


052 






041124 


051 


050 






11595 


041126 


047 


046 


045 


.BYTE 




041131 


044 


043 


042 






041134 


041 


040 






11596 


041136 


037 


056 


035 


.BYTE 




041141 


034 


033 


032 






041144 


031 


030 






11597 


041146 


027 


026 


025 


.BYTE 




041151 


024 


023 


022 






041154 


021 


020 






1 1598 


041 156 


017 


016 


015 


.BYTE 




041161 


014 


013 


012 






041164 


Oil 


010 






11599 


041166 


007 


006 


005 


-BYTE 




041171 


004 


003 


002 






041174 


001 


000 







11600 
11601 
11602 
11603 
11604 
11605 
11606 
11607 
11608 
11609 
11610 
11611 
11612 
11613 
11614 
11615 
11616 
1 1617 
11618 
11619 
11620 
11621 
71622 
1162? 



.BYTE 117,116.115.114.113.112.111.110 



BYTE 107.106.105.104.103.102.101.100 



.BYTE 077.076.075.074.073.072.071 .070 



.BYTE 067.066.065.064.063.062.061.060 



BYTE 057.056,055.054.053.052.051 .050 



BYTE 027.026.025.024.023.022.021 .020 



BYTE 017.016,015,014.013.012.011.010 



BYTE 007.006.005.004.003.002.001.000 



.•MASK TABLES 

.FOR MAKING VALID DECIMAL DATA 



041176 
041200 
041202 
041204 
041206 
041210 
041212 
041214 
041216 
041220 
041222 
041224 
041226 
041227 
041230 

041232 
041254 



1 77760 
000011 
000006 
177417 
000220 
000140 
1 70377 
004400 
003000 
007777 
070000 
'00000 
360 
014 
017 
041232 
000000 
000000 



MSKTAB: 


.WORD 


1 77760 




.WORD 


11 




.WORD 


6 




.WORD 


177417 


NINTAB: 


.WORD 


220 




.WORD 


140 




.WORD 


170377 




.WORD 


4400 


SIXTAB: 


.WORD 


3000 




.WORD 


7777 




.WORD 


70000 




.WORD 


100000 


HiMASK: 


• BYTE 


360 


SIGN: 


.BYTE 


014 


LOMASK: 


.BYTE 


017 


.EVEN 






SAVRNL : 


.WORD 


0 


SAVRNH: 


.WORD 


0 



.CHARACTER STRING DESCRIPTOR TABLE 



CEOKC-€ POP 11/70 CPU EXERCISfR MACVII 
CEOKCE.PII 12-«AR-80 11:27 



30A(1052) 
T75 



12-WR-80 
COMMERCIAL 



F 13 
11 :50 PAGE 47- 
INSrRUCTION SET 



136 
TEST 



SEO 0161 



11624 
11625 
11626 
11627 
11628 

11630 
11631 
11652 
11633 
11634 
11635 
11636 
11637 
11638 
11639 
11640 
11641 
11642 
11643 
11644 
11645 
1 1646 
11647 
11648 
11649 
11650 
11651 
11652 
11653 
11654 
11655 



041236 
041240 
041242 
041244 
041246 
041250 
041252 
041254 
041256 
041260 
041262 
041264 
041266 
041270 
041272 
041274 
041276 
041300 
041302 
041304 
041306 
041312 
041316 
041320 
041322 
041324 
041326 
041330 



000310 
041752 
000310 
042262 
000031 
042034 
000034 
041752 
000016 
042006 
000012 
042024 
000037 
042042 
000037 
042102 
000037 
042142 
000001 
040776 
001020 
000002 
000001 
000040 
040776 
041306 
041312 
041752 



000000 



SRC. ID. 


.WORD 


200. 


SRC.1A 


.WORD 


BUFF 


DST.1D. 


.WORD 


200. 


0ST.1A 


.WORD 


BUfF»200. 


cej.iD. 


.WORD 


25. 


OBJ.IA. 


.WORD 


BUFF*50. 


A. DSC: 


.WORD 


28. 


A: 


.WORD 


BUFF 


B.DSC: 


.WORD 


14. 


B: 


.WORD 


BUFF ♦28. 


C.DSC: 


.WORD 


10. 


C: 


.WORD 


BUFF ♦42. 


E.DSC: 


.WORD 


31. 


E: 


.WORD 


BUFF+56. 


F.DSC: 


.WORD 


31. 


F : 


• WORD 


BUFF ♦88. 


D.DSC: 


.WORD 


31. 


D: 


.WORD 


8UFF+120. 


SET. ID 


.WORD 


1 


TRANS4 


.WORD 


TRANS 


L0NG.1 


• WORD 


528. .0 


LONG 2 


BLKW 


2 


ONE: 


.WORD 


1 


CHAR: 


.WORD 


• 


TRA.\j3 


• .WORD 


TRANS 


L0NG1P 


- .WORD 


L0NG.1 


L0NG2P 


• .WORD 


LONG. 2 


BUFF AD 


: .WORD 


BUFF 


; OFF TAB CONTAINS ALL ABSC 



11656 


041332 


037070 


037114 


057126 OFF TAB: 


.WORD 




041540 


037160 


037206 


057216 






041546 


037250 


037302 


057514 






041354 


037342 








11h57 


041356 


037364 


037412 


057454 


.WORD 




041364 


037462 


037506 


057552 






041372 


037576 


037622 


057650 






041400 


037660 








11658 


041402 


037072 


057116 


057150 


.WORD 




041410 


037210 


037220 


057252 






041416 


037304 


057516 


057566 






041424 


037414 








11659 


041426 


037422 


037424 


057456 


• WORD 




041454 


037464 


037474 


057476 






041442 


037510 


057600 


057652 






041450 


037662 








1 1660 


041452 


037470 


057502 


041522 


.WORD 




041460 


037544 


057162 


057254 




11661 


041466 


037120 


057306 


057520 


.WORD 




041474 


0373^0 


057664 






11662 


041500 


040026 


040050 


040044 


• WORD 




041506 


040114 


040254 


040250 






041514 


040430 


040452 






11665 


041520 


040054 


040126 


040442 


.WORD 



OFFTAB: .WORD SRC1 .SRC2,SRC5.SRC4.SRC5.SRC6,SRC7.SRC8.SRC9.SRC10 



SRC11.SRC12.SRC15.SRC14.SRC15.SRC16.SRC17.SRC18,SRC19.SRC20 



WORD DST1.DST2.DST5.DST4,DST5.DST6.DST7.DST8.DST9.DST10 



WORD DSTII .DST12.DST15.DST14.DST15.DST16,DST17,DST18.DST19.DST20 



WORD B1 .82.85.84.85.86,87 



L(jnC-t f^Of- fP-^ EXERCISER MACvi' 50A(1052) 

CEQKCE.Pn 12-*1AP-80 ^1 :27 T75 



COWERCIAL 



6 13 

11:30 PAGE 47-137 
INSTRUCTION SET TEST 



SfQ 016? 





041526 
04^534 


040444 


040510 


040540 






040476 










041556 


040074 


040116 


040452 


.WORD 




041544 


040454 


040S06 


040542 






041552 


040474 








n665 


041554 


040046 


040064 


040076 


.WORD 




041562 


040106 


040132 


040140 






041570 


040532 


040516 


040544 






041576 


040552 








n666 


041600 


040056 


040066 


040110 


.wnnD 




041606 


040152 


040172 


040236 






041614 


040242 


040252 


040260 






041622 


040446 








11667 


041624 


040464 


040466 


040530 


.WORD 




041632 


040520 


040564 


040602 






041640 


040610 


040200 






11668 


041644 


040070 


040104 


040120 


.WORD 




041652 


040130 


040142 


040154 






041660 


040244 


040262 


040456 






041666 


040462 








11669 


041670 
041676 


040512 
040566 


040526 


040554 


.WORD 


11670 


041700 


041240 


041244 


041250 


.WORD 


11671 


041706 


041254 


041260 


041264 


.WORD 




041714 


041300 


041270 


041274 






041722 


041330 


041304 






11672 


041726 


041306 


041312 


0401 74 


.WORD 




041734 


040604 


040612 


040202 




1167! 


04 1 742 


040144 


040556 


040522 


.WORD 


11674 


041750 


000000 






.WORD 



11675 
11676 
11677 
11678 
11679 
11680 
11681 
11682 
11685 
(1) 
(1) 
(1) 
(1) 
(1) 
(1 ) 
11684 
11685 
(5) 
(5) 
(2) 
(2) 
(2) 
(2) 
•1686 
M687 

' 1688 



.WORD C1.C2.C3.C4.C5.C6.C7 



WORD 01 .D2.03.04.D5.D6.D7.D8.09.D10 



wnriD El .E2.E3.E4.E5.E6.E7.E8,E9.E10 



WORD E11.E12.E13.E14.E15.E16.E17.F18 



WORD Fl.F2,F3,F4.F5.F6.F7.F8.f9.F10 



WORD F11.F12.F15.F14 



.•TABLE TERMINATER 



BUFFER SPACE 
200 WORDS LONG 

USED FOR SOURCE AND DESTINATIONS 



041752 000310 



042572 
042574 
042576 
04260? 
042606 



042610 



042610 
042612 
042620 
042626 
042632 
042656 



000004 
010702 
062702 
012707 
000000 



BUFF; 
RELE9 



.BLKW 200. 



000012 
044042 



SCOPE 

MOV PC,R2 

ADO #12,R2 

MOV #RELOC,PC 

REL99' word 0 

.-9999999999999 LAST ADDRESS OF CODE TO BE RELOCATED 99999999999 

ENDCIS: 



;G0 RELOCATE PROGRAM CODE 



•TEST 76 



TELETYPE AND CLOCK TESTS 



000240 
112757 
015757 
005057 
012704 
052737 



000076 
001252 
001604 
000100 
000400 



TST76: NOP 
001252 M0V8 
177570 MOV 

TTVCHK: CLR 
MOV 

001550 BIT 



.•LOAD TEST NUMBER 
; .-DISPLAY TEST NUMBER 



#76.*rSTSTNM 
a#$TSTNM.*rDI SPLAY 
M^FAC TOR 

#100. R4 .-SET R4 - CONSTANT 100 

#TT0PT.a#0PT.CP .-BRANCH IF TTY 



H 13 

'.fcOKL-E f'Df' 11/70 CPU EXERCI-fR Mfvn 30A(t052) 11:30 PAGE 47-138 

CFQKCF.P11 12-«AR-80 11:27 T76 TELETYPE AND CLOCK TESTS 



11689 

11690 

11691 

11692 

11693 

11694 

11695 

11696 

11697 

11698 

11699 

11700 

11701 

11702 

11703 

11704 

11705 

11706 

11707 

11708 

11709 

11710 

11711 

11712 

11713 

117U 

11715 

11716 

11717 

11718 

11719 

11720 

11721 

11722 

11723 

11724 

11725 

11726 

11727 

11728 

11729 

11730 

11731 

11732 

11733 

11734 

11735 

11736 

11737 

11738 

11739 

11740 

11741 

11742 
11743 
11744 



042644 
042646 
042652 
042660 
042662 
042670 
042674 



042676 



001002 
000167 
132777 
001774 
012737 
106277 
000001 



000220 
000200 

001623 
136420 



136434 
001340 



1$: 



J«P 

BITS 

BEQ 

MOV 

ASRB 

WAIT 



IS 

AR8FIN 

#200.a$TPS 

1$ 

*NULLS-l.ftr$ftE65 
aSTPS 



ON SYSTEM 

JLUP if NOT 

CHECK IF TTV IS READY 

SET ADDRESS OF ASCII STRING TO TYPf 
SET IE BIT. SEE TPISR FOR INT SERVICE. 
WAIT FOR INTERRUPT 



042676 


132737 


000020 


177776 


It: 


BIT8 


042704 


001104 








BNE 


042706 


030477 


136402 




2$: 


BIT 


042712 


001375 








BNE 


042714 


112737 


000300 


)7777t 




M0V8 


0^2722 


150477 


1 36366 




3$: 


BIS8 


042726 


100375 








BPL 


042730 


032737 


001000 


001550 




BIT 


042736 


001455 








BEQ 


042740 


012737 


043044 


000064 




MOV 


042746 


012737 


000340 


000066 




MOV 


042754 


012737 


043056 


000100 




MOV 


042762 


012737 


000340 


000102 




MOV 


042770 


005027 








CLR 


0^2772 


000000 






4$: 


.WORD 



DlfliY: 

ROUTINE TO CHECK PRIORITY ARBITRATION LOGIC 

THE BELOW TEST WILL INHIBIT INTERRUPTS ON LEVEL 6 AND ABOVE (LOCKING 
OUT THE LINE CLOCK) AND THEN SET UP THE TTY TO INTERRUPT. NEXT THE 
PRIORITY LEVEL WILL BE SET TO 0 ALLOWING INTERRUPTS IN WHICH CASE 
THE LINE CLOCK (AT LEVEL 6) SHOULD INTERRUPT BEFORE THE TTY (AT LEVEL 4), 



*20.*rPSW 
ARBEX 
R4,a$TPS 
2$ 

#300,*rpsw 
R4.aiTPS 

3$ 

#LKOPT.a*OPT.CP 

AR8FIN 

#7$,a#TPVEC 

#PR7,a#TPVEC*2 

#8$,»rLKVEC 

#PR7.»I1KVEC*2 

(PC)* 

0 



EXIT TEST IF 'T' BIT SET 
WAIT FOR TTY TO BE NOT 
BUSY 

SET PRIORITY LEVEL 6 

SET IE BIT 

AND WAIT FOR READY 

LINE CLOCK AVAILABLE? 

BRANCH IF NO 

SET TTY VECTOR 

.SET CLOCK VECTORS 

.CLEAR CHECK WORD 



042774 
043000 
043004 
043010 
043012 
043014 



012700 
010437 
105737 
100375 
077006 
000240 



000002 
177546 
1 77546 



043016 105037 177776 



REV E BECAUSE OF ATIMING DELAY IN THE LINE CLOCK PORTION OF A DLll-W 

IT IS OCCASIOfiALLY POSSIBLE FOR 'READY* TO SET WITHOUT GENERATING AN IN- 
TERRUPT REQUEST ON THE FIRST LINE CLOCK TICK FOLLOWING PROGRAM SETTING 
OF 'I.E.' REV E WAITS FOR A SECOND CLOCK TICK PRIOR TO EXECUTING TEST. 
PRIORITY MANIPULATION WAS ALSO MODIFIED TO LOCK OUT 'LATE* INTERRUPTS. 



MOV #2,R0 ;SET SOB COUNT 

5$: MOV R4.a*LKS ;SET I.E. AND CLEAR READY 

6$: TST8 ftTLKS .SEE IF LINE CLOCK READY 

BPL 6$ .-LOOP IF NOT 

SOB R0.5S :00 IT ONE MORE TIME 

NOP ;AT THIS TIME BOTH THE CLOCK 

.ARE READY TO INTERRUPT 
CLRB afPSW ;SET PRIORITY LEVEL 0 

A CLOCK INTERRUPT WILL OCCUR (8$) AND LOC 4$ WILL BE INCREMENTED 
AFTER THE CLOCK SERVICE A TTY INTERRUPT WILL OCCUR. THE TTY INT SERV 
ICE WILL SHIFT LEFT 4$. 



043022 
043030 
043036 
043040 
043042 



012737 
022767 
001415 
104000 
000413 



000340 
000002 



1 77776 
y777lt. 



MOV 
CMP 
BEQ 
HLT 
BR 



<rPR7,a#PSW 

*2,4i 

ARBFIN 

ARBFIN 



DON'T ALLOW 'LATE' INTERRUPTS 
CHECK THAT THE CLOCK 
I TTY INTERRUPTED IN 
THE PROPER SEQUENCE 



EGHL-t POP n/70 CPU EXERCIwfR «ACV11 
CFQKCE.Pn 12-W-80 11:27 



I 13 

30A(1052) 12-«AR-80 11:30 PAGE 47-139 
T76 TELETYPE AND CLOCK TESTS 



SEC 0164 



117A5 

1174.8 
11749 
117S0 
117S1 
11752 
11753 
1175A 
11755 
11756 
11757 
11758 
11762 
(4> 
(5) 
«.) 
(5) 
(2) 
(2) 
(2) 
(2) 
11765 
11764 
11765 
11766 
11767 
11768 
11769 
11770 
11771 
11772 
11773 
11774 
11775 
11776 
11777 
11778 
11779 
11780 
11781 
11782 
11783 
11784 
11785 
11786 
11787 
11788 
11789 
11790 
11791 
11792 
11793 
11794 
11795 



045044 
043050 
045054 

043056 
043062 
043070 



043072 
045100 
045106 
045112 
045116 



043166 
045172 
043174 
043202 
043204 
043212 
043274 
043220 



043226 
043234 
043236 
043244 
043246 
043254 
043256 
043262 
043264 
043272 
043300 
043304 
043512 
Om3520 



005077 
006567 
000002 

005267 
012737 
000002 



012757 
012757 
105037 
005077 



156244 
177716 



177710 
054362 



065566 
000200 
177776 
136176 



000100 



000064 
000066 



7$: 



8$: 



AR8f IN: 



CLR 
ASL 
RT] 

INC 
MOV 
RTI 



MOV 
MOV 

CLR8 
CLR 



aSTPS 
4$ 



4S 

«LKSRV,a#LKVEC 



*TPISR.a*TPV£C 
#200.a*TPV£C*2 

a^rpsw 
aSTPS 



CLEAR IE BIT 
SHifT INDICATOR 
RETURN 



.-SET CLOCK VECTORS 



.•RESTORE TTY VECTOR 

.•RESTORE PROCESSOR PRIORITY 
.•CLEAR IE BIT 



•TEST 77 TURN ON USE AND MBT 

TURN ON THE MASS BUS TESTER AND UNI8US EXERCIStR IF PRESENT 



045116 


000240 




TST77: 


NOP 






045120 


112737 


000077 


001252 


M0V8 


#77. a*$TSTr#i 


.-LOAD TEST NUMBER 


045126 


013737 


001252 


177570 


MOV 


aWTSTNM.arOISPLAY 


.•.•DISPLAY TEST NUMBER 


043134 


052737 


001000 


001550 


BIT 


♦LKOPT.airOPT.CP 


.•BRANCH IF NOT AVAIL 


043142 


001411 






BEO 


UBESET 




043144 


012737 


054362 


000100 


MOV 


#LKSRV.a4rLKVEC 




043152 


012737 


000340 


000102 


MOV 


#PR7,»rLKVEC-^2 




043160 


052737 


000100 


177546 


BIS 


#100.»rLKS 


;SET IE BIT 



*************************************************************** 



105737 
100015 
032777 
001011 
032757 
001045 
004737 
012772 



032737 
001434 
032777 
001030 
122737 
001024 
105737 
001021 
052777 
012777 
005077 
012777 
012777 
112777 



001550 
010000 
000040 



.TURN ON THE UNI8US EXERCISER IF PRESENT 



136042 
172516 



062340 

064545 000000 



TST8 


a#OPT.CP 


IS UBE OPTION AVAILABLE'' 


BPL 


N3TSET 


-BRANCH IF NO 


BIT 


#SWl2.aSSWRP 


INHIBIT UBE? 


BNE 


W3TSET 


BRANCH IF YES 


BIT 


#BIT5.a#MMR3 


■IS MAP ON? 


BNE 


STMM 


BRANCH IF YES 


JSR 


PC.atftBEINIT 


•INITIALIZE UBE 


MOV 


#64545. a(R2) 


•START IBE 



002000 

000010 

000060 

001601 

000047 
000007 
157054 
054050 
000340 
000161 



001550 
136000 
001630 



137076 
137070 

137066 
137062 
157030 



.•TURN ON THE MASS BUS TESTER IF PRESENT 



^BTl 



BIT 


#«BT0PT.a#0PT.CP 


; IS MBT AVAILABLE? 


BEO 


STMM 


•BRANCH IF NO 


BIT 


#SW3.aSSWRP 


•INHIBIT MBT? 


BNE 


STMM 


■BRANCH If YES 


CMPe 


#60,a#SU8PASS 


■FIRST SUB-PASS? 


BNE 


STMM 


■BRANCH IF NO 


TST8 


a#MM0N 


■MEM MGMT ON? 


BNE 


STMM 


•BRANCH IF YES 


BIS 


#47.aMBTTBL*12 


.•CLEAR THE MBT 


MOV 


#7.a«BTT8L*12 


.•SELECT UNIT 7 


CLR 


aMBTTBL*2 


.•CLEAR THE WORD COUNT 


MOV 


#MB T SRV.aWBTTBL* 22 ;SETUP INTERRUPT VECTOR 


MOV 


#PR7.aMBTTBL+24 


.SET VECTOR PSW 


M0V8 


#161.aMBTT8L 


.-START MBT 



J 



r 



'fcQKC-t POP 
rFOKCfc.PH 



1 1/70 CPU EXERCIJfR 
V-nAP-80 11:27 



T77 TURN ON IJ3E AND 



J 13 
; 50 PAGE 
MBT 



47-UO 



SEQ 



11796 










11797 










11798 










11799 










11800 










11801 










1180? 


043326 


112737 


000100 


001252 


11803 


043354 


112757 


000100 


177570 


11804 










11805 










11806 


043342 


052777 


000100 


1 55674 


n807 


043350 


00U02 






11808 


043352 


000167 


002626 




'1809 










11810 










11811 










11812 










11813 










118U 










11815 


043356 


015727 


^ 77776 




11816 


043362 


000000 






11817 


043364 


012737 


000200 


177776 


11818 


043372 


004767 


017716 




11819 










11820 










11821 


043376 


012700 


077406 




11822 


045402 


010057 


172500 




11823 


045406 


010057 


172502 




11824 


043412 


010057 


172504 




11825 


043416 


010057 


172506 




11826 


043422 


010037 


172310 




11827 


043426 


010037 


172312 




11828 


043432 


010037 


172314 




11829 


043456 


010037 


172316 




11830 










11831 


043442 


005037 


1 72340 




11832 


043446 


012757 


000200 


1 72342 


11833 


043454 


012757 


000400 


1 72344 


11834 


043462 


012757 


000600 


1 72346 


11835 


043470 


01 5757 


001616 


172350 


11836 


045476 


015757 


1 72550 


172352 


11837 


043504 


062757 


000600 


172352 


11838 


043512 


012737 


177600 


172356 


11839 










11840 


043520 


010057 


177600 




11841 


043524 


010037 


177602 




11842 


043530 


010037 


177604 




11843 


043534 


010037 


177606 




11844 


043540 


010057 


177616 




11845 


043544 


016757 


156046 


1 77640 


11846 


045552 


015757 


177640 


1 77642 


11847 


043560 


062757 


000200 


1 77642 


11848 


043566 
043574 


015757 


177640 


177644 


11849 


062757 


000400 
177640 
000600 


177644 


11850 


045602 


015757 


1 77646 




045610 


062757 


1 77646 



S8TTL Sim ROUTINE 

ROUTINE TO SET UP MEMORY MANAGEMENT TO RELOCATE PROGRAM CODE ABOVE 
CHECK IF PROGRAM IS TO BE RELOCATED. 
SW6=1=N0 RELOCATION 



16K 



S'TMM: M0V8 *100.a#STSTNM 
M0V8 *100.arDISPLAy 



BIT «SU6,aSSURP 

BEQ 31 
JMP ENDM 



LOAD TEST KJBER 
IN SUICH REG TOO 

ANY TIME TEST 100 IS IN ERROR REPORT 
THEN ERROR OCCURRED DURING RELOCATION 
RELOCATION DISABLED? 
BRANCH IF NO 



THE PROGRAM IS GOING TO RELOCATE. 

RELOCATION WILL BE PERFORMED IN KERNEL MODE WITH PSU SET AT PRIORITY 
LEVEL 4 (TO PREVENT TTY INTERRUPT-UHICH CHANGES DATA IN PROGRAM) 
THE 'T' BIT IS CLEARED (IF SET). AFTER THE DATA HAS BEEN WRITTEN IT IS 
.VERIFIED BEFORE EXECUTION. 

3S: MOV »rPSW.(PC)* ;SAVE CURRENT PSW 
OLDPSW: .WORD 0. 

MOV #PR4.a#PSW 

JSR PC.CLRT8IT ;C0 CLEAR 'T' BIT IF SET 

;NOW SETUP MEMORY MANAGEMENT REGISTERS. 



MOV 
MOV 
MOV 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

CLR 
MOV 
MOV 
MOV 
MOV 
MOV 
ADD 
MOV 

;NOW SETUP USER 
1$: MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

ADD 

MOV 

ADD 

MOV 

ADD 



<f 77406, RO 
RO,airKIPDRO 

RO,amciPDRi 

R0,»rKIP0R2 
R0.»rKIPDR5 
R0,a(rKIPDR4 
R0.a(rKIPDR5 
R0,a#KIPDR6 
R0,a#KIP0R7 



;SET CONSTANT-R/W UP 4K WORDS 

;SET KIPDRO THROUGH 7 R/W UP 4K WORDS 



.-SET UP KIPDRO THROUGH 5 FOR NO RELOCATION 



;PAR4 MAPS TO BEGINNING OF RELOCATION SPOT 



ftTKiPARO 
#200,a#KIPAR1 
#400,airKIPAR2 
#600,a#KIPAR5 
aiVy€XPAR,a#KlPAR4 
(M'KiPAR4 a#KIPAR5 

#600,a*KIPAR5 ;PAR5 MAPS TO TOP 4K PAGE (NEXPAR START ADDRESS ♦ 12K) 
<f177600,*rKIPAR7 ;AND OF COLSE THE I/O PAGE 

MEM MGHT REGISTERS 

RO.arUIPORO ;SET UP USER MEM MGMT REGS 
RO.arUIPORI 

R0.aruiP0R2 

R0.a»UIP0R5 
R0,*rulPDR7 
NEXPAR, *rUIPARO 

aniiPARO,a*uiPARi 

*200,aruiPARi 

aruiPAR0,a#uiPAR2 

*400.a*UIPAR2 

a*UIPAR0,a#UIPAR3 

*600,iMruiPAR3 



'FOKC-E POP 
CtOKCE.Pll 



11/70 CPtJ EXERCISER 
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Sim ROUTINE 
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PAGE 



47-U1 



SEO 0166 



1185? 

11853 

11854 

11855 

11856 

11857 

11858 

11859 

11860 

11861 

11862 

11863 

11864 

11865 

11866 

11867 

11868 

11869 

11870 

11871 

11872 

11873 

11874 

11875 

11876 

11877 

11878 

11879 

11880 

11881 

11882 

11883 

11884 

11885 

11886 

11887 

1 1888 

11889 

11890 

11891 

11892 

11893 

11894 

11895 

11896 

11897 

11898 

11899 

11900 

11901 

11902 

11903 

11904 

11905 

11906 

11907 



043616 013737 172356 177656 



043624 
045630 
043634 
043640 
043644 
043650 
043656 
043664 
043672 
043700 
043706 
043714 
043722 
043730 
043736 
043744 
043750 
043754 
043762 
043766 
043772 
044000 
044004 

044010 
044014 
044016 
044024 
0/4030 
0<.4036 



04404? 
044050 
044052 
044056 
044060 
044064 

044066 
044070 
044072 



010037 

010037 

010037 

010037 

010037 

016737 

013737 

062737 

013737 

062737 

013737 

062737 

013737 

012737 

012737 

110637 

005037 

012737 

013701 

005037 

012737 

012702 

012700 

012703 
010013 
012737 
010137 
012737 
000137 



032777 
001067 
105737 
001064 
013700 
010005 

010203 
010204 
160004 



172200 
172202 
172204 
172206 
172216 
135742 
1 72240 
000200 
1 72240 
000400 
172240 
000600 
172356 
000001 
000060 
001601 
000006 
046202 
000116 
000116 
046202 
100000 
000000 

127776 

064422 
000116 
063616 
044236 



000100 
001601 
001610 



1 72240 
172242 
172242 
1 72244 
172244 
172246 
172246 
172256 
177572 
172516 



000004 



000114 



000004 
000114 



RETRY: 



«0V 

MOV 

NOV 

MOV 

MOV 

MOV 

MOV 

MOV 

ADD 

MOV 

ADD 

MOV 

ADD 

MOV 

MOV 

MOV 

M0V8 

CLR 

MOV 

MOV 

TLR 

MOV 

MOV 

MOV 

MOV 
MOV 
MOV 
MOV 
MOV 
JMP 



a»KlPAR7,a«UlPAR7 

RO.arSIPDRO :SET UP SUPERVISOR MEM MGMT REGS 

RO.atSIPDRI 

R0,a»SIPDR2 

R0,»rSIPDR3 

R0,*rSIPDR7 

NEXPAR.arSIPARO 

a4rsiPAR0,arsiPARi 

/r200,a#siPARi 

a«siPAR0,airsiPAR2 

#400,airsiPAR2 

arsiPARCarsiPARS 

«600,»rSIPAR3 

aMCJPAR7,airSIPAR7 

»}Ji»SRO .-ENABLE MEM MGMT 

#60,a*SR3 .SETUP SR3 

SP.y/mON :SET MEM MGMT ON IND = ON 

airEftRVEC+2 

#ENDMEH,a#ERRVEC;SET TIME OUT TRAP VECTOR 
a#CACHVEC*2.R1 ;SAVE CACHVEC PSW 
a»CACHVEC*2 

#ENDMEH,a#CACHVEC ;SET UP CACHE VECTOR FOR HOLE 



«100000,R2 
#0.R0 



*1 27776, R3 
RO. (R3) 

#ERPRT,«MrERRVEC 
R1,a»CACHVEC*2 
#.PARSRV,airCACHVEC 

a^jonoN 



SETUP GENERAL REGISTERS 
DATA WILL BE RELOCATED FROM 
ADDRESS IN RO TO ADDRESS IN R2 AFTER MAPPING 
SELECT PAR5 ♦ 2K (14K TOTAL REQUIRED) 
TRAP TO ENDMEM IF INSUFFICIENT MEMORY 
RESTORE ERROR TRAP VECTOR 



.•RESTORE CA- ' VECTOR 



• * ************************************************************** 

S8TTL RELOCATION ROUTINE 

THIS ROUTINE IS USED TO RELOCATE THE 9 SUBTESTS UP TO 28K. 
IF RELOCATION BY AN I/O DEVICE IS SELECTED. CONTROL IS PASSED 
TO THE I/O MONITOR. 
ENTER WITH: 

FRSTAOsPHYSICAL ADDRESS OF FIRST CODE 
FACTOR^NUMBER OF BYTES ABOVE BASE CODE 
R2 =LAST PHYSICAL ADDRESS OF THE SECTION 
EXIT TO I/O MONITOR WITH: 

OLDeASE=FIRST PHYSICAL ADDRESS TO BE RELOCATED 
N«ASL =fIRST PHYSICAL ADDRESS TO RELOCATE TO 
lOUC =TUO'S COMPLIMENT WORD COUNT 



135174 RELOC 



BIT 

BNE 

TST8 

BNE 

MOV 

MOV 



#su6.a$swRP 

EXITRE 
a«MMON 

EXITRE 
a»fRSTAD,RO 
R0.R5 



.•LAST ADDRESS IS IN R2 



MOV 
MOV 
SUB 



R2.R3 
R2.R4 
R0.R4 



IS RELOCATION DISABLED? 
BRANCH IF YES 
IS MEMORY MGMT ON? 
BRANCH IF YES 

GET FIRST ADDRESS TO BE RELOCATED 



.SAVE LAST ADDRESS 
:R4 NOW HAS BYTE COLMT 



Qicc-E POP 1W7C rpu ExERCI:FR WAfyil 
OKCE.PII 12-mft-8C 11:27 
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SEO 0167 



1908 
1909 
1910 
1911 
1912 
1913 
19U 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
194'; 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1%1 
1962 
11963 



044074 
044100 
044104 
044106 
044112 
044116 
044120 
044124 
044126 
044130 
044134 
044142 
044144 
044150 
044154 
044160 
0*.4162 
044164 
044170 

044174 
044176 
044200 
044202 
044206 
044210 
044214 
044220 
044224 
044226 
044230 
044232 
044234 



044236 
044244 
044252 
044256 
044260 
044264 
044270 
044274 
044302 
044304 
044310 
044316 
044322 
044330 
044334 
C44336 



010437 
0C5737 
001004 
010237 
013702 
060204 
020437 
101042 
160204 
005037 
032777 
001414 
010037 
010237 
005037 
006204 
005404 
010437 
000167 

012022 
020003 
001375 
004737 
102010 
010037 
010237 
004737 
104006 
000401 
010207 
01 1 707 
000000 



012737 
012737 
013705 
005004 
073427 
010537 
010437 
032777 
001002 
000167 
012737 
005037 
012737 
005037 
005002 
C32777 



001606 
001604 

044234 
001612 

001614 



001604 
000400 

001636 
001640 
001642 



001644 
000122 



062660 

001352 
001572 
062556 



135102 



MOV 
TST 
BNE 
MOV 
flOV 

It: ADD 
CMP 
BHI 
503 
CLR 
BIT 
BEO 
MOV 
MOV 
CLR 
ASR 
NEG 
MOV 
JMP 
.•RELOCATE BY 
RELNIO: MOV 
CMP 
BNE 
JSR 
BVC 
MOV 
MOV 
JSR 
ERROR 
BR 

EXITRE: MOV 
NOMEM: MOV 
RETPC: .WORD 



R4,anFACT0R 
a«FACTOR 
IS 

R2,a#RETPC 
arFRSTMEM,R2 
R2,R4 

R4,a«LSTMEM 
NOMEM 
R2.R4 

FACTOR 
#SW8,a$SWRP 
RELNIO 
R0,a#OLDBASE 
R2,a«NWBASL 
a«NUBASH 
R4 
R4 

R4,a(ri0WC 
ENTER2 

CPU-MEMORY MANAGEMENT OFF 
(R0)+.(R2)+ 
R0,R3 
RELNIO 
PC.arCHKDAT 
EXITRE 
RO,a*$TMPO 
R2,a«VADR 
PCarCNVADR 
6 

NOMEM 
R2.PC 
(PC) .PC 



SAVE BYTE COLWT 

FIRST RELOC IS TO EN0TA6*2 

BRANCH IF NOT EXECUTING BASE CODE 

SAVE RETURN PC TO NEXT SECTION 

GET FIRST ADDRESS TO RELOCATE TO 

R4 NOW CONTAINS LAST MEM ADDRESS 

ENOUGH MEMORY? 

BRANCH IF NO 

R4 NOW HAS BYTE COCMT 

INHIBIT RELOC BY I/O DEVICE? 
BRANCH IF YES 
SAVE STAAT ADDRESS 
SAVE NEW BASE ADDRESS 

MAKE IT A WORD COUNT 
GET TWO'S COMPLIMENT 
SAVE R4 AS WORDCaWT 
GO TO I/O MONITOR 

RELOCATE CODE 
DONE YET? 
BRANCH IF NO 
GO CHECK DATA 

SAVE RO FOR TYPE OUT 
SAVE R2 

CONVERT R2 TO A PHYSICAL ADR 



GO EXECUTE RELOCATED CODE 
GO TO NEXT SECTION 
CONTAINS PC OF NEXT SECTION 



0 

**************************************** 

'.SBTTL I/O RELOCATION MONITOR 

THIS ROUTINE IS USED TO SCHEDULE I/O DEVICES FOR SUBTEST 
RELOCATION AND PROGRAM RELOCATION. THE I/O DEVICE UNIT 
;* NUMBER IS DETERMINED, THE BUS ADDRESS CALCULATED, THE WORD 

COUNT CALCULATED AND PASSED TO THE DEVICE HANDLER. 
*************************************************************** 

.•SETUP ERROR LOOP 

SETUP R4 AND R5 
TO FORM 22 BIT ADDRESS 
FORM 22 BIT ADDRESS 
SAVE LOWER 16 BITS 
SAVE UPPER 6 BITS 
RELOCATE VIA I/O? 
BRANCH UF YES 
60 RELOCATE VIA CP 
SET WORD COUNT TO 2K 

SETUP RUN TABLE INDEX 

CLEAR LEGAL DEV FLAG 
INHIBIT ROUND ROBIN? 



044244 


001262 


lOMON: 


MOV 


#1$,anLPERR 


000000 


001636 


1$: 


MOV 


#o,araD6ASE 


001616 






MOV 


a#NEXPAR.R5 








CLR 


R4 


000006 






ASHC 


»6,M 


001640 






MOV 


R5,arM«ASL 


001642 






MOV 


R4,»rNUBASH 


000400 


134742 




BIT 


«sw8,a$swRp 








BNE 


2$ 


001444 






JMP 


RELOCP 


174000 


001644 


2S: 


MOV 


#1 74000. a# I owe 


001356 




ENTER2: 


CLR 


»r$TMP2 


177776 


001654 




MOV 


#-2.a#RNTBINX 


001352 






CLR 


a#$TMPO 








CLR 


R2 


000040 


134700 


41$: 


BIT 


#sw5.asswRP 



reoKC-f POP 

CEQKCE.P11 



11/70 CPU EXERfi:£R 
12-mR-80 11:27 
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SEQ 0168 



119W 
11-^5 
11966 
11967 
11968 
11969 
11970 
11971 
11972 
11973 
1197A 
11975 
11976 
11977 
11978 
11979 
11980 
11981 
11982 
■1983 
11984 
11985 
11986 
11987 
11988 
11989 
11990 
11991 
11992 
11993 
11994 
11995 
11996 
11997 
11998 
11999 
12000 
12001 
12002 
12003 
12004 
12005 
12006 
12007 
(1) 
(1) 
(1) 
12008 
12009 
12010 
12011 
12012 
12013 
(1) 
(1) 
(1) 



04A34A 
04A346 
04A352 
044 354 
044362 
044370 
044374 
044400 
044402 
044406 
044414 
044416 
044424 
044432 
044436 
044444 
044450 
044456 
044460 
044462 
044470 
044472 
044476 
044500 
044504 
044506 
044510 
044512 
044514 
044520 
044524 
044526 
044530 
044532 
044534 
044536 
044540 
044544 
044546 
044552 
044560 
044566 
044570 
044572 
044576 

044616 
044616 
044620 
044624 
044626 
044632 
044634 
044640 

044662 



001416 

005737 

001027 

117737 

042737 

006337 

005237 

000414 

012705 

022737 

001003 

012737 

062737 

013703 

012737 

012704 

133763 

001405 

005202 

133763 

001516 

006337 

077414 

005737 

001013 

077541 

005702 

001442 

012704 

012701 

105021 

005201 

077403 

000701 

005702 

001403 

105063 

000732 

010367 

062767 

017767 

104400 

000000 

104400 

000407 



000637 
105737 
001016 
005227 
001013 
104400 
000410 



001352 

134664 
177770 
001650 
001352 

000010 
000016 

1 77776 
000002 
001650 
000401 
000010 
001354 



001355 
001354 
001352 



000010 
001713 



00(713 

000016 
064572 
000004 



044600 

001602 
1 77777 
044642 



001650 
001650 



50$: 

001650 40$: 

001650 48$ 
001650 42$ 
43$ 

001354 

001712 44$: 



001713 



52$: 



000010 
000002 



47$: 



45$: 



49$: 



60$: 



;;65$: 
64$: 

46$: 



;;67$: 
66$: 



BEO 
TST 
BNE 

nov8 

BIC 
ASL 
INC 
BR 

nov 

CMP 
BNE 

nov 

ADD 

nov 
nov 
nov 
riTB 

BEO 

INC 

BITS 

BEO 

ASL 

SOB 

TST 

BNE 

SOB 

TST 

BEO 

nov 
nov 

CLRB 
INC 
SOB 
BR 

TST 
BEO 
CLRB 
BR 

nov 

ADD 

nov 

TYPE 
-WORD 
TYPE 
BR 

.ASCIZ 

BR 

TST8 

BNE 

INC 
BNE 
TYPE 
BR 

.ASCIZ 



50$ 

arsTnpo 

43$ 

a$syRP.a<rDEviNDx 

#1 77770. arOEVINOX 
affDEVINOX 

aMTnpo 

43$ 
#10,R5 

<r16,»rDEVlNDX 
42$ 

#-2,a*DEVINDX 

ir2.a<rDEViNDx 

a4DEVINDX,R3 

#40i,anTnpi 

#10,R4 ;SET SOB 

a»$TnPl.SYSSl7fc(R3) 

52$ 

R2 

a»$Tnpi +1 ,SYSSiZE*i (R3) 
11$ 

a#$Tnpi 

R4,44$ 

a#$Tnpo 

45$ 
R5,40$ 
R2 
46$ 
#10. R4 

iTSYSSIZE+l ,R1 

(RD* 

Rl 

R4.47$ 
4li 
R2 
49$ 

SYSSIZE*1{R3) 
43$ 

R3.60$ 

#MSGINX.60$ 

a60$.60$ 



BRANCH IF NO 
FLAG SET? 
BRANCH IF YES 

.-GET DEVICE FROM SWITCHES 
MASK LOWER 3 BITS 
ADJUST FOR WORD INDEX 
SET FLAG 
CONTINUE 
SET SOB COtNT 
LAST DEVICE YET? 
BRANCH IF NO 
INIT DEVICE INDEX 
INCREnENT INDEX 
GET INDEX 
INIT UNIT MASK 
COLNT 

IS THIS UNIT EXISTENT? 

8RANC»^ IF NO 

SET LEGAL DEVICE FLAG 

HAS IT BEEN USED? 

BRANCH IF NO 

SELECT NEXT UNIT 

CONTINUE 

INHIBIT ROUND ROBIN? 
BRANCH IF YES 
CONTINUE 

ANY DEVICES AT ALL? 

BRANCH IF NO 

SET SOB COJ^T 

GET ADR OF SIZE TABLE 

CLEAR ALL USED BITS 

IN ALL DEVICES 

CONTINUE 

WAS IT A LEGAL DEVICE? 
BRANCH IF NO 

CLEAR ALL USED BITS THIS DEV 



GEN nESSAGE ADR 



,65$ ;;TYPE ASCIZ STRING 

64$ ;;GET OVER THE ASCIZ 

/UNAVAILABLE/<CRLF> 



; AC Til? 

.•BRANCH IF YES 



ENTER2 

a#ov 

51$ 
*-1 
51$ 

,67$ ;;TYPE ASCIZ STRING 

66$ ;;6ET OVER THE ASCIZ 

?N0 I/O DEVICES?<CRLF> 



N 13 
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120K 


044662 


105737 


001601 




51$: 


TSTB 


a«nnoN 


MGMT ON? 


12015 


044666 


001012 








BNE 


61$ 


BRANCH IF rES 


12016 


044670 


013700 


001636 






MOV 


airOLD8ASE,R0 


RESTORE RO 


12017 


044674 


013702 


001640 






MOV 


ail'NUBASL,R2 


RESTORE R2 


12018 


044700 


013703 


001606 






MOV 


»r$FACT0R,R3 


GET RELOCATION FACTOR 


12019 




060003 








ADD 


R0.R3 


FORM LAST ADDRESS 


12020 


044706 


010005 








MOV 


R0,R5 


SETUP R5 


12021 


044710 


000167 


177260 






JMP 


RELNIO 


GO RELOCATE WITH CP 


12022 


044714 


012702 


100000 




61$: 


MOV 


«100000,R2 


SETUP REGISTERS 


12023 


044720 


005000 








CLR 


RO 


WITH FROM AND TO ADDRESS 


1202A 


044722 


000137 


045754 






JMP 


a«RELOCP 


RELOCATE VIA CP 


12025 


044726 


105763 


002006 




11$: 


TST8 


RP3HSTAT{R3) 


-IS HANDLER BUSY? 


12026 




100405 








BMI 


8$ 


-BRANCH IF NO 


12027 




005737 


001352 






TST 


aiy$TMPO 


-ROUND ROBIN? 


12028 


044740 


001372 








BNE 


11$ 


•BRANCH IF NO 


12029 




000167 


177370 






JMP 


41$ 




12030 




005763 


002006 




8$: 


TST 


RP5HSTAT(R5) 


•DID HANDLER FAIL? 


12031 


^t^7'i2 


100005 








8PL 


62$ 


•BRANCH IF NO 


12032 


^i.7'iL> 


005737 


001352 






TST 


a#$TMPO 


-ROUND ROBIN 


12033 


0^if760 


001402 








BEO 


62$ 


-BRANCH IF YES 


1203A 


044762 


000137 


045734 






JMP 


airi5$ 




12035 


044766 


153763 


001355 


001715 


62$: 


Bise 


a(ir$TMP1*1.SYSSIZE*1(R3) ;SET UNIT USED BIT 


12036 


044774 


005002 








CLR 


R2 




12037 


044776 


006037 


001354 




30$: 


ROft 


a*$TMP1 


: ENCODE THE BIT POSITION 


12038 


045002 


005202 








INC 


R2 .-INTO A UNIT NUPBER 


12039 


045004 


103374 








BCC 


30$ 




VOAQ 


045006 


005302 








DEC 


R2 




12041 


045010 


010237 


001652 






MOV 


R2,a«UNITN0 


;SAVE UNIT NUMBER 


12042 


045014 


013763 


001644 


002026 


10$: 


MOV 


a«IOWC,RP3HUC(R5) 


;GIVE WORD COUNT TO HANDLER 


120A3 


045022 


010304 








MOV 


R5,R4 




120A4 


045024 


072427 


000003 






ASH 


*5.R4 


■ENCODE DEVICE FOR RUNTABLE 


12045 


045030 


053704 


001652 






BIS 


a4rUNITNO.R4 


.•ENCODE UNIT NUMBER 


12046 


045054 


006304 








ASL 


R4 




12047 


045036 


062737 


000002 


001654 




ADD 


«2,a«RNTBINX 


.•INCREMENT RUN TABLE INDEX 


12048 


045044 


013702 


001654 






MOV 


arRNTBINX,R2 


;GET RUN TABLE INDEX 


12049 


045050 


110462 


001 733 






M0V8 


R4,RUNTBL+1(R2) 


; ENTER DEV ft UNIT IN TABLE 


12050 


045054 


013763 


001652 


002122 




MOV 


»rUNITN0.RP5UNIT(R5) 


.•GIVE HANDLER UNIT NltBER 


12051 


045062 


012737 


000240 


000012 




MOV 


irPR5,a#RESVEC+2 


.SETUP RESERVED VECTOR PSW 


12052 


045070 


016337 


002136 


000010 




MOV 


RP3HANA(R3) ,a#RESVEC 


.SETUP RESERVED VECTOR 


12053 


045076 


006303 








ASL 


R3 


.•ADJUST INDEX 


12054 


045100 


013763 


001656 


002042 




MOV 


a*0LD8ASE,RP50LD(R5) 


.•GIVE HANDLER OLD BASE ADDRESS 


12055 


045106 


013763 


001640 


002072 




MOV 


a«NUBASL,RP5NUL(R5) 


;GIVE HANDLER 


12056 


045114 


013763 


001642 


002074 




MOV 


a«NUBASH,RP5^MH(R5) 


.•NEW BASE ADDRESS 


12057 


045122 


005063 


002044 






CLR 


RP30LD+2(R5) 


.•ENSURE OLD BASE HIGH IS CLR 


12058 


045126 


000010 








CALLHANDLER 




12059 


045130 


105737 


001601 






TSTB 




;IS MEMORY MANAGEMENT ON? 


12060 


045134 


001416 








BEO 


15$ 


;BRANCH IF NO 


12061 


045136 


022737 


000014 


001654 




CMP 


#14,arRNTBINX 


.TRANSFERED 14K YET? 


12062 


045144 


001412 








BEO 


15$ 


.•BRANCH IF YES 


12063 


045146 


062737 


010000 


001656 




ADD 


*10000,a#OL DBASE 


.ADD 2K 


12064 


045154 


062737 


010000 


001640 




ADD 


/rlOOOO,a#NUBASL 


; TO BASE 


12065 


045162 


005537 


001642 






ADC 


a«NUBASH 


; ADDRESSES 


12066 


045166 


000137 


044556 






JMP 


a^4i$ 




12067 


045172 


113705 


001701 




15$: 


M0V8 


a*LTICKS*1,R5 


;GET SECOND COUNT 


12068 


045176 


062705 


000002 






ADD 


»2,RS 


; INCREMENT BY TWO 


12069 


045202 


162705 


000074 






see 


*60.,R5 


;ENSURE RESULT IS 59 OR LESS 



B H 
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12070 


045206 


100002 








BPL 


31$ 


12071 


045210 


062705 


000074 






ADD 


*60.,R5 


12072 


045214 


012700 


000010 




31$: 


MuV 


#10. RO 


12073 


045220 


005002 








CLR 


R2 


12074 
1207'i 


C45222 


005003 








CLR 


R3 


045224 


005004 








CLR 


R4 


12076 


045226 


066203 


002006 




14$: 


ADD 


RP3HSTAT(R2>.R3 


12077 


045232 


005504 








ADC 


R4 


12078 


045234 


062702 


000002 






ADO 


#2.R2 


12079 


045240 


077006 








SOB 


R0.14$ 


12080 


045242 


006103 








ROL 


R3 


12081 


045244 


005504 








ADC 


R4 


12082 


045246 


022703 


004000 






CUP 


#4000, R3 


12083 


045252 


001406 








BEO 


32$ 


12084 


045254 


123705 


001701 






CMP6 


a#LTICKS+l ,R5 


12085 


045260 


001355 








BNE 


31$ 


12086 


045262 


104015 








ERROR 


15 


12087 


045264 


000177 


133772 






JMP 


a$LPERR 


12088 


045270 


005704 






32$: 


TST 


R4 


12089 


045272 


001402 








BEO 


82$ 


12090 


045274 


000167 


000434 






JMP 


15$ 


12091 


045300 


105737 


001601 




82$: 


TST8 


a#nioN 


12092 


045304 


001012 








BNE 


25$ 


12093 


045306 


013705 


001636 






MOV 


a#0LDBASE,R5 


12094 


045312 


010500 








MOV 


R5,R0 


12095 


045314 


063700 


001606 






ADD 


a#$F ACTOR. RO 


12096 
















12097 


045320 


013702 


001640 






MOV 


a#NUBASL.R2 


12098 


045324 


063702 


001606 






ADD 


a»$F ACTOR. R2 


12099 
















12100 


045330 


000411 








BR 


22$ 


12101 


045332 


012700 


070000 




25$: 


MOV 


#70000, RO 


12102 


045336 


012702 


110000 






MOV 


#11 0000, R2 


12103 


045342 


013737 


1 72352 


172350 




MOV 


a#KlPAR5 ,3#KIPAR4 


12104 


045350 


012705 


002414 






MOV 


#$ERRTB,R5 


12105 


045354 


004737 


062660 




22$: 


JSR 


PC,a#CHKDAT 


12106 


045360 


102413 








BVS 


81$ 


12107 


045362 


105737 


001254 






TST8 


a#$£RFLG 


12108 


045366 


001002 








BNE 


83$ 


12109 


045370 


000167 


000466 






JMP 


EXIT 


12110 


045374 


052777 


001000 


1 33642 


83$: 


BIT 


#SW9.a$SWRP 


12111 


045402 


001473 








BEO 


100$*2 


12112 


045404 


000167 


000250 






JMP 


20$ 


121 13 


045410 


005001 






81$: 


CLR 


R1 


12114 


045412 


010037 


001352 






MOV 


R0,a#$TMP0 


12115 


045416 


010237 


001572 






MOV 


R2,a#VADR 


12116 


045422 


010003 








MOV 


R0.R3 


12117 


045424 


005004 








CLR 


R4 


72118 


045426 


105737 


001601 






TST8 


aifwoN 


121 19 


045432 


001406 








BEO 


16$ 




Ay c/ Tj 




0 lUOOO 




1 /»: 


SUB 


#10000. R3 


12121 


045440 


100403 








BMI 


16$ 


12122 


045442 


062704 


000002 






ADD 


#2.R4 


12123 


045446 


000772 








BR 


17i 


12124 










:R4 NOW 


CONTAINS INDEX OF ERROR F 


12125 


045450 


116404 


001733 




16$: 


M0V8 


RUNTBL^1(R4).R4 



COMJ WAS LESS TKAN 58-RESTOPE 
SET SOB COIMT 



;ADD ALL THE HANDLER 
.STATUS WORDS. WHEN ALL 
.-TRANSFERS ARE FINISHED 
.RESULT yiLL BE 2000 
.•(WITHOUT ROTATE) 

;ALL DONE? 

.•BRANCH IF YES 

.TWO SECONDS ELAPSED YET? 

.-BRANCH IF NO 

.•DEVICE HUNG 

.-RESTART RELOCATION 

.ANY DEVICE ERRORS'* 

.•BRANCH IF NO 

.-ERROR 

.-MEM MGMT ON? 

.•BRANCH IF YES 

.•SETUP R5 FOR DATA CHECK 

;GET LAST ADDRESS 
;0F GOOD DATA 

.GET LAST ADDRESS 

;0F DATA TO BE CHECKED 

.•CONTIWJE 

;GET LAST ADR ♦ 2 OF GOOD DATA 

.GET LAST ADR ♦ 2 OF DATA TO BE CHECKED 

.SET UP PAR4 FOR TOP 4K BANK 

.-DON'T CHECK BELOW $ERRTB 

;G0 CHECK DATA 

.-BRANCH IF ERROR 

.ANY ERRORS? 

.•BRANCH IF YES 

.RETURN 

.-LOOP ON ERROR? 

.-BRANCH IF NO 

:G0 DO FUNCTION AGAIN 



.SAVE ERROR ADDRESS 

;IS MEM MGMT ON? 
.•BRANCH IF NO 

.SUBTRACT 2K FROM ERROR ADDRESS 
.BRANCH IF BLOCK IS FOUND 
. COIWT ONE MORE BLOCK 
.•CONTINUE 
TIME TABLE 

.-GET DEVICE THAT FAILED 



reotcc-E POP 
CEQKCt.PII 
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C U 
PAGE 



SEO 0171 



12126 

12127 

12128 

12129 

12130 

12131 

12132 

12133 

12134 

12135 

12136 

12137 

12138 

12139 

I2H0 

I2U1 

'2U2 

I2H3 

I2KA 

I2K5 

I2U6 

I2U7 

I2U8 

I2U9 

12150 

12151 

12152 

12153 

12154 

12155 

12156 

12157 

1 21 58 

12159 

12160 

12161 

12162 

12163 

12164 

12165 

12166 

12167 

12168 

12169 

12170 

12171 

12172 

12173 

121 74 

12175 

12176 

12177 

12178 

12179 

12180 

12181 



045454 
045460 
045462 
045464 
045470 
045472 
045476 
045502 
045506 
045510 
045514 
045522 
045526 
045530 
045534 
045536 
045544 
045546 
045550 
045552 
0^,5556 
045560 
045564 
045570 
045572 
045600 
045604 
045610 
045612 
045614 
045622 
045624 
045630 
045632 
045640 
045642 
045650 
045654 
045656 
045660 
045666 
045674 
045676 
045702 
045704 
045710 
045712 
045714 
045716 
045722 
045730 
045732 

045734 
045736 
045740 



042704 
006204 
005005 
073427 
010500 
072027 
042700 
010037 
010403 
010337 
012737 
162705 
103403 
006137 
000772 
012737 
005701 
001010 
104010 
105737 
001002 
000137 
000137 
104007 
042763 
105037 
022703 
002405 
003016 
112777 
000412 
022703 
001004 
052777 
000403 
052777 
105737 
001343 
000740 
052763 
016337 
000010 
105763 
100375 
005763 
100712 
005701 
001002 
000167 
052777 
001353 
000717 

005004 
010601 
005764 



177400 



177775 

177763 
1 77770 
001360 

001356 
000001 
020000 



001354 



001354 

045660 001262 

001601 

044316 
044236 

100000 002006 

001254 

000002 

000001 134414 
000012 

000040 134464 

000040 134414 
001601 

000400 002006 

002136 000010 

002006 

002006 



177352 

001000 1333U 



19$: 



18S: 



71$: 
70$: 
100$: 



90$: 



91$: 
92$: 



20$: 
21$: 



001750 



80$: 



.-THE 
15$: 

24$: 



BIC #1 77400, R4 

ASR R4 

CLR R5 

AShC #-3.R4 

MOV R5.R0 

ASH *-15,R0 

BIC #1 77770.ro 

MOV R0.a(r$TMP3 

MOV R4,R3 

MOV R3.*r$TMP2 

MOV #1 ,a(r$TMPi 

SUB #200OO.R5 

BCS 18$ 

ROL a(r$TMPi 

BR 19$ 

MOV #20$,a#$LPERR 

TST R1 

BNE 100$ 

ERROR 10 

TSTB aWTION 

BNE 70$ 

JMP a(rENTER2 

JMP a*I0M0N 

ERROR 7 

BIC *8IT15,RP3HSTAT(R3) 

CLRB aWERFLG 

CMP #2.R3 

8LT 90$ 

BGT 92$ 

M0V8 #1,aRKCS 

BR 92$ 

CMP #12,R3 

BNE 91$ 

BIS «BIT5,aRSCS2 

BR 92$ 

BIS «BIT5,aRP4CS2 

TSTB aWflON 

BNE 70$ 

BR 71$ 

BIS #8IT8,RP5HSTAT(R3) 

MOV RP3HANA(R3),a#RESVEC 

CALLHANDLER 

TST8 RP3HSTAT(R3) 

BPL 21$ 

TST RP3HSTAT(R3) 

18$ 

TST Rl 

BNE 80$ 

JMP 32$+4 

BIT 4lBIT9,a$SWRP 

BNE 20S 
BR 



ENSl«E HIGH BYTE CLEAR 
THROW AUAY LS8 
ENSURE R5 CLEAR 
GET UNIT NLMBER IN R5 



.AND DEVICE INDEX IN R4 I R3 



.-ENCODE 3 BIT UNIT NO INTO 
ONE BIT IN THE LOW BYTE Of $TMP1 
BRANCH IF DONE 
SELECT NEXT UNIT 
CONTINUE 

SETUP LOOP RETURN 
DEVICE ERROR? 
BRANCH IF YES 
DATA CHECK ERROR 
MGMT ON? 
BRANCH IF YES 



CLEAR THE ERROR 

RIC05 ERROR? 
BRANCH IF RH70 
BRANCH IF RP03 
RK CONTROLLER CLEAR 

RS04? 

BRANCH IF NO 

CLEAR RS CONTROLLER 

CI EAR RP04 CONTROLLER 
MGMT ON? 
BRANCH IF YES 

.-SET REPEAT FLAG IN HANDLER 
.SETUP RESERVED INSTRUCTION VECTOR 

HANDLER FINISHE''? 
BRANCH IF NO 
ANY ERROR? 
BRANCH IF YES 
DEVICE ERRORS 
BRANCH IF YES 
GO CHECK DATA 
STILL LOOPING? 
BRANCH IF YES 
CONTINUE TEST 



100$*2 

FOLLOWING CODE HANDLES DEVICE ERROR ON RELOCATION 
CLR R4 .-SET INDEX 

MOV SP.R1 

TST RUNTRAK(R4) .-SEARCH FOR DEVICE ERROR 



CEQUC-E POP 
CEQKCE.P11 



12182 
12183 
12184 
]185 
)186 
12187 
12188 
12189 
12190 
12191 
12192 
12193 
12194 
12195 
12196 
12197 
12198 
12199 
12200 
12201 
12202 
12203 
12204 
12205 
12206 
12207 
12208 
12209 
12210 
12211 
12212 
12213 
12214 
12215 
12216 
12217 
12218 
12219 
12220 
12221 
\2222 
\222^ 
\222U 
\222'> 
12226 
12227 
12228 
12229 
12230 
12231 
12232 
12233 
12254 
12235 
12236 
12257 
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SEQ 0172 



045744 


4 AA^ y 1 

100641 

A^ ^^Ay 

062704 








eni 


045746 


AAAAA'^ 

000002 






ADD 


045752 


000772 








BR 










.RELOCATE 8 


045754 


012703 


A4 AAAA 

010000 




RELOCP: 


w\ 


045760 


012022 






1>: 


no. 


045762 


077302 








SOB 


045764 
0^5772 


023737 


1 72350 


\725bd 




CWP 


AA4 y 4 y 

001414 








A 

BEO 


045774 


/\y ^^^^ 

062737 


AAA'^AA 

000200 


i '^'^TCA 

i/?350 




A Aft 

ADD 


Ay ^ /\A'^ 

046002 


01 2702 


4 AAAAA 

100000 






MOV 


Ay ^AA^ 

046006 


A'^ T'^T'^ 

025757 


172350 


1 fc5bc 




CMP 


Ay ^ A1 y 

046014 


AAi TC 

001357 








BNt 


0*(6016 


Ai •^'^AT 

0 1^/03 


AA/ AAA 

OOhUOO 






MOV 


046022 


AAA^C^ 

000756 








BR 


046024 


A1 "^TAC 

01 2 '05 


AAIAAZ. 

002006 




2S: 


nOv 


046030 


004737 


Aa i^z.a 

062660 






JSR 


046034 


102012 








BvC 


Ay ^AT^ 

046036 


010037 


AAi TC^ 

001352 






nOv 


/\y ^Ay 

046042 


A^ A'^T V 

01025/ 


AAI 

001572 








Ay ^ A/ Z 


« Ay AA^ 

•04006 








ERROR 


/\y ^ACA 

046050 


A-1 T^fy 
013/3/ 


AAI i 

0016 lo 


1 fc5D{j 




MOV 


046056 


AAAI 

00016/ 


1 />666 






JMP 


046062 


1 AC "7^ "7 


AAi ^Ai 

001 oUl 




EXIT: 


TST8 


Ay ^ A^ ^ 

046066 


AA1 AA^ 

00100? 








BNE 


046070 


000137 


044230 






JMP 


046074 


062737 


Ay\AAT^ 

000077 


AA4 ^ 4 ^ 

001616 




ADD 


046102 


013737 


172350 


172340 




MOV 


046110 


063737 


172350 


172342 




ADD 


046116 


063737 


172350 


172344 




ADD 


046124 


063737 


172350 


1 72346 




ADD 



046132 
046136 
046142 
046146 

0461 S2 
046156 
046162 
046166 
046172 
046174 
046200 



046202 
046204 
04O210 



16S 

#2-R4 

24i 

\i-#€MORY MANAGEMENT ON 
#4096.. R3 
(R0)*.(R2)* 
R3.1$ 

aMClPAR4.a«KlPAR5 
2S 

#200.a#KIPAR4 

#100000. R2 

a«KIPAR4.a#KlPAR5 

RELOCP 

#2048.. R3 

1S 

#RP3HSTAT.R5 ; DON'T 

PC.MrCHKDAT 

EXIT 

RO,a#$TMPO 
R2,a#VADR 

6 

a«NEXPAR,a#KlPAR4 

RETRY 

a«MMON 

.♦6 

a#£XITRE 

#77. a#NEXPAR 

a#KIPAR4,a#KlPAR0 

a#KIPAR4.a#KlPARl 

a#KIPAR4.a#KlPAR2 

a#KIPAR4.a#KIPAR3 



.-BRANCH IF ERROR 
.-INCREMENT INDEX 
.CONTINUE SEARCH 

;4K COUNTER 

.•RELOCATE CODE 

;BR IF NOT DONE 4K WORDS 

.-DONE 16K YET? 

;8R IF DONE 

.-MAP TO NEXT 4»( SPACE 

.-MAP WITH R2 (PAR4) 

.-DOING LAST 4K BANK'' 

;8R IF NOT 

.-2K COlWTfcR 

.-RELOCATE LAST 2K ONLY (14K TOTAL) 
CHECK BELOW RP3HSTAT 
.•CHECK DATA 



.RESTORE PAR4 

;MEM MGMT ON? 
.-BRANCH IF YES 

.-SET VALUE FOR NEXT RELOCATION 



013700 
072027 
110037 
012706 

005037 
016746 
012746 
105737 
001402 
012716 
000002 



022626 
005037 
042737 



172340 
177771 
001253 
001200 

177776 
1 75200 
010000 
001600 

043326 



177572 
000020 



PROGRAM IS NOW EXECUTING IN KERNEL MODE RELOCATED TO ADDRESS AS SPEC- 
IFIED IN KJPARO. FOR EX. IF K1PAR0=1600 THEN PROGRAM EXECUTING AT 
ADDRESS 160000* (PC ; 



IS: 



MOV a#KIPAR0,R0 

ASH #-7,R0 

MOVB RO.anTSTMl*! 

MOV #KERSTK.SP 

CLR a#PSW 

MOV OL0PSW,-(SP) 

MOV #LOOP.-(SP) 

TST8 aiNEXEC 

BEO 1$ 

MOV #STMM.(SP) 

RTI 



GET PARO 
GET BITS <14:7> IN LOW BYTE 
PUT IN DSPLAY REG HIGH BYTE 
SET KERNEL STACK PTR 



.-RESTORE OLD PSW 

.-BRANCH If TEST CODE TO 
;8E EXECUTED 

.•RESTART PROGRAM AT LOOP 



172516 



.-WHEN RELOCATION /«OVE 28K IS COMPLETE PROGRAM TRAPS TO ENOMEM. 
ENDMEM: CMP (SP)*.(SP)* .POP STACK TWICE 
ENDM: CLR a#SRO .'DISABLE MEM MGMT 

BIC #8IT4,a#MMR3 .CLEAR 22 BIT MODE 



AT THIS TIME A 'SUB-PASS' HAS BEEN COMPLETED. 

PROGRAM NOW EXECUTING IN KERNEL MODE AT PC AS SHOWN (NO RELO^'ATION) 



CEQKC-E t>OP 11/70 CPVJ ExERCI^fR HACvn 



30A(1052; 12-«AR-80 11:30 
I/O RELOCATION MCNiTOR 



E U 
PAGE 



47-U8 





v)<i6^ 6 


AT 5777 


000/00 


'??59 




^hAC 777 
005/5/ 


AA7^/ / 






AA1 y A I 

001'»U3 




1 T3/ 1 
l^^A 1 


A/ ^ 1 T '3 


A1 5777 


AA 1 iLAA 


^ 'i'ij J 




1 ACA77 

10505/ 


AAi ^A 1 

001 o'J^ 


5 




























































'M 57 17 

01 d'J' 


A/./ / 00 




A/ ^TC 1 


A1 5777 

01 df 3/ 


AX 7il.1 X 




f\j J ^^A 


A1 A1 77 

0101 5/ 


AAA1 1 iL 
OW 1 1 6 






AAC A77 


1 7777X 


1 IOC/ 




AA/ 7iL7 


A1 CA5A 




A/ iL 57/ 


A1 5 7AA 


AA1 OAA 


I ccm 




A75777 

Uj*:/ / / 






A/ /, TfruL 


AA1 77/ 






0*»o>IO 


1 AC 077 


f\f\^ A7A 


1 T 'JCQ 


A/ / 


1 1 77A0 


AA1 A7A 




A/ X.75A 


1i^07A0 


AAA AAA 


It: CO I 


r\i jL 75/ 


A007nO 


AAA AAA 


1 dcoc 


A/ <^7Tr\ 


AA1 A1 7 




I fdti 5 


A/ ^^TTO 


A1 0777 




1 OOds./ 
\ dcO** 




AA^n77 


1 777^r> 
\ I I I OU 


1 'D'JAC 
1 CiTO J 


A/ i 


AACA77 


AA1 71 A 


1 OO^^ 


A/ <^7^A 






1 ddOf 


A/ <^7^ 5 


A1 07/.A 


A/ t^Lt^C\ 


1 7 7^.11 
1 <ct30 


A/ ^TCA 


A/VW^O 




iddoy 


A/ iL Tit A 


Arut7A5 




\ccf\) 


A/ i^T/LO 


A1 0777 


AA1 C7A 
(A) 1 0 ' U 




A/ A77A 


A1 0777 


AA1 A07 


1 'i'bTJ 
\CC'C 


A/ it77i^ 


1 n/L077 


1 7071 0 


1 ■5577 
ICKf J 


/V i^/ no 


A1 AO/.A 


AAZ.C1 A 
UOhO 10 




A/ X/ 


A1 07AA 

U ic/*»o 


A1A/W4 

UlUUUU 






A1<l077 

U 1 odji 




1 557/L 


A/ U 0(\ 


A1 X.077 


AA/ C70 
UOh J JC 


1 0077 
ICC' f 


V/*«0*«CO 


1i'(^777 


<V11 ArtO 
vv 1 OUc 


ICC'O 




nni ni i 

Kaj I U I I 






A/./L/ 7Z. 


1 00777 
\ddl f 1 


AA/^OAA 


1 5 OfiA 




A/11 771 
UU 1 j/ 1 








m 0777 


rtAIAAl 
UOOhhO 


1 oono 
\cdoc 


Ay <L/C5 


1 n/>077 


1 70A7A 










1 OOB/. 








1 OOBQ 








ICCOD 








/I \ 
C 1 > 








r 1 1 








(1) 








(1) 








(1) 








(1) 








(1) 









001616 

0016^6 



2\: 



nov «70o;a«NExPAR 

TST afPROT 

BEQ 2$ 

nov #1600,a«NEXPAR 

CLRB aiWON 



.RESET NEXT VALUE FOR PAR REGISTERS 



.-SET HEH MGMT ON INO - OFF 



S8TTL END OF SUB-PASS ROUTINE 

THIS ROUTINE SETSUP THE PSW AND MAINTENANCE REGISTERS 
• FOR THE NEXT SUB-PASS. IT THEN STARTS THE PRINTER 

(IF NOT ON ACT11) FOR TYPING THE END OF SUB-PASS MESSAGE, 



OOOOOA 
0001 u 



133006 



END: 
END1 



1$- 



001630 



OOOOH 
001340 



001710 
177750 



132652 
001 340 



2$: 



3$: 



RTI1 



MOV 


#ERPRT.a#ERRVEC 




nov 


#.PARSRV.a(rCACHVEC .RESTORE CACHE PARITY VECTOR 


nov 


Rl,*rCACHVEC*2 


;AND PSW 




a«psu 


.CLEAR nODE BITS IN PSW 
;G0 CLEAR 'T' BIT IF SET 




PC.CLRTBIT 


nov 


#KERSTK,SP 


.SET KERNEL STACK PTR 


BIT 


#100,a$TPS 


.•CHECK IF OUTPUT DFVlCE IS BUS> 


BNE 


.-6 


;IS AVAILABLE 


INCB 


a^rSUBPASS 




novB 


airSUBPASS,R2 




SUB 


#60. R2 




CMP 


#6.R2 


;END OF TEST? 


BNE 


2S 


.•BRANCH IF NOT AT END 


nov 


#60.»rSUBPASS 


;INIT SU8PASS COUNT TO ASCII 0 


CLR 


aumiNT 


.CLEAR MAINTENANCE REG 


CIR 


afSMAINT 


.CLEAR SOFTWARE VALUE 


CLR 


-(SP) 




nov 


mop.-(sp) 




RTI 






ASL 


R2 




nov 


#$RTRN.a(»TBITVEC .SET 'T* TRAP VECTOR 


nov 


#SUBPASS-1 ,anREG5 


ASR8 


aSTPs 




nov 


PSUTAB(2>.-(SP) 


.-PUSH NEXT PASS PSW ON STACK 


nov 


#LOOP.-(SP) 


.-RESART PROGRAM AT LOOP 


nov 


nR6TAB(R2) .a^SMAINT 


nov 


nR6TAB(R2),a«nAINT 


TST8 


aMv 


;0V PASS? 


BNE 


RTIl 


.•BRANCH IF YES 


CMP8 


#200.a$TPs 


.IS PRINTER READY? 


BNE 


3$ 


.BRANCH IF NO 


nov 


#nSG20-1 .*r$REG! 


ASR8 


aSTPS 


;TYPE E^O SUBPASS MESSAGE 


RTI 




.•RESTART PROGRAM AT LOOP WITH NEW PSW 




.-(FROM TABLE BELOW) 


END OF 


PASS ROUTINE 





.S8TTL 

•INCREMENT THE PASS NUMBER ($PASS) 

*TYPE 'tND PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYYY* 
*WHERE XXXXX AND YYYYY ARE DECIMAL NLWBERS 
•IF THERES A MONITOR GO TO IT 



CEQKC-E POP 
CFQKCE.P11 



(l: 

(i; 

(1, 

(2) 

(1 

n 

(1 

n 

(1 , 

(1 

(1 

(1 

(1 

n, 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(?) 

(2) 

(2) 

(?) 

(2) 

(2) 

(2) 

(1 

(1, 

(i: 

(i: 

(i: 

(i: 

(i: 

(i: 

(1 

(1 

(1 

(i: 

(i: 

12287 
12288 
12289 
122O0 
12291 
^2292 
12293 
12294 
12295 
12296 
12297 
12298 
12299 
12300 
12301 



11/70 CPU exerci:fr MACVII 

12-WAR-80 71:27 



30A(1052) 12-MAR-80 11:30 
END OF PASS ROUTINE 



F K 
PAGE 



<,7-U9 



SEO 0174 



046672 
046674 
046700 
046706 
046710 
046712 
046716 
046724 
046732 
046734 
046736 



104420 
105037 
032737 
001403 
104422 
000137 
013737 
032777 
001403 
005000 
005001 



002006 
000400 



050544 
001654 
000020 



.••IF THERE ISN'T JUMP TO LOOP 



046460 








046460 


004737 


056632 




046464 


f\d\e f\d 

005067 


1 32562 




046470 


f\d\e f\d ^ 

005067 


132702 




046474 


005267 


132550 




046500 


04i;767 


100000 


1 32542 


046506 


005327 






046510 


000001 






046512 


003063 






046514 


012737 






046516 


000001 






0465C0 








Ay 

046522 


104400 


Ay C TA 

046530 




046526 


000407 






046546 








046546 


016746 


132476 




04655<r 


1 Ay y 1 A 
104410 






Ay ^ C C / 

046554 


1 A/ / AA 

104400 


Ay ^ o 
04656^ 




Ay XCiLA 

0*»656(j 


AAAy 01 

0004 if 1 






Ay ^iL. "5/ 

0466^4 








Ay ^jcoy 


A 1 ^ 7/ ^ 


1 Toy 7/ 
1 3^4 54 




Ay d^L. lA 
046630 


1 Ay y 1 A 






Ay ^^TO 

0466j<: 


1 Ay y AA 
104400 


AA 1 / A 7 

00140/^ 




Ay 1^14^ 
046636 


00506r 






Ay LJU ") 
046o4<r 


A1 770/^ 

01 3/^00 


0001/4^ 




Ay iLAV 

0*»6o46 


AA1 y AC 

001405 






Ay iCWLCA 

046650 


AAAAAC 
000005 














046654 


000240 






046656 


000240 






046660 


000240 






046662 








046662 


000137 


010000 




046666 


377 


377 


000 




0^6672 







$E0P: 



SEOPCT: 



SENDCT: 



;;65$: 

64 S: 



JSR 

CLR 

CLR 

INC 

BIC 

DEC 

.WORD 

BGT 

MOV 

.WORD 

SEOPCT 

TYPE 

BR 

.ASCIZ 
MOV 



PC,a*TYPTIME 
JTSTNM 
STIMES 
SPASS 

#100000, SPASS 

(PC)* 

1 

SDOAGN 

(PC)*.a(PC)* 
1 



ZERO THE TEST NU»B£R 

ZERO THE NUMBER OF ITERATIONS 

INCREMENT THE PASS NUMBER 

DON'T ALLOW A NEG. Nl^ER 

LOOP? 



• 'YES 

; [-RESTORE COUNTER 



,65$ ;;TYPE ASCIZ STRING 

64$ ;;GET OVER THE ASCIZ 

<12><15>/END PASS #/ 



TYPDS 

TYPE 

BR 

;;67$: .ASCIZ 
66$: 

MOV 



$PASS.-(SP) 



,67$ 
66$ 



SAVE $PASS FOR TYPEOUT 
TYPE PASS NUMBER 

GO TYPE— DECIMAL ASCII WITH SIGN 
TYPE ASCIZ STRING 
GET OVER THE ASCIZ 



/ TOTAL ERRORS SINCE LAST REPORT / 



$G£T42: 



$ENDAD: 



$DOAGN: 
$ENULL: 



TYPDS 

TYPE 

CLR 

MOV 

BEQ 

RESET 

JSR 

NOP 

NOP 

NOP 

JMP 

.BYTE 

.EVEN 



$ERTTL,-(SP) 



,$CRLF 
$ERTTL 
a(r42.R0 
$DOAGN 

PC.{RO) 



a#LOOP 

-1,-1.0 



SAVE $ERTTL FOR TYPEOUT 

TOTAL NlfBER OF ERRORS 

GO TYPE—DECIMAL ASCII WITH SIGN 

TYPE CARRIAGE RETURN, LINE FEED 

CLEAR ERROR TOTAL 

GET MONITOR ADDRESS 

BRANCH IF NO MONITOR 

CLEAR THE WORLD 

GO TO MONITOR 

SAVE ROOM 

FOR 

ACT11 



; .RETURN 

;;NULL CHARACTER STRING 



S8TTL RP11/RP03 HANDLER 

SEE D0Clf€NTAT10N FOR FUNCTIONAL DESCRIPTION OF HANDLER 



002006 



001664 8$ 
132312 



RP3DRV: SAVREG 
CLR8 
BIT 
BEQ 

RESREG 
JMP 
MOV 

BIT 
BEO 
CLR 
CLR 



arRP3HSTA 

#8IT8,a#RP3HSTA 

8$ 

a«RP3RPT 

a#RNTBINX,a4rRP311 
«SW4,a$SWRP 

1$ 

RO 
R1 



.CLEAR DONE FLAG 
.REPEAT FLAG SET? 
.BRANCH IF NO 



SAVE RUN TABLE INDEX 
INHiar RND 3SK ADR' 
BRANCH IF NO 



Qrr-F POP 11/70 tPiJ EXERCISER ^CvT 30A(1052) 12-MAR-80 11:30 



G U 
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Qif Cf , 


PI ' 


'2-MAR-80 


'1 :27 




RP11/RP03 HANDLER 




046740 


000410 








on 


4S 


250? 


046742 


004 ■'37 


060562 




9 ■ 


/^R 


PC AMRAND 




046746 


013700 


001622 








a#lHlNLM RO 


12505 


046752 


013701 


001620 






MOV 




13506 


046756 


073027 


177771 








#-7 RO 


12507 


046762 


042700 


177000 




4S: 


BIC 

D i V. 


#177000 RO 

w 1 r r WvV#Aw 


12508 


046766 


022700 


000624 






fMP 




2509 


046772 


100003 








RPl 




2510 


046774 


062700 


000624 






ADD 


#624 RO 


2511 


047000 


000770 








RR 


4$ 


2512 


047002 


01 3702 


001664 




J 9 • 


MOV 


a#RP31 1 R2 


251 5 


047006 


016203 


001 732 






MOV 

1 ^y » 


RiJNTBL(R2) R3 


25U 


047012 


042703 


yH Ays ^ ^ ^ 

000777 






BIC 


#777, R5 


2515 


047016 


050300 








BI S 


R3 RO 


2516 


047020 


010062 


001 752 






MOV 


RO RLMTBL (R2) 


2517 


047024 


072127 


177775 






ASH 


#-3 Rl 


2318 


047030 


010103 








MOV 


Rl R3 


2519 


047032 


042701 


160577 




6S- 


BIC 


#160377 Rl 


2520 


047036 


022701 


01 1400 






CMP 


#11400 Rl 


2521 


047042 


-4 /v Ay\y^ Y 

100005 








BPl 


2$ 


£'522 


047044 


062701 


01 1400 






ADD 


#11400 Rl 


2525 


047050 


000770 








BR 


6S 


232^ 


047052 


042703 


1 77760 




C * - 


BIC 


#177760 R3 


2525 


047056 


022703 


0000^ 1 






CMP 


#11 R3 


2526 


047062 


4 y\Ay\y^'V 

100003 








BPL 


3$ 


2327 


047064 


062703 


AAAA 4 4 

000011 






ADD 


#11 ,R3 


2328 


047070 


/\yv/\77/\ 

000770 








BR 


2$ 


2529 


047072 


050301 






3$- 


BIS 


R3,R1 


2550 


047074 


010162 


001 750 






MOV 


Rl 'rljNTRAK(R2) 


2531 


047100 


010037 


002154 






MOV 


RO a#RP3HDC 


2332 


047104 


010137 


002222 






MOV 


Rl a#RP3DA 


2333 


0471 10 


4 4 "^7*7 

1 12737 


4 7T77C" 

1 77775 


A A A ^ 

002202 






#-3 a#RP3rRY 


233A 


047116 


032737 


A AAA y A 

000040 


4 7AC 4 ^ 

172516 




Bi T 


#BITS a#MMR3 


2335 


y^ y ^4 1y 

047124 


A A 4 / A r 

001405 








6E0 


7$ 


2536 


047126 


005046 








CLR 


-(SP) 


2537 


0471 30 


A 4 T 7 y ^ 

013746 


A A T A y 

002042 






MOV 


a#RP30LD --(SP) 


2338 


rt y 74 ^ y 

047134 


AA / 7 T 7 

004737 


A^ T A T 

063022 






JSR 


PC AfGETMAP 


2339 


/\ y 7 4 y 

047140 


A 4 ■^7*7 

012737 


AAA 4 A T 

000105 


001 662 


7$: 


MOV 


#103 a#RP310 


25A0 


047146 


A 4 T 7AA 

013700 


AA'^Ay / 

002044 






MOV 


a#RP30LD*2 RO 


23<»1 


047152 


A 7'^A "^7 

072027 


A AA AA y 

000004 






ASH 


#4 RO 


2542 


047156 


AC AAT 7 

050037 


001662 






BIS 


R0'a#RP310 


23A5 


rt y 74 ^ 

047162 


A 4 AA T 7 

010037 


002044 






MOV 


RO a#RP30LD«^2 


*^ T y y 

23A4 


047166 


A 4 V7AA 

013700 


A A *^ 4 *^ 

002122 






MOV 


AMpXiNIT RO 


2545 


0*«7172 


A ^'^A "^7 

072027 


AAA/\ 4 A 

000010 






ASH 


#10 RO 


2346 


047176 


A C A A T» 7 

050037 


AA 4 y y "1 

001662 






BIS 

O A *J 


RO a#RP3lO 


2347 


047202 


A 4 AA T7 

010037 


002122 






MOV 


RO a#RP3UNIT 


2348 


rty 7*^y%^ 

047206 


4 Ay y "1 

104422 








RFSRFG 


2349 


Ay 7*^ 4 A 

047210 


AAf 777 

005777 


4 T 77 y 

132774 




RP3WTRy 


• rsT 




2350 


Ay 7*^ 4 y 

047214 


4 AAT7C 

100375 








BPL 


RP3WTRY 


2351 


047216 


AC ■»777 

053777 


AA ^ 4 ^ 

002122 


4 ^ ^ 77A 

132770 




BIS 


a#RP3UNIT.aRP3CS 


2352 


047224 


004737 


Ay 7^ C 

047256 






JSR 


PC,a#LDRP3 


2353 


/\y 7*^ Ta 

047230 


A4 "^777 

012777 


AC AC 7 y 

050574 


4 T ^ 7 7 A 

132770 




MOV 


#RP3SRV,8RP3VEC 








1 JC/66 






CLR 


aRP3PSW 


2355 


047242 


005037 


002170 






CLR 


a#RP3fUN 


2356 


047246 


013777 


001662 


132740 




MOV 


i#RP310,aRP3CS 


2357 


047254 


000002 








Rri 



47-150 



SEO 01 7S 



GO GET RANDOM NlfeER 
GET HI Nl^R 
GET LO NlfBER 
ADJUST TO FORM CYL ADR 
GET RID 0^ UNUSED BITS 
LEGAL CYL? 
BRANCH IF YES 
HAKE IT LEGAL 

GET RUN TABLE INDEX 
GET DEVICE ID 
ID ONLY 

COMBINE WITH CYL ADR 
PUT BACK IN TABLE 
GEN TRK-SECT ADR 
SAVE 

GET RID OF ALL BUT TRK 
LEGAL TRAK? 
BRANCH IF YES 
MAKE IT LEGAL 

GET SECTOR ADR 
IS IT LEGAL? 
BRANCH IF YES 
MAKE IT LEGAL 

COMBINE TRK-SECT 

PUT IN TABLE 

SAVE DESIRED CYL 

SAVE DSK ADR 

INIT TRY COUNT 

MAP ON? 

BRANCH IF NO 

PUT DEVICE ID ON STACK 

PUT ADR OF BUS ADR ON STK 

GET MAP REGISTER 

GET FIWCTION 

GET BAE BITS 

SHIFT TO BITS 4 & 5 

COMBINE WITH FUNCTION 



.•SHIFT UNIT NO TO RIGHT BITS 
.-COMBINE WITH FUNC I BAE 



;IS DRIVE READY? 
.-BRANCH IF NO 
;SET UNIT BITS 

.LOAD RP3 REGISTERS 

.SET VECTOR 

.-SET FUNCTION TO WRITE 
.•LOAD FUNCT AND GO 
.•RETURN 



rEQKC-E POP CPU EXERCISER NACVII 

CEQfCCE.PlI 12-«AR-80 11:27 



50A(1052) 
RP11/RP03 



12HiAR-80 
HANDLER 



11:50 
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SCO 0176 



12358 


047256 


013777 


002152 


132736 


12359 


047264 


015777 


002154 


132752 


12560 


047272 


015777 


002026 


152716 


12361 


047300 


013777 


002042 


132712 


12362 


047306 


000207 






12563 










12564 
12565 


















12566 










12567 










12568 


047310 


104420 






12569 


047312 


105037 


002010 




12370 


047316 


032737 


000400 


002010 


12371 


047324 


001403 






12572 


047326 


104422 






12373 


047330 


000137 


051362 




12574 


047334 


015757 


001654 


001670 


12375 


047542 


105057 


002010 




12576 


047546 


052777 


000020 


131670 


12577 


047354 


001403 






12578 


047356 


005000 






12579 


047360 


005001 






12580 










12581 


047362 


000404 






12582 


047364 


004737 


060562 




12583 


047570 


013700 


001622 




12584 


047374 


072027 


\7777^ 




12385 










12386 


047400 


010001 






12387 


047402 


042701 


160037 




12388 


047406 


022701 


014300 




12389 


047412 


100003 






12390 


047414 


062701 


014340 




12591 


047420 


000770 






12392 


047422 


072127 


1 77771 




12393 


047426 


013702 


001670 




12394 


047432 


016203 


001732 




12395 


047436 


042703 


000777 




12396 


047442 


050103 






12397 


047444 


010362 


001732 




12398 


047450 


072027 


1 77770 




12399 


047454 


042700 


1 77740 




12400 


047460 


010003 






12401 


047462 


042700 


000020 




12402 


047466 


022700 


000012 




12403 


047472 


100004 






12404 


047474 


062700 


000012 




12405 


047500 


042700 


000020 




12406 


047504 


042703 


000017 




12407 


047510 


050300 






12408 


047512 


010062 


001750 




12409 


047516 


072-^27 


000005 




12410 


047522 


050100 






12411 


047524 


013701 


002124 




12412 


047530 


072\27 


000015 




12413 


047534 


050100 







LDRP3: MOV a(rRP3HDA . aRP30A 

MOV a*fiP3HDc .aftP3oc 

MOV a(rRP3Huc ,aRP3yc 

MOV a«RP30LD,aRP38A 

RTS PC 



RKDRV: 



5S: 



6$: 
7$: 

4$: 
3S: 



1$: 



LOAD DSK ADR 
LOAD CVL ADR 
LOAD WORD COUNT 
LOAD BUS ADR 
RETURN 



.S8TTL RK11/RK05 HANDLER 

SEE D0CJ1ENTATI0N FOR FUNCTIONAL DESCRIPTION OF HANDLER 



SAVREG 

CLRB aVRKHSTAT 

BIT «BIT8,a4rRKHSTAT 

BEQ 5S 
RESREG 

JMP a#RKRPT 

MOV arRNTBINX.WTRKll 

CLRB a#RKHSTAT 

BIT #SW4,aSSURP 

BEO 6S 

CLR RO 

CLR Rl 

BR 7$ 

JSR PCarSRAND 

MOV »rSHINUn,RO 

ASH #-3,R0 

MOV R0,R1 

BIC #160037,R1 

CMP #14300,R1 

BPL 3$ 

ADD #14340. Rl 

BR 4$ 

ASH #-5.R1 

MOV affftKll,R2 

MOV RUNT8L(R2).R3 

BIC #777,R3 

BIS ft1.R3 

MOV R3,RUNTBL(R2) 

ASH #-10.R0 

BIC #177740.R0 

MOV R0.R3 

BIC «3iT4.R0 

CMP #12.R0 

BPL 1$ 

ADD #12.R0 

BIC #8IT4.R0 

BK #17, R3 

BIS R3.R0 

MOV R0.RUNTRAK(R2) 

ASH #5,R1 

BIS R1.R0 

MOV i#RKUNIT.R1 

ASH #15, Rl .-ADJUST 

BIS Rl.RO 



.-CLEAR DONE FLAG IN HANDLER STAT 
.REPEAT FLAG SET-> 
.-BRANCH IF NO 



SAVE RIW TABLE INDEX 

CLEAR DONE FLAG IN HANDLER STAT 

RANDOM DSK ADDRESS? 

BRANCH IK YES 

CLEAR REGISTERS 



FOR ADDRESS CHECKING 
GET RANDOM NUMBER 
GET HIGH NU«£R 
ADJUST TO FORM 
CYLINDER ADDRESS 
SAVE IN R1 

GET RID OF SURF-SECT BITS 
IS IT A LEGAL CYLINDER? 
BRANCH IF YES 
ADD MAXIMlfl CYLINDER 
TRY AGAIN 

ADJUST CYLINDER ADDRESS 

GET RiM TABLE INDEX 

GET RUN TABLE ENTRY 

SAVE ID AND UNIT NO. 

INSERT CYLINDER ADDR 

ENTER CYLINDER ADR IN RUN TABLE 

GENER SECTOR-SURF ADDRESS 

GET RID OF EXTRA BITS 

SAVE 

GET RID OF SURFACE BIT 

IS SECTOR ADDRESS LEGAL^ 

BRANCH IF YES 

MAKE IT LEGAL 

GET RID OF CARRY FROM ADD 

GET SURFACE ADDRESS 

GENER COMP SECT-SURF ADDRESS 

SAVE IN RUN TRAK TABLE 

ADJUST CYLINDER ADDRESS 

CONCATINATE TRK & SECT ADDR 

GET UNIT NUMBER 

.-CONCATINATE UNIT. TRK. SUR^ .SEH 



CEUKCE.PII 



1?A18 

12^.20 
12^21 
V^22 
12^23 
12^2A 
12A25 
12^.26 
12A27 
12A28 
12A29 
12A50 
12A31 
12432 
12433 
12434 
12435 
12456 
124 37 
12458 
12459 
12440 
12441 
12442 
12443 
12444 
12445 
12446 
12447 
12448 
12449 
12450 
12451 
12452 
12453 
12454 
12455 
12456 
12457 
12458 
12459 
12460 
12461 
12462 
12463 
12464 
12465 
12466 
12467 
12468 
12469 
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SEQ 0177 



047536 


010037 


002156 






MOV 


RO.arRKHDA 
*-3,a»RKTRY 


SAVE 


047542 


112737 


}7777^ 


CO2203 




Move 


SET RETRr COUNT 


047550 


032737 


000040 


172516 




BIT 


*8IT5.»mMR5 


MAP ON? 


047556 


001406 








BEO 


2$ 


BRANCH IF NO 


047560 


012746 


000001 






MOV 


#1.-(SP) 
#RKOLD,-(SP) 


PUT DEVICE ID ON STACK 


047564 


012746 


002046 






MOV 


PUT ADDRESS OF ADR ON STACK 


047570 


004757 


063022 






JSR 


PC.atGETMAP 
#l63.RKlO 


GET MAP REG 


047574 


012767 


000103 


1 32064 


2$: 


MOV 


SET FUNCTION 


047602 


013700 


002050 






MOV 


a«RKOLD»2,R0 


GET BA EXTENDED 


047606 


072027 


000004 






ASH 


«4,R0 


ADJUST 


0^.7612 


050037 


001666 






BIS 


RO.a#RKlO 


•PUT IN WITH FUNCTION 


047616 


010057 


002050 






MOV 


R0,a#RKOLD«2 


•SAVE IN MEMORY 


047622 


104422 








RESREG 






04 7624 


013777 


002156 


132412 


RKWTRV: 


MOV 


aiTRKHDA^aRKDA 


•LOAD DISK ADDRESS 


047632 


032777 


000100 


13237? 




BIT 


«eiT6,aRKDS 


•UNIT READY? 


047640 


001774 








BEQ 


.-6 


;8RANCH IF NO 


047642 


013777 


002030 


132370 




MOV 


a«RKHWC,aRKUC 


;LOAD WORD COUNT 


047650 


013777 


002046 


132364 




MOV 


aiVRKOLD,aRKBA 


;LOAD BUS ADDRESS 


047656 


012777 


051412 


1 52362 




MOV 


#RKSRV.aRKVEC 


.LOAD INTERRUPT VECTOR 


047664 


005077 


132360 






CLR 


aRKPSU 




047670 


005037 


002172 






CLR 


aiTRKFUN 


;SET FUNCTION TO WRITE 


047674 


013777 


001666 


132354 




MOV 


aiTRKlO.aRKCS 


.-LOAD FUNCTION AND GO 


047702 


000006 








RTT 




.•RETURN 



047704 
047706 
047712 
047720 
047722 
047724 
047750 
047756 
047742 
047750 
047752 
047754 
047756 
047760 
047764 
047770 
047774 
050000 
050004 
050010 
050012 
050016 



.S8TTL RH70/RP04 HANDLER 

SEE D0CJ1ENTATI0N FOR FUNCTIONAL DESCRIPTION OF HANDLER 



104420 
105057 
032737 
001403 
104422 
000137 
013737 
105037 
032777 
001403 
005000 
005001 
000410 
004737 
013700 
013701 
073027 
042700 
022700 
100003 
062700 
000770 



002016 
000400 



052240 
001654 
002016 
000020 



060562 
001622 
001620 
177771 
177000 
000651 

000651 



002016 

001672 
151274 



RP4DRV: 



6$: 



1$: 



4S: 



050020 013702 001672 



5t: 



050024 
050030 



016203 
042705 



001 752 
000777 



SAVREG 

CLR8 a#RP4HSTA 

BIT *8IT8,cMfRP4HST 

BEQ 6$ 

RESREG 

JMP a#RP4RPT 

MOV aWNTBINX,a#RP411 

CLR8 a#RP4HSTA 

BIT #SW4,aSSWRP 

BEO 1$ 

CLR RO 

CLR R1 

BR 4S 

JSR PC.a#SRAND 

MOV a#$HINUri,RO 

MOV a#$L0NUr.R1 

ASHC #-7,R0 

BIC #1 77000, RO 

CMP *631,R0 

BPL 5$ 

ADD #651 .RO 

BR 4S 



MOV a(fRP411.R2 

MOV RUNTBL(R2).R3 
BIC #777, R3 



CLEAR DONE FLAG 
REPEAT FLAG SET? 
BRANCH IF NO 



SAVE RUN TABLE INDEX 
CLEAR DONE FLAG 
RANDOM DSK ADDRESS? 
BRANCH IF YES 



GET RANDOM fAJPBER 

GET HI NlfBER 

GET LO NlfBER 

ADJUST TO FORM CYL. ADR. 

GET RID OF UNUSED BITS 

LEGAL CYLINDER 

BRANCH IF YES 

MAKE IT LEGAL 



.-GET RUN TABLE INDEX 

;GET DEVICE ID 
.•SAVE ID ONLY 



.1 
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SEQ 0178 



1^4 70 

1^472 

12473 

12474 

12475 

12476 

12477 

12478 

12479 

12480 

12481 

12482 

12483 

12484 

12485 

12486 

12487 

12488 

12489 

12490 

12491 

12492 

12493 

12494 

12495 

12496 

12497 

12498 

12499 

12500 

12501 

12502 

12503 

12504 

12505 

12506 

12507 

12508 

12509 

12510 

12511 

12512 

12513 

12514 

12515 

12516 

12517 

12518 

12519 

12520 

12521 

12522 

12523 

12524 

12525 



050054 
050036 
050042 
050046 
050052 
050054 
050060 
050064 
050066 
050072 
050076 
050102 
050106 
050110 
050114 
050120 
050122 
050126 
050132 
050136 
050144 
050146 
050152 
050160 
050164 
050170 
050176 

050200 
050206 
050214 
050222 
050230 
050236 
050244 
050252 



050254 
050256 
050262 
050270 
050272 
050274 
050300 
050306 
050314 
050316 
050320 
050322 
050324 
050330 
050334 



050003 
010362 
072127 
042701 
010103 
042701 
022701 
100004 
062701 
042701 
042703 
022703 
100004 
062703 
042703 
050301 
010162 
010037 
010137 
112737 
104422 
004767 
012777 
005077 
005037 
112777 
000002 

013777 
012777 
013777 
013777 
013777 
013777 
013777 
000207 



104420 
105037 
032737 
001403 
104422 
000137 
013737 
032777 
001403 
005000 
005001 
000407 
004737 
013700 
072027 



001732 
177775 
160540 

000037 
011000 

011000 
020000 
177740 
000025 

000025 
000040 

001750 
002164 
002162 
177775 

000026 
052264 
132124 
002176 
000161 



002020 
000400 



052750 
001654 
000020 



060562 
001622 
1 7777i, 



002205 
132126 
132054 



BIS 
MOV 
ASH 
BIC 
MOV 
BIC 
CMP 
BPL 
ADD 
BIC 

2S: BIC 
CMP 
BPL 
ADD 
BIC 

3$: BIS 
MOV 
MOV 
MOV 
M0V8 
RESREG 

RP4WTRY:JSR 
MOV 
CLR 
CLR 

Move 

RTI 



R0.R3 

R3-RUNTBL(R2) 

#-3-R1 

*166340.R1 

R1.R3 

»57.R^ 

#11000.R1 

2$ 

#11000. R1 
«IT13.R1 
#1 77746. R3 
#25. R3 
3$ 

#25, R3 

#8IT5.R3 

R3.R1 

R1,RUNTRAIC(R2) 
R0,a#RP4HDC 
Rl.atRPAHDA 
#-3,a(rRP4TRV 

PC.LDRP4 

#RP4SRV.aRP4VEC .LOAD 

aRP4PSW 

a#RP4FUN 

«161«aRP4CSl 



COMBINE WITH Cri ADR 
PUT IN Rifi TABLE 
GEN TRAK-SECT ADR 
GET RID OF UNUSED BITS 
SAVE 

GET RID OF SECT BITS 

LEGAL TRAK? 

BRANCH IF YES 

MAKE IT LEGAL 

GET RID OF ADD CARRY 

GET SECTOR ADR 

LEGAL SECTOR 

BRANCH IF YES 

MAKE IT LEGAL 

GET RID OF ADD CARRY 

COMBINE TRAK-SECTOR 

PUT TRAK-SECT IN TABLE 

SAVE CYLINDER ADR 

SAVE TRAK-SECTOR ADR 

SET TRY COUNT 



.LOAD RP4 REGISTERS 
INTERRUPT VECTOR 



SET FUNCTION TO URITE 
LOAD FUNCTION AND GO 
RETURN 



002132 


132056 LDRP4: 


MOV 


a#RP4UNIT.aRP4CS2 


LOAD UNIT NUreER 


010000 


132070 


MOV 


«8IT12.aRP40F 


SET FORMAT TO 16 BIT 


002164 


132052 


MOV 


a«RP4HDC.aRP4DC 


•LOAD CYLINDER ADR 


002162 


132032 


MOV 


a#RP4HDA.aRP4DA 


■LOAD TRAK-SECTOR 


002036 


132016 


MOV 


a#RP4HWC.aRP4WC 


■LOAD WORD COIMT 


002064 


132014 


MOV 


a#RP40LD*2.aRP4BAE 


■LOAD EXTENDED ADR BITS 


002062 


132004 


MOV 


a#RP40L0.8RP4aA 


-LOAD BUS ADR 






RTS 


PC 


•RETURN 



SSTTL RH70/RS04 HANDLER 

:* SEE DOClfCNTATION FOR FUNCTIONAL DESCRIPTION OF HANOLCR 



002020 



001674 
1 30730 



RSDRV: SAVREG 
CLRB 
BIT 
BEO 
RESREG 
JMP 

3$: MOV 

BIT 
BEO 

CLR 
CLR 
BR 

1$: JSR 
MOV 
ASH 



amSHSTAT 

«BIT8.a#RSHSTAT 

5$ 

a#RSRPT 

a#RNTBINX.a#RSll 
#SW4.a$SURP 

1$ 

RO 
R1 
4$ 

PC,a#$RAND 

a#iHlNUM,RO 

#-4.R0 



CLEAR DONE FLAG 
REPEAT FLAG SET? 
BRANCH IF NO 



SAVE Rl/< TABLE INDEX 
RAM)OM DSK ADR' 
BRANCH IF YES 



.-GET RANDOM NLl«ER 
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.EO 01 7Q 



12526 

125?7 

12528 

12529 

12530 

12551 

12532 

12555 

12554 

12555 

12556 

12557 

12558 

12559 

12S40 

12541 

12542 

12545 

12544 

12545 

12546 

12547 

12548 

12549 

12550 

12551 

12552 

12555 

12554 

12555 

12556 

12557 

12558 

12559 

12560 

12561 

12562 

12565 

12564 

12565 

12566 

12567 

12568 

12569 

12570 

12571 

12572 

12573 

12574 

12575 

12576 

12577 

12578 

12579 

12580 

12581 



050340 
050542 
050546 
050552 
050554 
050560 
050562 
050366 
050572 
050376 
050402 
050406 
050410 
050414 
050416 
050422 
050426 
050450 
050434 
050442 
050444 
050450 
050456 
050462 
050466 
050472 
050474 
050502 

050504 
050512 
050520 
050526 
050534 
050542 



050544 
050546 
050552 
050560 
050562 
05056A 
050570 
050574 
050600 
050606 
050610 
050612 



050616 
050626 



010001 
042700 
022700 
100005 
062700 
000770 
015702 
072027 
110062 
042701 
022701 
100003 
062701 
000770 
010162 
072027 
050100 
010057 
112757 
104422 
004757 
012777 
005077 
005057 
105777 
001775 
112777 
000002 

013777 
013777 
015777 
015777 
013777 
000207 



000005 
005337 
022737 
00U72 
002A02 
000137 
000167 
005237 
022737 
001501 
100002 
000137 



052757 
001056 



170077 
007600 

007600 

001674 
"[77772 
001752 
177700 
000077 

000077 

001 750 
000006 

002166 
'\7777'> 

050504 
05277i* 
151654 
002200 
151636 



002134 
002166 
002040 
002070 
002066 



002170 
000001 



047210 
0004U 
002170 
000002 



051250 



002206 
131656 



000161 131610 



131612 
131602 
131566 
13156A 
131554 



MOV R0.R1 

4S: 81 C *1 70077.ro 

CMP *7600.RO 

BPL 5$ 

ADD #7600. RO 

BR 4$ 

5$: MOV *rRS11,R2 

ASH *-6.R0 

M0V8 R0.RUNTBL(R2) 

6S: BIC *1 77700, R1 

CMP #77. R1 

BPL 2$ 

ADD #77, R1 

BR 6$ 

2$: MOV R1,RUNTRAK(R2) 

ASH #6.R0 

BIS R1.R0 

MOV RO.a#RSHDA 

M0V8 #-3.a#RSTRY 

RESREG 

RSWTRY: JSR PC.a#LDRS 

MOV #RSSRV,aRSVEC 

CLR aRSPSU 

CLR a#RSFUN 

1$: TST8 aRSDS 

BEQ IS 

MOVB #161,aRSCS1 

RTI 

LDRS: MOV a«RSUNlT,aRSCS2 

MOV a«RSHDA,aRSDA 

MOV a«RSHUC,aRSWC 

MOV a«RS0LD*2.aRSBAE 

MOV a«RSOLD,aRSaA 

RTS PC 



SAVE RANDOM NUMBER 
GET TRACK ADR 
IS IT LEGAL? 
BRANCH IF rES 
MAKE IT LEGAL 

GET RUN TABLE INDEX 

ADJUST TRACK ADR 

SAVE TRAK ADR IN RUN TBL 

GET SECTOR ADR 

IS IT LEGAL? 

BRANCH IF YES 

MAKE IT LEGAL 

SAVE IN RUN TRAK TABLE 
ADJUST TRACK ADDR 
COMBINE SECTOR TRAK 
SAVE AS DSK ADR 
SET TRY COUNT 

;G0 LOAD REGISTERS 
;SET INTERRUPT VECTOR 

SET FUNCTION TO WRITE 
IS DRIVE READY? 
BRANCH IF NO 
LOAD FlfJCTION AND GO 



LOAD UNIT NUMBER 

LOAD DSK ADR 

LOAD WORD COUNT 

LOAD EXTENDED ADDRESS 

LOAD BUS ADDRESS 

RETURN 



002170 



002170 



'.S8TTL RP11/RP03 SERVICE ROUTINE 

SEE DOCLMENTATION FOR FUNCTIONAL DESCRIPTION OF ROUTINE 
••»*»»(►******•***••*******•****•••**•*••••»•»*»•»•»»•••»•*••»»»•» 

RP3RPT: RESET 

DEC a#RP3FUN 

CMP #1 ,a#RP3FUN 

BEQ RP31 

BLT IS 

JMP a#RP3WTRy 

1$; JMP RP33 

RP3SRV: INC a#RP3FUN 

CMP #2,a#RP3FUN 

BEQ RP3WCK 

BPL .+6 

JMP a#RP3READ 



RESTORE FUNCTION 
WHAT IS IT? 
BRANCH IF WC 
BRANCH IF WRITE 
BRANCH TO READ 

INCREMENT FUNCTION 

WHAT IS IT"* 

BRANCH TO WRITE CHECK 



000400 002006 



.•FUNCTION JUST EXECUTED WAS A WRITE 
BIT #8IT8,a#RP3HSTAT 
BNE RP3L00P 



.•REPEAT FLAG SET? 
.•BRANCH IF YES 



L U 
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12582 


050626 


005777 


131362 






TST 


aRP3CS 


12583 


050632 


100045 








BPL 


RP31 


12584 


050634 


105737 


002202 






TST8 


»rRP3TRY 


12585 


050640 


001415 








BEO 


RP3ERR 


12586 


050642 


112777 


000001 


131344 




fiOVS 


#8IT0.aRP3CS 


12587 


050650 


105777 


131340 






TST8 


aRP3CS 


12588 


050654 


100375 








BPL 


.-4 


12589 


050656 


105237 


002202 






INCB 


a(rRP3TRY 


12590 


050662 


013746 


1 77776 






MOV 


a*psw,-(sp) 


12591 


050666 


012746 


047210 






MOV 


*RP3WTRY,-(SP) 


12592 


050672 


000002 








RTI 




12593 


050674 


012737 


100200 


002006 


RP3ERR 


: MOV 


»1 00200 -»rRP3HSTA 


12594 
12595 
125% 


050702 


010046 








MOV 


RO,-{SP) 


050704 


013700 


001664 






MOV 


a#RP31 1 .RO 


050710 


052760 


100000 


001750 




BIS 


«Biri5,RUNTRAK(R0) 


12597 


050716 


012600 








MOV 


(SP)+.RO 


12598 


050720 


000002 








RTI 




12599 
















12600 


050722 


012737 


100200 


002006 


RP3L00P:M0V 


#1 00200, »rRP3HSTAT 


12601 


050730 


005777 


131260 






TST 


aRP3cs 


12602 


050734 


100403 








BMI 


IS 


12603 


050736 


042737 


100000 


002006 




BIC 


«IT15,a#RP3HSTAT 


12604 


050744 


000002 






1$: 


RTI 




12605 










.•WRITE 


WAS OK- 


NOW DO A WRITE CHECK 


12606 


050746 


112737 


1 77775 


002202 


RP31: 


M0V8 


#-3,a#RP3TRY 


12607 


050754 


012737 


000107 


001662 




MOV 


#107,a#RP310 


12608 


050762 


053737 


002044 


001662 




BIS 


a*RP30LD+2.a#RP310 


12609 


050770 


053737 


002122 


001662 




BIS 


a#RP3UNIT,a«RP310 


12610 


050776 


004737 


047256 




RP32: 


JSR 


PC,»rLDRP3 


12611 


051002 


013777 


001662 


131204 




MOV 


a»RP310.aRP3CS 


12612 


051010 


000002 








RTI 


12613 
















12614 










.•FUNCTION JUST 


EXECUTED WAS A WRITE 


12615 


05'012 


032737 


000400 


002006 


RP3WCK 


: BIT 


«IT8.»rRP3HSTAT 


12616 


051020 


001340 








BNE 


RP3L00P 


12617 


051022 


005777 


131166 






TST 


aRP3CS 


12618 


051026 


100031 








BPL 


IS 


12619 


051030 


005737 


001664 






TST 


a*RP3ii 


12620 


051034 


001422 








BEQ 


4S 


12621 


051036 


105737 


002202 




5$: 


TSTB 


a*RP3TRY 


12622 


051042 


001714 








BEO 


RP3ERR 


12623 


051044 


005337 


002170 






DEC 


airRP3FUN 


12624 


051050 


112777 


000001 


131136 




MOVE 


*8IT0,aRP3CS 


12625 


051056 


105777 


131132 






TSTB 


aRP3CS 


12626 


051062 


100375 








BPL 


.-4 

»IV<P3TRY 


12627 


051064 


105237 


002202 






INCB 


12628 


051070 


013746 


^77776 






MOV 


a*Psw,-(SP) 


12629 


051074 


012746 


050776 






MOV 


/rRP32.-(SP) 


12630 


051100 


000002 








RTI 


12631 


051102 


032777 


000010 


131102 


4S: 


BIT 


#8IT3.aRP3ER 


12632 


051110 


001752 








BEQ 


5S 


12633 
















12634 










.-WRITE 


CHECK OK- NOW DO A READ 


12635 


051112 


112737 


177775 


002202 


IS: 


M0V8 


*-3.a#RP3TRY 


12636 


051120 


032737 


000040 


172516 




BIT 


/l'8IT5.a#MMR3 


12637 


051126 


001407 








BEO 


2S 



155 



SEO 0180 



;ANY ERROMS? 
.•BRANCH IF NO 
.TRIED 3 TIMES? 
.•BRANCH IF YES 
.•CLEAR THE DRIVE 
.CONTROLLER READY? 
.BRANCH IF NO 
.•INCREMENT TRY COUNT 
.•MAINTAIN SAME PSW 
.SET RETRY ADDRESS 
.•RETURN 

.SET ERROR BIT IN HAND. STA 
' SAVE RO 

;6ET RUNTABLE INDEX 
.-SET ERROR BIT 
.•RESTORE RO 
.•RETURN 

;SET DONE AND ERROR 
;ANY ERRORS? 
.•BRANCH IF YES 
.•CLEAR ERROR BIT 
.RETURN 

;INIT TRY COUNT 
;SET FUNCTION 
.SET BAE BITS 
.-SET UNIT BITS 
.LOAD RP3 REGISTERS 
:LOAO FUNCTION AND GO 
.-RfJURN 

CHECK 

.•REPEAT FLAG SET? 
.-BRANCH IF YES 
.-ANY ERRORS? 
.-BRANCH IF NO 
.-FIRST 2K? 
.-BRANCH IF YES 
.-TRIED 3 TIMES? 
.-BRANCH IF YES 
.-RESTORE FUNCTION 
.-CLEAR THE DRIVE 
.•CONTROLLER READY? 
.'BRANCH IF NO 
.-INCREMENT TRY COUNT 



GO TRY AGAIN 
WRITE CHECK ERROR? 
BRANCH IF NO 



RESTORE TRY COUNT 
MAP ON? 
BRANCH IF NO 



EQ»fC-E POP 11/70 CPU EXERCISER mACYll 50A(1052) 12-MA«-80 11:30 PAGE A7' 
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12658 


051130 


005046 








CLR 


-(SP) 


12639 


051132 


004737 


063274 






JSR 


PC,a#GIVEHAP 


12640 


051136 


012746 


002072 






MOV 


#RP3NWL,-(SP) 


12641 


051142 


004737 


063022 






JSR 


PC.a»GETMAP 


12642 


051146 


010046 






2S: 


MOV 


RO,-(SP) 


12643 


051150 


013700 


002074 






MOV 


a#RP3NUH,R0 


12644 


051154 


072027 


000004 






ASH 


#4.R0 


12645 


051160 
051164 


010037 


002074 






MOV 


R0.a#RP3NWH 


12646 


012600 








MOV 


(SP)*,RO 


12647 


051166 


012737 


000105 


001662 




MOV 


#1054a*RP310 
BfffV>yMi , a#RP31 0 


12648 


051 1 74 


053< V 


002074 


001662 




BIS 


12649 


051202 


0537S7 


002122 


001662 




BIS 


a*RP3UN I T , a*fiP3 1 0 


12650 


051210 


013777 


002152 


131004 


RP33: 


MOV 


SflfRPSHDA , aRP3D A 


12651 


051216 


013777 


002154 


131000 




MOV 


aiirRP3HDC,iRP3DC 


12652 


051224 


013777 


002026 


130764 




MOV 


a«RP3Huc,aRP3wc 


12653 


051232 


013777 


002072 


1 30760 




MOV 


a«RP3NUL«aRP3BA 


12654 


051240 


013777 


001662 


130746 




MOV 


a«RP310,aRP3CS 


12655 


051246 


000002 








RTI 




12656 
















12657 










.FUNCTION JUST EXECUTED WAS A READ 


12658 


051250 


032737 


000400 


002006 


RP3READ:8IT 


«8IT8,a#RP3HSTAT 


12659 


051256 


001221 








BNE 


RP3L0OP 


12660 


051260 


005777 


1 30730 






TST 


aRP3CS 


12661 


051264 


100022 








BPL 


IS 


12662 


051266 


105737 


002202 






TST8 


a*RP3TRY 


12663 


051272 


001600 








BEQ 


RP3ERR 


12664 


051274 


005337 


002170 






DEC 


aiirRP3FUN 


12665 


051300 


112777 


000001 


130706 




M0V8 


«BIT0.aRP3CS 


12666 


051306 


105777 


1 30702 






TST8 


aRP3CS 


12667 


051312 


100375 








BPL 


.-4 


12668 


051314 


105237 


002202 






INCB 


airRP3TRY 


12669 


051320 


013746 


1 777'^b 






MOV 


a#psw,-(SP) 


12670 


051324 


01 2746 


051210 






MOV 


fRP33,-(SP) 


12671 


051330 


000002 








RTI 


«eiT5,a#MNR3 


12672 


051332 


032737 


000040 


172516 


1$: 


BIT 


12673 


051340 


001404 








BEQ 


2$ 


12674 


051342 


005046 








CLR 


-(SP) 


12675 


051344 


004737 


063274 






JSR 


PcarGivEMAP 


12676 


051350 


005726 








TST 


(SP) + 


12677 


051352 


112737 


000200 


002006 


2$: 


M0V8 


/r200,*rRP3HSTA 


12678 


051360 


000002 








RTI 




12679 












*************************** 


12680 










.S8TTL 


RK11/RK05 SERVICE ROUTINE 


12681 










0 


SEE DOCLnENTATION FOR FUNC 


12682 












12683 


051362 


y% ^^^^^^ ^ 

000005 






RKRPT: 


RESET 




12684 


051364 


005337 


002172 






DEC 


aVRKFUN 


12685 


051370 


022717 


000001 


002172 




CMP 


f 1 .aiTRKFUN 


12686 


051376 


001475 








BEQ 


RK1 


12687 


051400 


002402 








BLT 


1S 


i DO 

12688 


051402 


\jQQ\57 


04^624 






JMP 


arRKUTRY 


12689 


051406 


000137 


052044 




1$: 


JMP 


airRK3 


12690 


051412 


062737 


000001 


002172 


RKSRV: 


ADD 


4ri,»rRKFUN 


12691 
















12692 


051420 


022717 


000002 


002172 




CMP 


/ir2,a/yRKFUN 


12693 


051426 


001507 








BEQ 


RKWRCK 



156 



SEQ 0181 



PUT DEVICE ID ON STACK 

RETURN MAP REGISTER 

PUT ADR OF BUS ADR ON STK 

GET MAP REGISTERS 

SAVE RO 

GET BAE BITS 

ADJUST 

SAVE 

RESTORE RO 

SET FUNCTION 

SET BAE BITS 

SET UNIT NlfBER 

LOAD DSK ADR 

LOAD CYL 

LOAD WORD COUNT 

LOAD BUS ADR 

LOAD FUNCTION AND 60 

RETURN 



.•REPEAT FLAG SET? 
BRANCH IF YES 
ANY ERRORS? 
BRANCH IF NO 
TRIED 3 TIMES? 
BRANCH IF YES 
RESTORE FUNCTION 
CLEAR THE DRIVE 
CONTROLLER READY? 
BRANCH OF NO 
INCREMENT TRY COUNT 



;G0 TRY AGAIN 
;«AP ON? 
;8RANCH IF NO 
;PUT DEVICE ID IN STK 
:RETURN MAP REGISTERS 
^RESTORE STACK 
;SET DONE FLAG 
: RE TURN 

ft***************************** 



lONAL DESCRIPTION OF ROUTINE 
ft**** ******* ****************** 



RESTORE FUNCTION 
WHAT IS IT? 
BRANCH IF WC 
BRANCH IF WRITE 
IT WAS A WRITE 

FIND OUT WHAT FUNCTION 
WAS EXECUTED 
WAS IT A WRITE CHECK? 
BRANCH IF YES 



N U 

CEQKC-E POP 11/70 CPU EXERCISER KACVll 30A(1052) 12H1AR-80 11:30 PAGE 47 
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12694 


051430 


10C002 










.♦6 


12695 


051432 


000137 


052076 






JMP 


a^TRKREAD 


12696 
















12697 










.•FUNCTION JUST 


EXECUTED WAS A WRITE. 


12698 


051436 


032737 


000400 


002010 




BIT 


4(8IT8.a#RKHSTAT 


12699 


051444 


001040 








BNE 


RKLOOP 


12700 


051446 


005777 


130564 






TST 


iRKCS 


12701 


051452 


100047 








BPL 


RKl 


12702 


051454 


105737 


002203 






TSTB 


a#RKTRY 


12703 


051460 


001417 








BEQ 


RKERR 


12704 


051462 


012777 


000001 


130546 




nov 


#1 .aRKCS 


12705 


051470 


004737 


052222 






JSR 


PC,a#TIHER 


12706 


051474 


105777 


150556 






TSTB 


aRKCS 


12707 


051500 


100375 








BPL 


.-4 


12708 


051502 


105237 


002205 






INCB 


a«RKTRY 


12709 


051506 


013746 


177776 






MOV 


a*psw,-(sp) 


12710 


051512 


012746 


047624 






MOV 


*RKWTRY,-(SP) 


12711 


051516 


000002 








RTI 


#1 00200 .a#RKHS TAT 


12712 


051520 


012737 


100200 


002010 


RKERR: 


MOV 


12715 


051526 


010046 








MOV 


R0,-(SP) 


12714 


051530 


013700 


001670 






MOV 


arRKii ,R0 


12715 


051554 


052760 


100000 


001750 




BIS 


«BIT15.RUNTRAK(R0) 


12716 


051542 


012600 








MOV 


(SP)*.RO 


12^17 


051544 


000002 








RTI 




12718 
















12719 


051546 


0127 7 


100P00 


002010 


RKLOOP:MOV 


#1 00200, a«RKHSTAT 


12720 


051554 


0057 7 


130456 






TST 


aRKCS 


12721 


051560 


100403 








BMJ 


1$ 


\2722 


051562 


042737 


100000 


002010 




BIC 


«BIT15,a#RKHSTAT 


12723 


051570 


000002 






1$: 


RTI 




12724 










.•WRITE 


WAS OK, 


NOW DO A WRITE CHECK 


12725 


051572 


112737 


1 7777'i 


002203 


RKI: 


M0V8 


#-3.a#RKTRY 


12726 


051600 


012767 


000507 


130060 




MOV 


ir507,RKlO 


y27l7 


051606 


053767 


002050 


130052 




BIS 


a«RKOLD^2,RKlO 


12728 


051614 


013777 


002156 


130422 


RK2: 


MOV 


a«RKHDA,aRKDA 


12729 


051622 


013777 


002030 


130410 




MOV 


aVRKHWCaRKWC 


12730 


051630 


013777 


002046 


130404 




MOV 


aUTRKOLD.aRKBA 


12731 


051636 


016777 


130024 


130372 




MOV 


RKlO.aRKCS 


12732 


051644 


000002 








RTI 




12733 
















12734 










;FUNCTION JUST 


EXECUTED WAS A WRITE 


12735 


051646 


032737 


000400 


002010 


RKURCK:BIT 


«BIT8,a#RKHSTAr 


12736 


051654 


001334 








BNE 


RKLOOP 


12737 


051656 


005777 


130354 






TST 


aRKCS 


12738 


051662 


100033 








BPL 


1$ 


12739 


051664 


005737 


001670 






TST 


atTRKll 


12740 


051670 


001424 








BEG 


4$ 


12741 


051672 


105737 


002203 




5$: 


TSTB 


atVRKTRY 


12742 


051676 


001710 








BEQ 


RKERR 


12743 


051700 


005337 


002176 






DEC 


a*RP4FUN 


12744 


051704 


012777 


000001 


130324 




MOV 


#1. aRKCS 


12745 


051712 


004737 


052222 






JSR 


PC.a#TIMER 


12746 


051716 


105777 


130314 






TSTB 


aRKCS 


12747 


051722 


100375 








BPL 


.-4 


12748 


051724 


105237 


002203 






INCB 


a^yRKTRY 


12749 


051730 


013746 


1 77776 






MOV 


a#psw,-(sp) 



157 



SEO 0182 



.-BRANCH IF IT WAS A WRITE 



ANY ERRORS? 

.•REPEAT FLAG SET? 
.•BRANCH IF YES 
;ANY ERRORS? 
.•BRANCH IF NO 
;TRYED 3 TIMES? 
.•BRANCH IF YES 
.•CLEAR THE ERROR 
.-WAIT A LITTLE 

.•WAIT FOR CONT CLR TO FINISH 
.•INCREMENT TRY COUNT 



.•SET ERROR I DONE FLAG 
• SAVE RO 

;GET SAVED RUN TABLE INDEX 
.-SET ERROR BIT IN RUN TABLE 
.•RESTORE RO 
.-RETURN 

;SET DONE AND ERROR BITS 
.ANY ERRORS? 
.-BRANCH IF YES 
.CLEAR ERROR BIT 
.-RETURN 

.-RESTORE TRY COUNT 
.-SET FUNCTION TO WRITE 
.-SET BA EXT BITS 
.-LOAD DISK ADDRESS 
.-LOAD WORD COUNT 
.•LOAD BUS ADDRESS 
.-START FUNCTION 
.•RETURN 

CHECK. ANY ERRORS? 

.-REPEAT FLAG SET? 
.-BRANCH IF YES 
.-ANY ERRORS? 
.-BRANCH IF NO 
.-FIRST 2K? 
.-BRANCH IF YES 
;TRYED 3 TIMES? 
.•BRANCH IF YES 

.-SET FUNCTION BACK TO WC 
.-CLEAR THE ERROR 
;WAIT A LITTLE 
.-WAIT FOR CLR TO FINISH 

.INCREMENT TRY COUNT 



fEOKC-f POP n/70 CPU EXERCISER NACYll 
CEOKCE.Pn 12-«AR-W 11:27 



12750 


051734 


012746 


051614 




12751 


051740 


000002 






12752 


051 742 


032777 


040000 


130266 


12753 


051 750 


001350 






1275A 










12755 










12756 


051752 
05V60 


112737 


177775 


002203 


12757 


032737 


000040 


172516 


12758 


051766 


001410 






12^59 


051770 


012746 


000001 




12760 


051 774 


004767 


011274 




12761 


052000 


012746 


002076 




12762 


052004 


004737 


063022 




12763 


052010 


010046 






1276A 


052012 


013700 


002100 




12765 


052016 


072027 


000004 




12766 


052022 


010037 


002100 




12767 


052026 


012600 






12768 


052050 


CI 2767 


000105 


127630 


12769 


052036 


053767 


002100 


^27t22 


12770 


052044 


013777 


002156 


130172 


12771 


052052 


013777 


002030 


130160 


^2772 


052060 


013777 


002076 


130154 


12773 


052066 


016777 


127574 


130142 


12774 


052074 


000002 






12775 










12776 










^2777 


052076 


032737 


000400 


002010 


}2778 


052104 


001220 






12779 


052106 


005777 


130124 




12780 


052112 


100026 






12781 


052114 


105737 


002203 




12782 


052120 


001002 






12783 


052122 


000167 


1 77Z72 




12784 


052126 


005337 


002172 




12785 


052132 


012777 


000001 


130076 


12786 


052140 


004737 


052222 




12787 


052144 


105777 


130066 




12788 


052150 


100375 






12789 


052152 


105237 


002203 




12790 


052156 


013746 


1 77776 




12791 


052162 


012746 


052044 




12792 


052166 


000002 






12793 


052170 


032737 


000040 


172516 


1279A 


052176 


001405 






12795 


052200 


012746 


000001 




12796 


052204 


004737 


063274 




12797 


052210 


005726 






12798 


052212 


112737 


000200 


002010 


12799 


052220 


000002 






12800 


052222 


005067 


000010 




12801 


052226 


105267 


000004 




12802 


052232 


001375 






12803 


052234 


000207 






12804 


052236 


000000 






12805 











B 15 

30A(1052) ^2-^W>-S0 11:50 PAGE -47-' 
RK11/RK05 SERVICE ROUTINE 

MOV tRlc2,-(SP) 

RTI 

41: BIT *BIT14,aRKCS 

BNE 5S 

:yRITE CHECK UAS OK. NOU DO A READ. 



M0V8 


#-5,a*RiCTRY 


BIT 


*eiT5.S*MMR3 


BEO 


2S 


MOV 


#1 ,-(SP) 


JSR 


PC.GIVEMAP 


MOV 


#RKN£WL.-(SP) 


JSR 


PCatGETMAP 


MOV 


RO,-(SP) 


MOV 


amKNEUH.RO 


ASH 


#4,R0 


MOV 


RO^afRKNEUH 


MOV 


(SP) ♦.RO 


MOV 


#105,RK10 


BIS 


»VRKNEWH,RK10 


MOV 


a«RKHOA,aRKDA 


MOV 


a«RKHWC.aRKUC 


MOV 


aVRKNEWL.aRKBA 


MOV 


RKlO,aRKCS 


RTI 





.'FUNCTION JUST EXECUTED WAS A READ. 



RKREAD: 


BIT 


#BIT8,a4rRKHSTAT 




BNE 


RKLOOP 




TST 


aRKCS 




BPL 


IS 




TSTB 


MrRKTRY 




BNE 


3$ 




JMP 


RKERR 


3$: 


DEC 


aiTRKFUN 




MOV 


#1. aRKCS 




JSR 


PC.a*TIMER 




TST8 


aRKCS 




BPL 


.-4 




INC8 


a#RKTRV 




MOV 


airpsu.-(SP) 




MOV 


*RK3,-(SP) 




RTI 




1$: 


BIT 


/li8IT5,a*HMR3 




BEO 


2$ 




MOV 


#1.-(SP) 




JSR 


PC,a»GIVEHAP 




iST 


(SP)* 


2$: 


M0V8 


#200,a«RKHSTA1 




RTI 




TIMER: 


CLR 


1$ 


2$: 


INC8 


1$ 




BNE 


2$ 




RTS 


PC 


1$: 


.WORD 





.-HARD ERROR? 
.-BRANCH IF r£S 



.RESTORE TRY COUNT 

;MAP ON? 

.-BRANCH IF NO 

;PUT DEVICE ID ON STACK 

.-RELINQUISH MAP REG 

.-PUT ADR OF BADR ON STACK 

.GET MAPREGISTER 

.-SAVE RO 

.-GET BA EXT 

.ADJUST 

.SAVE 

.-RESTORE RO 
.-SET FUNCTION 

.-SET BA EXT BITS IN FUNCTION 

.LOAD DISK ADDRESS 

.-LOAD yORD COUNT 

.LOAD BUS ADDRESS 

;LOAD FUNCTION AND GO 

.-RETURN 

ERRORS? 

.-REPEAT FLAG SET? 
.-BRANCH IF YES 
.ANY ERRORS? 
.BRANCH IF NO 
.TRYED 3 TIMES? 
.BRANCH IF NO 

.-SET FLWCTION BACK TO READ 

.-CLEAR THE ERROR 

.-WAIT A LITTLE 

.-WAIT FOR CLR TO HNISH 

.-INCREMENT TRY COUNT 



MAP ON? 

BRANCH IF NO 

PUT RK ID ON STACK 

RELINQUISH MAP REGSTER 

POP THE STACK 

SET DON E FLAG 

RETURN 



C 15 
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12806 










.S8TTL 








12807 










RH70/RP04 SERVICE ROUTINE 




12808 
12809 










• • 


SEE DOClf€NTATI0N FOR FlMCTIONAL 


DESCRIPTION OF ROUTINE 










RP4RPT : 








12810 


052240 


000005 






RFSFT 






12811 


052242 


005337 


002176 










RESTORE FUNCTION 


12812 


052246 


022717 


000001 


002176 




CMP 


#1 ,a#RP4FUN 


WHAT IS IT? 


12813 


052254 


001501 








BEO 


RP41 ; 


BRANCH IF WC 


1281s 


052256 


002560 








BLT 


RP43 ; 


BRANCH IF READ 


12815 


052260 


000137 


050146 






JMP 


a«RP4WTRY 


GO TO WRITE 


12816 


052264 


005237 


002176 




RP4SRV: 


INC 


a«RP4FUN 


FIND OUT WHAT FUNCTION 


12817 


052270 


022717 


000002 


002176 




CMP 


<r2,a«RP4FUN 


WAS JUST EXECUTED 


12818 


052276 


001 504 








BEO 


RP4WCK 




12819 


052300 


100566 








BMI 


RP4REA0 




12820 


















12821 










.-WRITE 


FLMCTION UAS JUST EXECUTED. 




12822 


052302 


032737 


000400 


002016 


BIT 


*8I T8 , •#RP4HS T A T 


REPEAT FLAG SET? 


12823 


052310 


001050 








BNE 


RP4L00P 


BRANCH IF YES 


12824 


052312 


0Z2777 


040000 


127750 




BIT 


*BITl4,8RP4DS 


ANY ERRORS 


1282b 


052320 


001457 








BEQ 


RP41 


•BRANCH IF NO 


12826 


052322 


105737 


002205 






TST8 


a*RP4TRY 


•TRIED 3 TIMES? 


12827 


052326 


001426 








BEQ 


RP4ERR 


•BRANCH IF YES 


12828 


052330 


052777 


000040 


127726 




BIS 


*BIT5,aRP4CS2 


; CLEAR ALL ERRORS 


12829 


052336 


004737 


050200 






JSR 


PC,afLDRP4 


•RELOAD THE UNIT NO 


12830 


052342 


105237 


002205 






INCB 


a«RP4TRY 


.•INCREMENT TRY COUNT 


12831 


052546 


013746 


1 77776 






MOV 


airpsw,-(sp) 


; SETUP THE STACK TO 


12832 


052352 


012746 


050146 






MOV 


#RP4WTRY,-(SP) 


;TRY WRITE AGAIN 


12833 


052356 


032737 


000400 


002016 




BIT 


«BIT8,a#RP4HSTAr 


.•REPEAT FLAG SET? 


1283A 


052364 


001006 








BNE 


2$ 


•BRANCH IF YES 


12835 


052366 


012777 


000007 


127656 




MOV 


/r7,aRP4CSi 


; RECALIBRATE 


12836 


052374 


105777 


127670 




1$: 


TST8 


aRP4DS 


.•DRIVE READY? 


12837 


052400 


100375 








BPL 


1$ 


.•BRANCH IF NO 


12838 


052402 


000002 






2$: 


RTI 






12839 


052404 


012737 


100200 


002016 


RP4ERR: 


MOV 


#1 00200, a#RP4HSTA 


.•SET ERROR & DONE BIT 


12840 


052412 


010046 








MOV 


RO.-(SP) 


.•SAVE RO 


12841 


052414 


013700 


001672 






MOV 


a«RP411,R0 


.•GET Rt« TABLE INDEX 


12842 


052420 


052760 


100000 


001750 




BIS 


*8IT15.RUNTRAK(R0) 


.SET ERROR BIT 


12843 


052426 


012600 








MOV 


(SP)*.RO 


.•RESTORE RO 


12844 


052430 


000002 








RTI 




.•RETURN 


12845 


















12846 


052432 


012737 


100200 


002016 


RP4L0OP:/1OV 


#100200,arRP4HSTAT 


;SET DONE AND ERROR BITS 


12847 


052440 


032777 


040000 


127622 




BIT 


/lfBIT14,aRP4DS 


.ANY ERRORS? 


12848 


052446 


001003 








BNE 


1$ 


.•BRANCH IF YES 


12849 


052450 


042737 


100000 


002016 




BIC 


/l(BIT15.a#RP4HSTAT 


.CLEAR ERROR BIT 


12850 


052456 


000002 






1$: 


RTI 


.•RETURN 


12851 










.•WRITE 


OK. ..NOW 


DO A WRITE CHECK. 




12852 


052460 


112737 


177775 


002205 


RP41 : 


MOVB 


#-3,a*RP4TRY 


.•INITIALIZE TRY COUNT 


12853 


052466 


105777 


127576 




RP42: 


TSTB 


aRP4DS 


;IS DRIVE READY? 


12854 


052472 


001775 








BEO 


RP42 


.•BRANCH IF NO 


12855 


052474 


004737 


050200 






JSR 


PC.a#LDPP4 




12856 


052500 


}}2777 


000151 


127544 




MOVB 


#151.aRP4CS1 


;LOAD FUNCTION Af^ GO 


12857 


052506 


000002 








RTI 




12858 


















12859 










.■FUNCTION JUST 


EXECUTED WAS A WRITE CHECK 


12860 


052510 


032737 


000400 


002016 


RP4WCK: 


BIT 


*8IT8.a#RP4HSrAT 


.REPEAT FLAG SET 
.•BRANCH IF YES 


12861 


052516 


001345 








BNE 


RP4L00P 



'"fonr-F POP 



11/70 CPU EXERCi:fR 
V-m9-80 11:27 



MACrli 30A(1052) 12-MAR-80 11:50 
RH70/RP(K SERVICE ROUTINE 



D 15 
PAGE 



47-160 



SFQ 018S 



12862 

i?865 

V86A 

12865 

12866 

12867 

V868 

12869 

12870 

12871 

^28/2 

12875 

12874 

'2875 

12876 

12877 

12878 

12879 

12880 

12881 

1288? 

12883 

12884 

12885 

12886 

12887 

12888 

12889 

12890 

12891 

12892 

12893 

1289A 

12895 

12896 

12897 

12898 

12899 

12900 

12901 

12902 

12903 

12904 

12905 

12906 

12907 

12908 

12909 

12910 

12911 

12912 

12913 

12914 

12915 

12916 

12917 



052' 20 
052526 
052530 
052554 
052556 
052542 
052550 
052554 
052560 
052564 
052570 
052572 
052600 
052602 
052606 
052610 



052612 
052620 
052624 
052626 
052632 
052640 
052646 
052654 



052656 
052664 
052666 
052674 
052676 
052702 
052704 
052710 
052716 
052722 
052726 
052732 
052736 
052740 
052746 



052750 
052752 
052756 
052764 
052766 
052770 
052774 
053000 
053006 



052777 
001421 
105737 
001723 
005337 
052777 
004737 
105257 
01 3746 
012746 
000002 
032777 
001404 
005737 
001401 
000747 



112737 
105777 
001775 
004737 
013777 
013777 
112777 
000002 



000005 
005337 
022737 
001467 
002546 
000137 
005237 
022737 
001472 



040000 127542 



127514 



002205 

002176 
000040 
050200 
002205 
1 7777t 
052466 



040000 127464 1$: 
001672 



•WRITE CHECK WAS OK... NOW DO A READ. 

177775 002205 M0V8 #-3.arRP4TRY 

127444 RP43: TST8 aRP4DS 

BEQ RP43 

050200 JSR PC.a»LDRP4 

002114 127420 MOV a(rRP4NWH.aRP48AE 

002112 127410 MOV a(rRP4NW.,aRP4eA 

000171 127376 M0V8 #171,aRP4CSl 

RTI 



BIT 


*8IT14,aRP4DS 


ANY ERRORS? 


BEO 


IS 


BRANCH IF NO 


TST8 


a»RP4TRY 


TRIED 3 TIMES? 


BEO 


RP4ERR 


BRANCH IF YES 


DEC 


a*RP4FUN 


;SET TO WRITE 


BIS 


#8IT5,aRP4CS2 


■CLEAR ALt ERRORS 


JSR 


PC,a*L0RP4 


•RELOAD THE UNIT NO 


INC8 


3*^*4 TRY 


INCREMENT TRY COUNT 


MOV 


a*psw,-(sp) 




MOV 


*RP42,-(SP) 




Q T T 






BIT 


*8IT14.aRP4CS2 


; WRITE CHECK ERROR' 


BEQ 


2$ 


; BRANCH IF NO 


TST 


a#RP4ii 


.•FIRST 2K? 


BEQ 


2$ 




BR 


3S 





INITIALIZE TRY COUNT 

IS DRIVE READY? 

BRANCH IF NO 

LOAD REGISTERS 

LOAD EXTENDED ADR BITS 

LOAD BUS ADR 

LOAD FUNCTION AND GO 

RETURN 









.•FUNCTION JUST 


EXECUTED WAS A READ. 




032737 


000400 


002016 


RP4READ:8IT 


*8IT8,arRP4HSTAT 


•REPEAT FLAG SET? 


001262 






BNE 


RP4L0OP 


•BRANCH IF YES 


032777 


040000 


127374 


BIT 


*8IT14.aRP4DS 


•ANY ERRORS? 


001421 






BEQ 


IS 


•BRANCH IF NO 


105737 


002205 




TSTB 


ail'RP4TRY 


•TRIED 3 TIMES? 


001640 






BEQ 


RP4ERR 


■BRANCH IF YES 


005337 


002176 




DEC 


airRP4FUN 


■SET FUNCTION TO A READ 


052777 


000040 


127346 


BIS 


*8IT5,aRP4CS2 


; CLEAR ALL ERRORS 


004737 


050200 




JSR 


PC,a*LDRP4 


•RELOAD THE UNIT NO 


105237 


002205 




INC8 


airRP4TRY 


; INCREMENT TRY COUNT 


013746 


177776 




MOV 


*rpsw,-(sp) 




012746 


052620 




MOV 


#RP43,-{SP) 




000002 






RTI 




rTRY AGAIN 


112737 


000200 


002016 


1$: M0V8 


#200.a#RP4HSTA 


;SET DONE FLAG 


000002 






RTI 




; RE TURN 



•»♦♦♦•**•*••*•*••*******»»•»*»»»« 

S8TTL RH70/RS04 SERVICE ROUTINE 
• SEE DOCUMENTATION FOR FUNC 

********************************* 



002200 
000001 



050444 
002200 
000002 



002200 



002200 



RSRPT: 



RSSRV: 



RESET 

DEC 

CMP 

BEO 

BLT 

JMP 

INC 

CMP 

BEQ 



a#RSFUN 

#i,airRSFUN 

RS41 
RS43 
a«RSWTRY 
aiTRSFUN 

/r2,arRSFUN 

RSWCK 



*********************** 

TIONAL DESCRIPTION OF ROUTINE 
******************************* 



RESTORE FUNCTION 
WHAT IS IT? 
BRANCH IF WC 
BRANCH IF WRITE 

;FIND OUT WHAT FUNCTION 
;WAS JUST EXECUTED 



E 15 

C£QKC-t POP n/70 CPU EXERCI:FR nACm 30A(1052) 12-mR-80 11:50 PAGE ^7-161 

fEOKCE.Pn 11:?7 Rh70/RS(K SERVICE ROUTINE S60 0186 



1?918 


053010 


100554 








BWI 


RSREAO 




1?919 


















12920 










.•WRITE 


FUNCTION 


WAS JUST EXECUTED 




12921 


053012 


032737 


000400 


002020 




BIT 


*BIT8.a»RSHSTAT .-REPEAT FLAG SET? 


12922 


053020 


001036 








BNE 


RSLOOP 


BRANCH IF YES 


12923 


055022 


032777 


040000 


127300 




BIT 


*BIT14,dRSDS 


ANY ERRORS? 


1292A 


053050 


001445 








BEO 


RS41 


BRANCH IF NO 


12925 


053032 


105737 


002206 






TSTB 


a#RSTRY 


TRIED 3 TIMES? 


12926 


053036 


001414 








BEQ 


RSERR ; 


BRANCH IF YES 


12927 


053040 


052777 


000040 


127256 




BIS 


*BIT5,aRSCS2 


CLEAR ALL ERRORS 


12928 


053046 


004737 


050504 






JSR 


PC,a»LDRS 


LOAD UNIT # 


12929 


053052 


105237 


002206 






INC8 


WRSTRY 


INCREMENT TRY COUNT 


12950 


053056 


01 3746 


1 77776 






MOV 


a*PSW,-(SP) 


SETUP THE STACK TO 


12931 


053062 


012746 


050444 






MOV 


#RSWTRY.-(SP) 


TRY THE WRITE AGAIN 


12932 


053066 


000002 








RTI 






12933 


053070 


012737 


100200 


002020 


RSERR: 


MOV 


#1 00200, a#RSHSTAT 


SET ERROR AND DONE BIT 


12934 


053076 


010046 








MOV 


RO,-(SP) 


SAVE RO 


12935 


053100 


013700 


001674 






MOV 


a#RS11,R0 


GET RUN TBL INDEX 


12936 


053104 


052760 


100000 


001750 




BIS 


#81 T 1 5 , RUNTRAK ( RO ) 


SET ERROR BIT 


12937 


053112 


012600 








MOV 


(SP)*,RO 


"RESTORE RO 


12938 


053114 


000002 








RTI 






12939 


















129^0 


0531 16 


012737 


100200 


002020 


RSLOOP 


MOV 


#1 00200. a^TRSHS TAT 


•SET DO^rc AND ERROR BITS 


12941 


053124 


032777 


040000 


4 ^^4 

127176 




BIT 


*8IT14,aRSDS 


•ANY ERRORS. 


12942 


053132 


001003 








BNE 


IS 


■BRANCH IF YES 


12943 


053134 


042737 


100000 


002020 




BIC 


#81 T1 5 .WRSHSTAT 


; CLEAR ERROR BIT 


12944 


053142 


000002 






IS: 


RTI 




; RE TURN 


12945 










.•WRITE 


OK. . .NOW 


DO A WRITE CHECK 






053144 


1 12757 


1 77775 


002206 


n«* 7 4. 

RS4 1 : 


M0V8 


#-3.a»RSTRY 


;INIT TRY COUNT 


12947 


053152 


105777 


127152 




RS42: 


TSTB 


aRSDS 


;IS DRIVE READY? 


12948 


053156 


001775 








BEO 


RS42 


;8RANCH IF NO 


12949 


053160 


004737 


050504 






JSR 


PC-a#LDRS 
#151.aRSCS1 


;LOAD RS REGISTERS 


12950 


053164 


1 12777 


4 C 4 

000151 


127120 




nova 


;LOAD FUNCTION AND GO 


12951 


053172 


000002 








RTI 




.•RETURN 


12952 


















12953 










.•FUNCTION JUST 


EXECUTED WAS A WRITE CHECK 


12954 


053174 


032737 


000400 


"^rt "^rt 

002020 


RSWCK: 


BIT 


#8JT8.a#RSHSTAT 


.•REPEAT FLAG SET? 


12955 


053202 


001345 








BNE 


RSLOOP 


.•BRANCH IF YES 


12956 


053204 


052777 


040000 


4 "^^4 4 ^ 

1271 16 




BIT 


#Bin4,aRSDS 


;ANY ERRORS? 


12957 


053212 


001421 








BEO 


1$ 


;8RANCH IF NO 


12958 


053214 


105737 


002206 




3$: 


TSTB 


a#RSTRY 


.TRIED 3 TIMES'' 


12959 


053220 


001723 








BEQ 


RSERR 


.•BRANCH IF YES 


12960 


053222 


005337 


002200 






DEC 


a«RSF UN 


;SET FUNCTION BACK TO WC 


12961 


053226 


052777 


000040 


127070 




BIS 


#BIT5.dRSCS2 


.•CLEAR THE ERROR 


12962 


053234 


004737 


050504 






JSR 


PC. a#LDRS 




12963 


053240 


105237 


002206 






INCB 


a#RSTRY 


.■INCREMENT THE TRY COUNT 


12964 


053244 


013746 


1 7777t 






MOV 


a#psw.-(sp) 




12965 


053250 


012746 


053152 






MOV 


#RS42.-(SP) 




12966 


053254 


000002 








RTI 


.■TRY AGAIN 


12967 


















'<:Voo 




070777 

\Jjdf f f 






1$: 


BIT 


#8IT14.aRSCS2 


.■WRITE CHECK ERROR? 


12969 


053264 


001404 








BEO 


2$ 


.•BRANCH IF NO 


12970 


053266 


005737 


001674 






TST 


a#Rsii 


.FIRST 2K? 


12971 


053272 


001401 








BEQ 


2$ 


.•BRANCH IF YES 


12972 


053274 


000747 








BR 


3$ 




1297? 



















CEQKL-E POP 11/70 CPU EXERCISFR HACrll 
CEQKCE.P11 '^r-nAW-SO 11:27 



30A(1052) 
RM70/RS04 



12974 










12975 


055276 
055304 


112737 


177775 


002206 


12976 


105777 


127020 




12977 


053310 


001775 






12978 


053312 


004737 


050504 




12979 


053316 


013777 


002120 


^2677^, 


12980 


053324 


013777 


002116 


126764 


12981 


053332 


112777 


000171 


126752 


12982 


053540 


000002 






12983 










12984 










12985 


053342 


032737 


000400 


002020 


12986 


053550 


001262 






12987 


053352 


032777 


040000 


126750 


12988 


053360 


001421 






12989 


053362 


105737 


002206 




12990 


053366 


001640 






12991 


053370 


005337 


002200 




12992 


053374 


052777 


000040 
050504 


126722 


12993 


055402 


004737 




12994 


053406 


105237 


002206 




12995 


055412 


01 5746 


1 7777 t 




12996 


053416 


012746 


053504 




12997 


053422 


000002 






12998 


053424 


112737 


000200 


002020 


12999 


05 3432 


000002 






15000 










15001 










15002 










15005 










15004 


053434 


104420 






15005 


053436 


004737 


064104 




15006 


053442 


012704 


002346 




15007 


053446 


005774 


000000 




15008 


053452 


100437 






15009 


053454 


012746 


000003 




15010 


055460 


004737 


065274 




15011 


055464 


012767 


002414 


126300 


15012 


053472 


005067 


Mh27t 




15013 


053476 


012767 


002414 


^ 26272 


15014 


053504 


005067 


^2^27^ 




15015 


053510 


012746 


^^^77^ 




13016 


053514 


004737 


065022 




13017 


053520 


013754 


002000 




13018 


053524 


013754 


001776 




13019 


05353C 


012754 


172400 




13020 


053534 


004737 


064202 




13021 


053540 


104422 






13022 


053542 


012777 


064545 


^ 26576 


13023 


053550 


000002 






13024 










13025 










13026 


053552 


005037 


001372 




13027 


053556 


162704 


000004 




13028 


053562 


01 7403 


000002 




15029 


053566 


042703 


070057 





12-fW»-80 11:30 
SERVICE ROUTINE 



F 15 
PAGE 



47-162 



SEO 0187 



WRITE CHECK UAS OK... NOW DO A READ. 



H: MOVB 
RS43: TST8 
BEQ 
JSR 

nov 
nov 
novB 

RTI 

.•FUNCTION JUST 
RSREAD: BIT 
BNE 
BIT 
BEQ 
TST8 
BEQ 
DEC 
BIS 
JSR 
INC8 



1J: 



*-3.arRSTRr 

aRSDS 
RS43 

PCaiTLDRS 
aiTRSNEWH.aRSSAE 
MTRSNEUL.aRSBA 
#171,aRSCSl 



EXECUTED UAS A READ. 
«Bir8,a#RSHSTAT 
RSLOOP 
«8IT14,aRSDS 
1$ 

a«RSTRY 
RSERR 
a«RSFUN 
*8IT5,aRSCS2 
PC.a#LORS 
aVRSTRY 



INIT TRY COUNT 

IS DRIVE READY? 

BRANCH IF NO 

LOAD RS REGISTERS 

LOAD BAE 

LOAD BUS ADR 

LOAD FUNCTION AND GO 

RETURN 



REPEAT FLAG SET? 
BRANCH IF YES 
ANY ERRORS? 
BRANCH IF NO 
TRIED 3 TIMES? 
BRANCH IF YFS 
RESTORE FUN TO READ 
CLEAR ALL ERRORS 
LOAD UNIT # 
INCREMENT TRY COUNT 



MOV 


a#PSW,-(SP) 




MOV 


*RS43,-(SP) 




RTI 




.-TRY AGAIN 


M0V8 


«200.afRSHSTAT 


;SET DONE FLAG 


RTI 




.•RETURN 



S8TTL UNI8US EXERCISER SERVICE ROUTINE 
♦ SEE DOCJIENTATION FOR FUNCTIONAL 



DESCRIPTION OF ROUTINE 



LBESRV: SAVREG 
JSR 
MOV 
TST 
BMI 
MOV 
JSR 
MOV 
CLR 
MOV 
CLR 
MOV 
JSR 
MOV 
MOV 
MOV 
JSR 

RESREG 

MOV 

RTI 



PC,a#LDKT 

*UBETBL*6.R4 

a(R4} 

LeE2 

*3.-(SP) 

PC,a#GIVEMAP 

mRRTB-UBESAV 

UBESAV+2 

#$ERRTB.U8EA0R 

UBEADR*2 

#UBEADR,-(SP) 

PCatGETMAP 

anfiEADR^2,a-(R4} 

a#U8EADR.a-(R4) 

#172400.a-(R4) 

PC.arRESKT 

#64545.aUBET8L+6 



GO TO LOU CORE 

GET ADDRESS OF UBECR1 

UAS THERE AN ERROR? 

BRANCH IF YES 

PUT DEVICE ID IN STACK 

GIVE UP MAP REG 

INITIALIZE U8t 



LOAD UBECR2 
LOAD UBEBA 
LOAD UBECC 

GO BACK TO ORIGINAL CORE 



;U3E 
U3E2: 



ERROR- IS 
CLR 
SLB 
MOV 

BJC 



IT LAST MEMORY? 
a»$TMP10 
#4.R4 
a2(R4).R3 
*70037.R5 



.•RESTART IJ3E 
.•RETURN 



ADJUST R4 
GET BECR2 

CLEAR ALL BUT FRROR ^LAGS 



f -f (^CP- 11/70 CPUEXERC1.fr f^ACV"' 
-^U" F.s^n 1^-MAR-80 11:27 



^3050 

1 S031 

1 5052 

15055 

15054 

15055 

15056 

15057 

15058 

15059 

1!J<.0 

15041 

15042 

15043 

15044 

15045 

15046 

15047 

15048 

15049 

15050 

15051 

15052 

15055 

15054 

15055 

15056 

15057 

15058 

15059 

15060 

13061 

13062 

15063 

13064 

15065 

15066 

15067 

15068 

15069 

15070 

13071 

13072 

13073 

13074 

13075 

13076 

13077 

13078 

13079 

13080 

13081 

13082 

13085 

15084 

15085 



053572 


022703 


000400 






CMP 


055576 


001052 








BNE 


055600 


017457 


000000 


002002 




MOV 


055606 


017457 


000002 


002004 




MOV 


055614 


042737 


1 7777i, 


002004 




BJC 


055622 


004737 


062450 






JSR 


055626 


162757 


000004 


001574 




SLB 


055654 


005657 


001576 






sec 


055640 


025737 


001576 


001656 




CMP 


055646 


101006 








BHI 


055650 


103425 








BLO 


055652 


025757 


001574 


001660 




CMP 


055660 


101001 








BH] 


053662 


103416 








BLO 


053664 


012746 


000003 




1$: 


MOV 


055670 


004757 


063274 






JSR 


055^»74 


005 7P6 








rsr 


055676 


004757 


062540 






JSH 


055702 


004757 


064202 






JSR 


055706 


104422 








RESREG 


055710 


012777 


064545 


126430 




MOV 


053716 


000002 








RTI 


055720 


010657 


001 372 




WHOLE: 


MOV 


055724 


015757 


001262 


001374 


UBEERR: 


MOV 


055752 


012757 


053774 


001262 




MOV 


053740 


012703 


000022 






MOV 


055744 


005737 


001372 






TST 


053750 


001002 








BNE 


053752 


104007 








ERROR 


053754 


000407 








BR 


053756 


013737 


001574 


001276 


1$: 


nov 


053764 


013737 


001576 


001300 




nov 


053772 


104012 








ERROR 



053774 
054002 
054004 
054010 
054014 
054020 
054024 
054030 
054036 
054040 
054044 
054046 



054050 
054052 
054056 



013737 
010446 
012704 
012734 
013734 
005074 
013734 
012774 
012604 
004737 
104422 
000002 



104420 
004757 
005037 



001374 001262 

002340 
172400 
001776 
000004 
002000 

064545 000000 
064202 
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UNI8US EXERCISER SERVICE ROUTINE 

#400. R3 
UBEERR 

a(R4),»rERRBA 
a2(R4),a<rERRBA«2 
#1 77774. a#ERRBA*2 
PC.atPHYMAP 
#4.a»PA1500 

a<rPA2il6 

»VPA2l16.arMXMMH] 
IS 

MHOLE 

d*PAl500,*rMXMML0 
1$ 

MHOLE 
#3.-(SP) 
PC.a*GIVEMAP 

(SP)* 

PC.arUBEINIT 
PC.a#RFSKT 

#64545. auBETBL*6 



SP.atSTMPIO 
a#$LPERR.a#$TMPl 1 
#U8E3,a#iLPERR 
#22. r5 

a#STnpio 
1$ 

7 

UBE3 

a(rPA1500,a#$GDDAT 
a#PA2116.a#tBDDAT 

12 

SArtE MEMORY 

avSTMPH.anLPERR 

R4.-(SP) 

#UBET8L,R4 

#172400,a(R4)* 

a#UBEA0ft.a(R4)« 

a4{R4) 

a#UBEADR*^2,i(R4)« 
#64545.a(R4) 
(SP)*,R4 
PC.a#RESKT 



SEQ C188 



.RESTARr UBE IN 
UBE3: MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

MOV 

MOV 

MOV 

JSR 

RESREG 
RTI 



WAS ERROR A TIMEOUT? 

BRANCH IF NO 

SAVE BUS ADR OF ERROR 



GET PHYSICAL ADDRESS THAT TIMED OOT 
ADJUST PHYSICAL ADR THAT FAILED 
UBE STOPS AT ADR*4 
AT MAX MEM HIGH? 
BRANCH IF HIGHER 
BRANCH IF LOWER 
AT MAX MEM LO? 
BRANCH IF HIGHER 
BRANCH IF LOWER 
.PUT DEVICE ID ON STACK 



.SAVE LOOP ARROR ADR 
.-SET LOOP ADR 



RESTORE ERROR LOOP ADR 
SAVE R4 

GET ADDRESS OF UBE TABLE 

SET U8ECC 

SET UBEBA <15:00> 

CLEAR ALL ERRORS 

SET EXT ADR BITS 

START UBE 

RESTORE R4 



.•RETURN 



•••A************************************************************* 

'.S8TTL MASS BUS TESTER SERVICE ROUTINE 

SEE DOCLPIENTATION FOR FUNCTIONAL DESCRIPTION OF ROUTINE 



064104 
001372 



MBTSRV: SAVRE6 

JSR PC-i#LDKT 
CLR a#iTMPlO 



;G0 TO LOW CORE 



I 



QKC-E POP 11/ 70 CPU EMERCiSFR •lACvll 
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HASS BUS TESTER SERVICE ROUTINE 



SEO 0189 



3110 



3139 
3140 
3141 



15086 


054062 


012704 


002556 






MOV 


#WBTTBL,R4 


. ^C T A AAnC C " AC A^ADC C C />C ^ C t 

;6cT ADDRcSj OF APDRcSS OF CS' 
;ANt ERRORS? 


13C87 


054066 


052754 


040000 






n t T 

81 T 


•81 1 i4,a(R4;* 


1 5088 


054072 


001007 








BNE 


1> 


. BA Aft.l^LJ rC WCC 

.'BRANCH IF YES 


1 5089 


054074 


004757 


064202 




2S: 


JSR 


PC,*rRESKT 


. B A T A AB ff /" T klA 1 ^ ABC 

;6Q BACK TO ORIGINAL CORE 


15090 


054100 


104422 








RESRE6 






I 5091 


054 1 02 


1 \2777 


AAA 1/1 

000161 


1 26246 




nuvo 






15092 


0541 10 


000002 








n T 1 

RT J 




;RESTARl MoT AND RETURN 


15095 


054 1 1 2 


062704 
052774 


000010 




1»: 


AAA 

ADD 




.ADJUST 


1 5094 


0541 16 


/\A/ AAA 

004000 


A /\ Ayv 

000000 




n r T 

81 T 




;NON-cXIiTANT MEMORi ERROR? 


1 5095 


054124 


001456 








nc A 

BEQ 




• OAAAJ^U TC AIA 

; BRANCH IF NO 


1 5096 


054126 


162704 


000006 






SUB 


#6,R4 


. Af\ II IC T O/ 

.ADJUST Hh 


13097 


054132 


013437 


A A 4 c ^ y 

001574 






MOV 




;ucT oUo ADR 


15098 


0541 36 


9^ 

013457 


AA 4 C 7^ 

001576 






MOV 


• (R4/*,S»rA<:il6 


. /*C T Ol IC Aff\D CWT 

;GrT BUS ADR EXT 


1 5099 


054142 


\b2757 


AAAAA/ 

000004 






CI A 

Sin 


#4,alfrAl )UU 


■ AfS II IC T Ol IC AAD 

.'ADJUST BUS ADR 


1 5100 


rtC / 4 CA 

054150 


AACZ 

005657 


A A 1 C 

001 576 






SBC 


•frA«rn6 




5101 


AC / 4 C / 

054154 


025757 

AAI Air 

00101 J 
025757 


A A 4 c ^ y 

001574 


A A 4 ^ ^ A 

001660 




CMP 


•fPAl !>U0,9fnxmL0 


• TC TT 1 ACT MCtM^^Vy 

;15 II LAST McMORt? 


1 5102 


AC / 1 ^ 

054162 








BNc 


McMHOLc 


• ODAAiru fC AlA 

.BRANCH IF NO 


5105 


054164 


001 5r6 


AA 1 ^ C ^ 

001656 




CMP 




mTLACtW CVT Af\D QTTC 

;CHcLK cXT ADR DiIS 






vv lull 














5105 


0541 74 


005724 








TST 


(R4)* 


.'INCREMENT R4 


5106 


054176 


052774 


000047 


000000 




BIS 


#47.a(R4) 


.CLEAR THE ERROR 


5107 


054204 


012754 


000007 






MOV 


#7.a(R4)* 


.■SELECT UNIT 7 


5108 


054210 


005074 


177766 






CLR 


d-12(R4) 


.'CLEAR WORD COLMT 


5109 


0542U 


000727 








BR 


2S 


.'CONTINUE 



5111 


054216 


010637 


001372 




MEMHOLE :MOV 


SP.a*STHP10 




15112 


054222 


013737 


001262 


001374 


M8TERR: 


MOV 


air$LPERR.a«STMPii 


.-SAVE LOOP ADDRESS 


13113 


054230 


012737 


054272 


001262 




MOV 


JTlS.airSLPERR 


.SET NEW LOOP ADR 


13114 


054236 


012703 


000020 






MOV 


#20.R3 


.'PUT DEVICE ID IN R3 


13115 


054242 


005737 


001372 






TST 


arSTMPTO 




13116 


054246 


001002 








BNE 


2S 




13117 


054250 


104007 








ERROR 


7 




13118 


054252 


000407 








BR 


1$ 




13119 


054254 


013757 


001574 


001276 


2%: 


MOV 


a«PA1500.a<rSGDDAT 




13120 


054262 


015757 


001576 


001300 




MOV 


airPA2ii6,airSB0DAT 




13121 


054270 


104013 








ERROR 


13 




13122 


054272 


015757 


001374 


001262 


1$: 


MOV 


a»$TMPll.a#SLPERR 


.RESTORE LOOP ADR 


15125 


054300 


012704 


002366 






MOV 


l»BTT8L*10.R4 


.'GET ADR OF MBTT8L*10 


15124 


054304 


015400 








MOV 


a-(R4),R0 


.'GET BUS ADR EXTENDED 


15125 


054306 


015401 








MOV 


a>(R4),Rl 


.'GET BUS ADR 


15126 


054310 


01 5402 








MOV 


a-(R4),R2 


;GET WORD COCWT 


15127 


054512 


006502 








ASL 


R2 


.'ADJUST WORD COUNT 


13128 


054514 


160201 








SUB 


R2,R1 


.•FORM START ADR OF THIS XFER 


15129 


054516 


005600 








SBC 


RO 




15130 


054520 


052774 


000047 


000010 




BIS 


#A7,al0(R4) 


.'CLEAR THE WORLD 


13151 


054326 


012774 


000007 


000010 




MOV 


#7,aiO(R4) 


.'SELECT UNIT 7 


13132 


054334 


005724 








TST 


(R4)* 


.'ADJUST R4 


13133 


054336 


010134 








MOV 


R1,8(R4)* 


.'RESTORE BUS ADR 


13134 


054340 


010074 


000000 






MOV 


R0.a(R4) 




13135 


054344 


004737 


064202 






JSR 


PC.atRESKT 


;60 BACK TO ORIGINAL fORE 


13136 


054350 


104422 








RESREG 




13157 


054552 


112777 


000161 


125776 




MOVB 


#161,aMBTTBL 


.'START AGAIN 


15158 


054560 


000002 








RTI 


.'RETURN 



.S8TTL LINE CLOCK SERVICE ROUTINE 

THIS ROUTINE FIRST REMAPS PROGRAM EXECUTION TO LOW 
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CEOKCE.Pn 1?-«AR-80 11:27 LINE CLOCK SERVICE ROUTINE 



SEO 0190 



13U2 

13K3 

13U4 

13U5 

13K6 

13U7 

13U8 

13H9 

13150 

15151 

13152 

^5153 

15154 

15155 

13156 

15157 

13158 

13159 

13160 

13161 

13162 

13163 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

C 

( 

( 

( 

( 

( 

( 

( 



054362 
054364 
054370 
054374 
054402 
054404 
054410 
054414 
054420 
C54426 
054450 
054454 
054440 
054444 
054446 
054454 



104420 
004757 
105237 
122737 
001016 
105257 
005267 
105057 
122757 
001004 
105037 
005257 
004757 
104422 
012757 
000002 



054456 
054456 
054464 



032777 
001077 



054466 000416 



054470 
054474 
054502 
054506 
054512 
054514 
054516 
054522 
054524 
054524 
054550 
054552 
054540 
054542 
054550 
054552 



013746 
012737 
005737 
012637 
000455 
022626 
012657 
000415 

105767 
001421 
126767 
101015 
052777 
001404 
016767 



000004 
054514 
177060 
000004 



000004 

124524 
124531 
001000 
124504 



MEMORY. IT THEN INCREMENTS AND KEEPS TRACK OF THE 
SECOND AND MINUTE COUNTS KEPT IN LOCATIONS "l.TICKS" 
AND 'miClCS" RESPECTIVELY. 







LKSRV: 


SAVREG 






064104 






JSR 


PCarLDKT 


;60 TO LOW CORE 


001700 






INCB 


d»L TICKS 


.•INCREMENT TICK COUNT 


000074 


001700 




CMP8 


*60..arL TICKS 


.ONE SECOND YET? 








BNE 


1$ 


.■BRANCH IF NO 


001701 






INCB 


a*LTICKS*1 


.•INCREMENT SECOND COUNT 


124610 






INC 


SDEVCT 


.KEEP APT GOING 


001700 






CLR8 


aVLTICKS 


.•CLEAR SECOND COUNT 


000074 


001701 




CMPS 


#60.,arLTiCKS*i 


;ONE MINUTE VET? 








BNE 


IS 


.•BRANCH IF NO 


001701 






CLRB 


a#LTICKS»1 




001676 






INC 


a*MTICKS 


.•INCREMENT MINUTE COUNI 


064202 




1$: 


JSR 


PC.a#RESKT 


.•RESTORE THE KT 








RESREG 






000100 


177546 




MOV 


«eiT6.a*LKS 


.•CLEAR READY BIT IN CLOCK 








RTI 




.•RETURN 



.S8TTL SCOPE HANDLER ROUTINE 

•THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

*AND LOAD THE TEST NUMBER ( ST STMI) INTO THE DISPLAY REG. (DISPLAY<7:0» 

•THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

♦SW14=1 LOOP ON TEST 

•SW11=1 INHIBIT ITERATIONS 

*SW09=1 LOOP ON ERROR 

•CALL 

* SCOPE ;;SCOPE=IOT 



040000 124560 



000004 



SSCOPE : 

BIT 
BNE 

;>(r##/C/r START OF 
SXTSTR: BR 

MOV 
MOV 
TST 
MOV 
BR 

5S: CMP 
MOV 
BR 

6$::fHf0M0END OF 



124514 
124500 



2$: 



7S: 



TST8 
BEQ 
C/V8 
BHI 
BIT 
BEQ 
MOV 



#SW14,SSSWRP 
SOVER 
CODE FOR THE XOR 
6S 

a*ERRVEC,-(SP) 
#5$.a»ERRVEC 

ari 77060 

<SP)*,a#ERRVEC 
SSVLAD 
(SP)*,<SP)+ 
{SP)*,a#ERRVEC 
7$ 

CODE FOR THE XOR 
SERFLG 
5S 

SERMAX. SERFLG 
5$ 

#8JT09.aSSWRP 
4S 

SLPERR.SLPADR 



;;L00P ON PRESENT TEST? 
;;YES IF SW14=1 
TESTER4f#### 

;IF RUNNING ON THE "XOR" TESTER CHANGE 

;THIS INSTRUCTION TO A "NOP" (N0P=240) 

.-SAVE THE CONTENTS OF THE ERROR VECTOR 

;SET FOR TIMEOUT 

;TIME OUT ON XOR? 

.•RESTORE THE ERROR VECTOR 

;G0 TO THE NEXT TEST 

.•CLEAR THE STACK AFTER A TIME OUT 

.•RESTORE THE ERROR VECTOR 

.•LOOP ON THE PRESENT TEST 

TESTER#m« 

.-HAS AN ERROR OCCURRED? 
;BR IF NO 

;MAX. ERRORS FOR THIS TEST OCCURRED? 
;8R IF NO 
;L0OP ON ERROR? 
;8R IF NO 

;SET LOOP ADDRESS TO LAST SCOPE 



CEQK 



131 



-E POP n/70 CPU exerci:fr 

E.Pn V-m«-80 11:27 



«ACV11 50A(1052j 12-MAfi-80 11:30 
SCOPE HANDLER ROUTINE 



J 15 
PAGE 



47-166 



SEO 0191 



054560 


000441 








BR 


$OVER 




054562 


105067 


124466 




4$: 


CLR8 


SERFLG 


;ZEFiJ THE ERROR FLAG 


054566 


005067 


124604 






CLR 


STIMES 


.•CLEAR THE NUMBER OF ITERATIONS TO MAKE 


054572 


000415 






BR 


IS 


.ESCAPE TO THE NEXT ffcST 


054574 


0Z2777 


004000 


124442 


3S: 


BIT 


*8ni1.a$SWRP ; 


.•INHIBIT ITERATIONS? 


054602 


001011 








BNE 


11 


;8R IF YES 


054604 


105767 


124440 






TST8 


SPASS 


;IF FMRST PASS OF PROGRAM 


054610 


001406 






BEQ 


1$ 


INHIBIT ITERATIONS 


054612 


005267 


124440 






INC 


SICNT 


.•INCREMENT ITERATION COUNT 


054616 


026767 


124554 


124432 




CMP 


$TIMES,$ICNT 


.•CHECK THE NUMBER OF ITERATIONS MADE 


054624 


002017 








BGE 


SOVER 


;8R IF MORE ITERATION REQUIRED 


054626 
054634 


012767 


000001 


124422 
124534 


1$: 


MOV 


*1, SICNT 


.•REINITIALIZE THE ITERATION COUNTER 


016767 


000046 




MOV 


SMXCNT.STIMES ; 


;SET NIWBER OF ITERATIONS TO DO 


054642 


011667 


124412 




SSVLAD: 


MOV 


(SP).SLPADR 


;SAVE SCOPE LOOP ADDRESS 


054646 


011667 


124410 






MOV 


(SP).SLPERR 


.SAVE ERROR LOOP ADDRESS 


054652 


005067 


124522 






CLR 


SE SCAPE 


.•CLEAR THE ESCAPE FROM ERROR ADDRESS 


054656 


112767 


000001 


124403 




M0V8 


*1.SERMAX 


.•ONLY ALLOW ONE(I) ERROR ON NEXT TEST 


054664 


105767 


124364 




SOVER: 


TST8 


SERFLG 


;ANY ERRORS? 


054670 


001403 








BEQ 


IS 


;8RANCH IF NO 


054672 


116737 


124356 


001253 




M0V8 


SERFLG.eMTSTSTNM+l 




054700 


016716 


124354 




1$: 


MOV 


SLPADR.(SP) 


.•FUDGE RETURN ADDRESS 


054704 


000002 








RTI 




.FIXES PS 


054706 


000010 






SMXCNT: 


10 




;MAX. NUMBER OF ITERATIONS 



.S8TTL ERROR HANDLER ROUTINE 



THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT. 
SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
AND GO TO SERRTYP ON ERROR 

THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 



SW15=1 

SW13=1 
SW10=1 
SW09=1 
CALL 



HAL T ON E RROR 
HALT CAN OCCUR BEFORE AND AFTER 
INHIBIT ERROR TYPEOUTS 
BELL ON ERROR 
LOOP ON ERROR 



THE ERROR TYPEOUT 



ERROR N 



;;ERROR=EMT AND N-ERROR ITEM NUMBER 



054710 








054710 


116737 


124340 


001253 


054716 


105267 


124332 




054722 


001775 






054724 


016737 


124322 


177570 


054732 


005767 


124276 




054736 


001414 






054740 


011667 


124252 




054744 


162767 


000002 


124244 


054752 


016767 


124274 


124240 


054760 


012767 


000001 


124226 


054766 


000000 






054770 








054770 


005777 


124250 




054774 


100001 






054776 


000000 






055000 


032777 


002000 


124236 



SERROR: 
7S: 



10S: 



8S: 



M0V8 

INC8 

BEQ 

MOV 

TST 

BEQ 

MOV 

SL8 

MOV 

MOV 

HALT 

TST 
BPL 
HALT 
BIT 



SERFLG,*rSTSTf^+1 

SERFLG 

7$ 

STSTf#1,*rDISPLAY 

SENV 

10$ 

(SP).$FATAL 
#2,$FATAL 
$TST^#1.$TESTN 
#1,1MSGTY 



SET THE ERROR FLAG 

DON'T LET THE FLAG GO TO ZERO 

.•DISPLAY TEST NUMBER AND ERROR FLAG 
APT MODE ? 

;LOAD APT MAILBOX 



SSSWRP 

as 

#8IT10,aSSWRP 



;; FATAL ERROR 



HALT ON ERROR = 1? 
BRANCH IF NO 
YES— HALT 
8ELL ON ERROR? 



CEUKC-f POP 11/70 CPU EXERCISER MACVll 
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ERROR HANDLER ROUTINE 
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SEQ 0192 



(1) 


055006 


001402 








BEQ 


(1) 


055010 


104400 


001402 






TYPE 


(1) 


0550K 


005267 


124244 




1$: 


INC 


(1) 


055020 


011667 


y2'*2^^ 






MOV 


(1) 


055024 


162767 


000002 


124236 




SUB 


(1) 


055032 


117767 


124232 


124226 




M0V8 


(1 ) 


055040 


032777 


020000 


124176 




BIT 


(1) 


055046 


001004 








BNE 


(1) 


055050 


004767 


000056 






JSR 


(1) 


055054 


104400 


001407 






TYPE 


(1) 


055060 


005777 


124160 




2$: 


TST 


(1) 


055064 


100001 








BPL 


(1) 


055066 


000000 








HALT 


(1) 


055070 


022767 


046652 


}227^i, 


9$: 


CMP 


(1) 


055076 


001001 








BNE 


(1) 


055100 


000000 








HALT 


(1) 


055102 


012777 


001000 


124134 


3$: 


BIT 


(1) 


055110 


001402 








BEQ 


(1) 


055112 


016716 


124144 






MOV 


(1) 


055116 


005767 


124256 




4S: 


TST 


(1) 


055122 


001402 








BEQ 


(1) 


055124 


016716 


124250 






MOV 


(1 ) 


055130 








5$: 




(1) 


■)55130 


000002 








RTI 



1 3165 








13l66 








1 

1 J lO^ 








13168 








13169 








13170 








13171 








13172 








13173 








13174 








13175 








13176 








13177 








13178 








13179 








13180 








13181 








13182 








13183 








13184 








13185 








13186 








13187 








13188 








13189 








13190 








13191 








13192 








13193 








13194 


055132 


104420 




13195 


055134 


104400 


001407 


13196 


055140 


004737 


056632 



IS 

.$8ELL 

SERTTL 

(SP).$ERRPC 

#2,$ERRPC 

aSERRPC, SITE/IB 

*8IT13.aSSWRP 

2% 

PCSERRTYP 
.$CRLF 
aSSURP 
9S 

#$EN0A0,42 
3$ 

«8IT09,S$SyRP 
4S 

$LPERR.(SP) 
SE SCAPE 
5$ 

$ESCAPE.(SP) 



;;N0 - SKIP 
;;RIN6 BELL 

;; COUNT THE NJ«ER OF ERRORS 
;;GET ADDRESS OF ERROR INSTRUCTION 

; .STRIP AND SAVE THE ERROR ITEM CODE 

;;SK1P TYPEOUT IF SET 

;;SKIP TYPEOUTS 

;:G0 TO USER ERROR ROUTINE 

;;HALT ON ERROR 
;;SKIP IF CONTINUE 
;;HALT ON ERROR. 
' •ACT-11'' 
••branch' IF NO 
• •YES 

••LOOP ON ERROR SWITCH SET? 
;;8R IF NO 

; .-FUDGE RETURN FOR LOOPING 
; .-CHECK FOR AN ESCAPE ADDRESS 
;;8R IF NONE 

;, -FUDGE RETURN ADDRESS FOR ESCAPE 



.-.-RETURN 

**************************************************************** 

S8TTL ERROR MESSAGE TYPEOUT ROUTINE 

•THIS ROUTINE FIRST TYPES A STANDARD MESSAGE CONSISTING OF THE 

•VIRTUAL PC. THE PHYSICAL PC. THE PSW AT THE TIME OF THE ERROR CALL. 

♦AND THE SUB-PASS COUNT. THE SUB-PASS COUNT CONSISTS OF THE SUB PASS COUNT IN THE 

•HIGH BYTE AND THE PASS COUNT IN THE LOW BYTE. 

•IT THEN USES THE "ITEM CONTROL BYTE" (SITEMB) TO DETERMINE WHICH 
•ERROR IS TO BE REPORTED. IT THEN OBTAINS. FROM THE "ERROR TABLE" 
•THE ERROR MESSAGE POINTER AND TYPES THE ERROR MESSAGE. THE DATA 
•HEADER POINTER IS THEN OBTAINED AND A DATA HEADER IS TYPED. 
•THE DATA POINTER AND DATA FORMAT ARE THEN OBTAINED. THERE ARE 
•FOUR TYPES OF DATA FORMAT. AS FOLLOWS: 



0 TYPE THE CONTENTS OF THE DATA TABLE WORD IN 
6 DIGIT OCTAL FORMAT 

1 CONVERT THE CONTENTS OF THE DATA TABLE WORD TO 
22 BITS AND TYPE AN 8 DIGIT OCTAL NUTBER 

2 TYPE THE CONTENTS OF THE DATA TABLE WORD AND 
THE WORD+2 IN 8 DIGIT OCTAL FORMAT 

3 USE THE CONTENTS OF THE DATA TABLE WORD AS A 
DEVICE ID AND TYPE THE DEVICES NAME 

4 CONVERT THE TWO WORDS POINTED TO BY THE DATA 
TABLE TO FLOW^TING POINT FORMAT AND TYPE. 

5 CONVERT THE FOUR WORDS POINTED TO BY THE DATA 
TABLE TO FLOATING DOUBLE FORMAT AND TYPE 



$ERRTYP:SAVREG 
TYPE 
JSR 



.SCRLF 

PC.aCTYPTIME 



.-.-"CARRIAGE RETURN' 
.-GO TYPE THE TIME 



t "LINE FEED" 



CEQKC-E POP 
CEQKCE.PII 



11/70 CPU exerci:er 

12-mR-80 11:27 



L 15 

HACm 30A(1052) 12-«AR-80 11:30 PAGE 47-168 
ERROR MESSAGE TYPEOUT ROUTINE 



SEO 0193 



15197 
13198 
13199 
(1) 
(1) 
15200 
13201 
15202 
13205 
13204 
13205 
15206 
1320^ 
15208 
15209 
13210 
13211 
15212 
15213 
152K 
15215 
15216 
15217 
13218 
13219 
15220 
13221 
13222 
13223 
13224 
(1) 
(1) 
15225 
13226 
13227 
13228 
15229 
15230 
13231 
13232 
13233 
13234 
(1) 
(1) 
15255 
13236 
13237 
15238 
13239 
13240 
13241 
13242 
13243 
13244 
15245 
13246 



055144 
055150 
055154 

055160 
055162 
055166 
055172 
055200 
055206 
055210 
055214 
055216 
055222 
055226 
055230 
055236 
055242 
055246 
055252 
055256 
055262 
055266 
055270 
055272 
055276 
055302 

055304 
055310 

055314 
055316 
055322 
055326 
055332 
055334 
055340 
055344 
055350 
055352 
055356 

055362 
055364 
055370 
055372 
055376 
055400 
055404 
055406 
055410 
055412 
055414 
055416 
055422 



104400 
104400 
016746 

104402 
104400 
013700 
013737 
122737 
003403 
105737 
001005 
004737 
010037 
000407 
013737 
005057 
010037 
012746 
004737 
062716 
012667 
104400 
000000 
104400 
016646 
104402 

104400 
016746 

104402 
104400 
116746 
105066 
104402 
104400 
013746 
162716 
104402 
104400 
016746 

104402 
104400 
005000 
153700 
001431 
022700 
001551 
005300 
006300 
006300 
006300 
062700 
012067 



064642 
001407 
124110 



056404 
001572 

001270 001572 
000014 001266 

001266 

062556 
001572 

001572 001574 

001576 

001572 

001574 

057670 

000003 

000002 



056404 
000030 



056404 
124374 



056404 
123724 
000001 

056404 
001630 
000060 

056404 
123666 



001407 
001266 
000007 



002414 
000004 



51$: 
42$: 
41$: 

30$: 



1$: 



TYPE 
TYPE 
MOV 

TVPOC 

TYPE 

MOV 

MOV 

CMP8 

BLE 

TST8 

BNE 

JSR 

MOV 

BR 

MOV 

CLR 

MOV 

MOV 

JSR 

ADD 

MOV 

TYPE 

.WORD 

TYPE 

MOV 

TVPOC 

TYPE 
MOV 

TYPOC 

TYPE 

M0V8 

CLR8 

TYPOC 

TYPE 

MOV 

SUB 

TYPOC 

TYPE 

MOV 

TYPOC 

TYPE 

CLR 

Bise 

BEQ 
CMP 
BEQ 
DEC 
ASL 
ASL 
ASL 
ADD 
MOV 



.MSG3 
.$CRLF 

iERRPC.-(SP) 



.8$ 

»rVADR,RO 

»r$ERRPC,arvADR 

#14.a#SITEMB 
51$ 

a#$ITEMB 
42$ 

PC,a#CNVADR 

RO,a#VADR 

4li 

»rVADR,a#PA1500 

a*PA2ll6 

RO.»rVADR 

#PA1500,-(SP) 

PC,anD620 

*3.(SP) 

(SP)+.30$ 



.8$ 

30(SP).-(SP) 



.8$ 

$MAINT,-(SP) 



,8$ 

$TSTNM.-(SP) 

KSP) 

a*SUBPASS,-(SFO 
#60. (SP) 

,8$ 

$PASS,-(SP) 



.$CRLF 
RO 

a#$JTEMB,RO 
6$ 

»7.R0 

15$ 

RO 

RO 

RO 

RO 

#$ERRTB.RO 
(R0)+. 2i 



SAVE $ERRPC FOR TYPEOUT 

TYPE THE VIRTUAL PC 

GO TYPE— OCTAL ASCII (ALL DIGITS) 

■ 5/\vE VADR 

•SAVE THE VIR PC FOR CONVERSION 



ERROR ZERO? 
BRANCH IF NO 
CONVERT TO 22 BITS 



PUT ADDRESS OF PC ON STACK 
CONVERT TO ASCII 
GET RID OF 3 MS DIGITS 
SAVE POINTER TO ASCII 
TYPE IT 



.-GET PSW AT TIME OF ERROR 
;TYPE IT 



SAVE $MAINT FOR TYPEOUT 

TYPE THE MAINTENANCE REG 

GO TYPE— OCTAL ASCII (ALL DIGITS) 



.TYPE THE TEST Nl/CER 



SAVE $PASS FOR TYPEOUT 

TYPE THE PASS COUNT 

GO TYPE— OCTAL ASCII (ALL DIGITS) 



.-PICK UP THE INDEX 

.•EXIT IF ZERO 
IS THIS ERROR 7? 
BRANCH IF YES 

.•ADJUST THE INDEX SO THAT IT WILL 
WORK FOR THE ERROR TABLE 



;;FORM TABLE POINTER 

;. -PICKUP "ERROR MESSAGE" POINTER 



H 15 

tQKC-E POP n/70 CPU EXERCISER MACVH 30A(1052) 12H«VW-80 11:30 PAGE 47-169 
CEQKCE.Pn 11:2? ERROR MESSAGE TYPEOUT ROUTINE 



SEO 01 9A 



13247 

13248 

13249 

13250 

13251 

13252 

13253 

13254 

13255 

13256 

13257 

13258 

13259 

15260 

13261 

15262 

13263 

13264 

13265 

13266 

13267 

13268 

13269 

13270 

13271 

13272 

13273 

13274 

13275 

13276 

15277 

13278 

13279 

13280 

13281 

13282 

13283 

13284 

13285 

15286 

13287 

13288 

13289 

13290 

13291 

13292 

13293 

13294 

13295 

13296 

13297 

13298 

13299 

13300 

13301 

13302 



055426 
055430 
055432 
055434 
055440 
055444 
055446 
055450 
055452 
055456 
055460 
055462 
055464 
055470 
055472 
055474 
055500 
055502 
055506 
055510 
055514 
055516 
055522 
055524 
055530 



055532 
055534 
055536 
055540 
055542 
055544 
055550 



055552 
055554 
055560 
055564 
055570 
055574 
055600 
055602 
055604 
055610 



055612 
055614 
055616 
055622 
055626 



001404 
104400 
000000 
104400 
012067 
001404 
104400 
000000 
104400 
012001 
001004 
104422 
104400 
000207 
011002 
122712 
001424 
122712 
001441 
122712 
001445 
122712 
001456 
122712 
001465 



005202 
013146 
104402 
005711 
001747 
104400 
000751 



005202 
004737 
012746 
004737 
062716 
012667 
104400 
000000 
062701 
000753 



005202 
011100 
012037 
011037 
000754 



001407 
000004 



001407 

001407 

000001 
000002 
000003 
000004 
000005 



056404 



062556 
001574 
057670 
000003 
000002 



000002 



001574 
001576 



;;SKIP TYPEOUT IF NO POINTER 
;;TYPE THE 'tRROR MESSAGE" 
;;'tRROR MESSAGE"' POINTER GOES HERE 
.-.•"CARRIAGE RETURN" £ 'IINE FEED" 
; .'PICKUP 'DATA HEADER" POINTER 
;;SKIP TYPEOUT IF 0 
;;TYPE THE 'DATA HEADER" 
;;'DATA HEADER" POINTER GOES HERE 
.-.-"CARRIAGE RETURN" a "LINE FEED" 

: .-PICKUP 'DATA TABLE" POINTER 
.-.-GO TYPE THE DATA 

; .-"CARRIAGE RETURN" & 'IINE FEED" 
- 'RETURN 

)6ET 'DATA FORMAT" POINTER 
;DATA FORMAT 1? 
.-BRANCH IF YES 
.-DATA FORMAT 2? 
.-BRANCH IF YES 
.'DATA FORMAT 3? 
.'BRANCH IF YES 
.'DATA FORMAT 4? 
.'BRANCH IF YES 
.'DATA FORMAT 5? 
.-BRANCH IF YES 

•DATA FORMAT 0 
INC 
MOV 
TYPOC 
13$: TST 
BEQ 
TYPE 
BR 





BEQ 


3$ 




TYPE 




21: 


.WORD 


0 




TYPE 


.$CRLF 


3$: 


MOV 


(R0)*.4$ 




BEQ 


5S 




TYPE 




4t: 


.WORD 


0 




TYPE 


. JCRLF 


5$: 


MOV 


(R0)*,R1 




BNE 


7$ 


6t: 


RESREG 






TYPE 


.JCRLF 




RTS 


PC 


7$: 


MOV 


(RO) ,R2 


lOS: 


CfVB 


*1 . (R2) 




BEQ 


9$ 




CMFB 


#2, (R2) 




BEO 


11$ 






mD, y.Hc} 




BEQ 


24$ 




CtVQ 


#4.(R2) 




BEQ 


40$ 




CMP8 


#5.(R2) 




BEO 


60S 



R2 

a(Ri)*.-(SP) 

<R1) 
6$ 
,8$ 
10$ 



.'INCREMENT FORMAT POINTER 
.'PUSH DATA TO BE TYPED 

ANY MORE DATA? 
BRANCH IF NO 
TYPE TWO SPACES 



' *************************************************************** 



INC 


R2 


.'INCREMENT FORMAT POINTER 


JSR 


PC.arCNVADR 


.'GET 22 BIT ADR 


MOV 


<rPA1500,-{SP) 


.'PUSH ADR OF 22 BIT ADR 


JSR 


PC.a#$0B20 


.'CONVERT TO ASCII 


ADD 


#3.(SP) 


.'DELETE LEADING ZEROS 


MOV 


(SP)*.12$ 


.'GET ADR OF ASCII STRING 


TYPE 






.WORD 




.'INCREMENT R1 


ADD 


*2.R1 


BR 


13$ 





055630 005202 



9$: 
14$: 

12$: 



***************************************************************** 

;DATA FORMAT 2 
11$: INC R2 

MOV (RD.RO 

MOV (RO) ••-.ami 500 

MOV (R0).»rPA2116 
BR 14$ 

***************************************************************** 

•DATA FORMAT 3 

^4$: INC R2 .'INCREMENT FORMAT POINTER 



.-INCREMENT FORMAT POINTER 



CEQKC-E POP 11/70 CPU EXERCISER f^ACvn 
CEQKCE.Pn 12-n^R-80 11:27 



N 15 

30A(^052) 12-f1AR-80 11:30 PAGE 47-170 
ERROR MESSAGE TYPEOUT ROUTINE 



SEQ 0195 



13303 
13304 
13305 
13306 
13307 
13308 
13309 
13310 
13311 
13312 
13313 
13314 
13315 
15316 
13317 
13318 
13319 
15320 
13321 
15322 
15323 
13524 
15525 
15326 
13327 
1552o 
15529 
15550 
15551 
15332 
15555 
15554 
13535 
15536 
(1) 
(1) 
(1) 
15537 
15538 
13559 
15540 
15541 
15342 
13345 
13544 
13345 
13546 
15347 
15348 
15349 
13350 
13351 
13552 
15353 
15354 
13355 



055632 
055656 
055644 
055652 
055654 
055656 



055660 
055662 
055666 
055670 
055672 
055676 
055700 
055702 



055704 
055706 
055712 
055714 
055716 
055722 
055724 
055726 



055750 
055732 
055736 
055742 
055744 
055746 
055752 

055764 
055764 
055766 
055772 
055774 
056000 



056002 
056006 
056010 
056012 
056016 
056022 



056024 
056030 
056032 
056036 



013167 
062767 
01 7767 
104400 
000000 
000750 



005202 
012167 
104424 
000000 
012667 
104400 
000000 
000716 



005202 
012167 
104426 
000000 
012667 
104400 
000000 
000704 



010500 
062700 
011067 
104400 
OOOOOt 
104400 
000404 



010500 
022700 
003405 
104400 
000411 



022703 
001426 
002435 
104400 
022700 
001140 



062700 
011000 
02^705 
001404 



000016 

064572 000010 
000004 000002 



000002 
000002 



000002 
000002 



064572 
000002 



055754 

000010 
064761 

000020 



065074 
000012 



064546 
000002 



25$: 



MOV 
ADD 
MOV 
TYPE 

BR 



a(R1)*,25$ 
*MSGINX.25$ 
925$. 25i 



13$ 



GET DEVICE JD 

FORM ADR Of ASCIZ ADR 

GET ADR OF ASCIZ 



.•CONTINUE 



.-DATA FORMAT 4 
40$: INC R2 

MOV (R1)*.44$ 

FL20 
44$: .WORD 

MOV (SP)+.45$ 

TYPE 
45$: .WORD 

BR 15$ 

***************************************************************** 

•DATA FORMAT 5 



;GET ADDRESS OF DATA 
.•CONVERT TO FLOATING FORMAT 

;GET ADDRESS OF ASCIZ STRING 
;TYPE THE DATA 



60$ 
61$: 



INC R2 
MOV (R1)+,61$ 
FLD20 
.WORD 

MOV (SP)*.62$ 
TYPE 
62$: .WORD 

BR 13$ 

***************************************************************** 

!• ERROR 7 DECODE 

— — ---- _ SAVE R3 

•GEN ADRS OF ASCIZ 



INCREMENT FORMAT POINTER 
GET ADDRESS OF DATA 
CONVERT TO FLOATING ASCIZ 

;GET ADDRESS OF ASCIZ STRING 
;TYPE THE DATA 



15$; 



R3,R0 
«MSGINX.RO 
(R0),16$ 



16$: 



;;65$: 
64$: 



MOV 
ADD 
MOV 
TYPE 
.WORD 

TYPE .65$ 

BR 64$ 

.ASCIZ /FAILED/<CRLF> 



MOV 

CMP 

BLE 

TYPE 

BR 



R3-R0 

*10,R0 

17$ 

.MS612 

18$ 



;;TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 



.•SAVE DEVICE ID 
.-MASS BUS DEVICE? 
;8RANCH IF YES 



*************************************************************** 



;MBT ERROR? 

.-BRANCH IF MBT ERROR 

.•BRANCH IF USE ERROR 



.-MASS BUS ERR 

17$: CMP *20.R3 

BEQ 26$ 

BLT 27$ 

TYPE .MS613 

CMP *12.R0 .-WAS IT RS? 

BNE 29$ .-BRANCH IF NO 

***************************************************************** 

;L#gi8US ERROR OR RS04 ERROR 



18$: 



ADD 
MOV 
CMP 
6E0 



#REGINX.RO 
(RO).RO 
*2.R3 
20$ 



FORM ADR OF REG TABLE 
GET ADR OF REG TABLE 
RP3 OR RK? 
BRANCH IF RK 



rEQ«;C-F PDP n/70 CPU EXERCISER MAC^H 
CEQKCE.Pn 12-mfi-80 11:27 



B 16 

30A(1052) 12-nAR-80 11:30 PAGf 
ERROR MESSAGE TrPEOUT ROUTINE 



SEO 0196 



13356 

15357 

15358 

13359 

15360 

13361 

13362 

13363 

1536A 

13365 

13566 

13367 

13368 

13369 

13370 

13371 

15372 

13373 

13374 

13375 

15376 

15377 

15378 

15379 

15380 

13381 

13382 

13383 

1338A 

13385 

15386 

13387 

13388 

13389 

13390 

13391 

13392 

1 3393 

1339A 

13395 

13396 

13397 

13398 

13399 

13400 

13401 

13402 

15403 

13404 

13405 

13406 

15407 

15408 

15409 

15410 

15411 



056040 
056042 
056046 
056050 
056054 
056056 
056062 



056064 
056070 
056074 
056100 
056102 

056104 
056110 
056114 
056116 
056120 
056122 
056126 



100406 
012704 
000423 
012704 
000420 
012704 
000415 



104400 
012704 
062^00 
011000 
000405 

104400 
012704 
000767 
013046 
104402 
104400 
077405 



000007 
000006 
000011 



065263 
000011 
064546 



065372 
000004 



056404 



20$: 
21$: 



eni 

MOV 

SR 

MOV 

BR 

MOV 

BR 



21$ 

#7,R4 

22i 

#6-R4 

22i 

#11. R4 

22$ 



.-BRANCH IF NOT RP03 
.SET RP03 SOe COUNT 

;SET RK05 SOB COUNT 

.•SET RS04 SOB COUNT 



:WT ERROR 
^6$: 

28$: 



; UN I BUS 
27$: 



TYPE 


.MSG16 




MOV 


#11. R4 


.-SET MBT SOB COtWT 


ADD 


#REGINX,RO 


MOV 


(RO).RO 


;6ET ADR OF MBT TABLE 


BR 


22$ 


;60 TYPE REGISTERS 


EXERCISER ERROR 




TYPE 


.MSG17 




MOV 


#4.R4 


;SET UBE SOB COIWT 


BR 


28$ 


;G0 TYPE UBE REGISTERS 


MOV 


a(RO)*.-(SP) 


;GET DATA IN REG 


TYPOC 




.-TYPE IT 


TYPE 


.8$ 


;TYPE TWO SPACES 


SOB 


R4. 22$ 


.•CONTINUE 



056130 


022703 


000022 




CMP 


#22. R3 


056154 


001454 






BEO 


73$ 


056136 


022703 


000002 




CMP 


#2,R5 


056142 


002445 






BLT 


52$ 


056144 


001005 






6NE 


70$ 








;RK05 ERROR 




056146 


104400 


065566 




TYPE 


.MSG22 


056152 


012700 


002236 




MOV 


#RKCS.RO 


056156 


000404 






BR 


71$ 








•RP03 


ERROR 




056160 


012700 


002214 


>0$: 


MOV 


#RP3CS.R0 


056164 


104400 


065576 




TYPE 


.MS623 








;GET. 


CALCULATE 


, t TYPE PhYSIG 


056170 


013001 




^1$: 


MOV 


a(RO)+.Rl 


0561 72 


005720 






TST 


(R0) + 


056174 


013037 


002002 




MOV 


a(RO)t.a#ERRBA 


056200 


072127 


177774 




ASH 


#-4.R1 


056204 


042701 


177774 




BIC 


#1 7^774. R1 


056210 


010137 


002004 




MOV 


R1 .a#ERRBAt2 


056214 


162737 


000002 002002 


74$: 


SUB 


#2,a#ERR6A 


056222 


005637 


002004 




SBC 


a#ERRBAt2 


056226 


004737 


062450 




JSR 


PC.a#PHYMAP 


056232 


012746 


001574 




MOV 


#PA1500.-(SP) 


056256 


004737 


057670 




JSR 


PC.a#$DB20 


056242 


062716 


000003 




ADD 


#3.(SP) 


056246 


012667 


000002 




MOV 


(SP)*,72$ 


056252 


104400 






TYPE 


056254 


000000 




72$: 


.WORD 




056256 


104400 


001407 


32$: 


TYPE 


,$CRLF 


056262 


000167 


1 771 74 




JMP 


6$ 



22$: 



• **************************************************************** 

•THIS CODE TYPES A PHYSICAL BUS ADDRESS IF THF ERROR WAS AN RP05. RK05, OR UBE 

UBE ERROR? 
BRANCH IF YES 
RK05? 

BRANCH IF NOT RK OR RP05 
BRANCH IF RP05 

;GET ADR OF ADR OF RKCS REG 

;GET ADR OF ADR OF RP5CS REG 



GET BUS ADR EXTENDED BITS 
ADJUST RO 

GET BUS ADRESS THAT FAILED 
GET BITS 4&5 INTO BITS Oil 
GET RID OF UNUSED BITS 
SAVE EXTENDED BITS 
DECREMENT BUS ADR 

;G0 CONVERT TO 22 BIT PHYSICAL 

.•CONVERT TO ASCIZ STRING 
;GET RID OF LEADING 7ER0S 



.•EXIT 



.■GET UBE VIRTUAL ADDRESS 



C 16 

fEQicC-E POP n/7C CPU EXERCI^PP MACYll 30A(1052) 11:50 PAGE W-^72 

CEQKCE.Pn ia-«AR-80 11-27 ERROR MESSAGE TYPEOUT ROUT|r€ 



SEQ 0197 



13412 
13413 
13414 
13415 
13416 
15417 
13418 
15419 
15420 
15421 
15422 
15423 
15424 
15425 
15426 
15427 
13428 
15429 
15450 
15451 
15452 
154 55 
15454 
15455 
15456 
13457 
134 53 
13439 
■1 
1 
1 
1 
1 
1 
1 
1 
1 



056266 
056272 
056276 
056502 
056510 
056516 
056522 



056524 
056550 
056552 
056336 
056340 
056542 
056546 
056550 
056554 
056560 
056564 
056570 
056572 
056574 
056400 
056402 
056404 



056410 
0564U 
0564 16 
0564P0 
056422 
056424 
056430 



012700 
015037 
015037 
042737 
162737 
005637 
000734 



'^2700 
jllOOO 
012704 
013046 
104402 
104400 
077405 
104400 
104400 
012704 
104400 
013046 
104402 
104400 
077405 
000725 
020040 
056410 



105767 
100002 
000000 
000407 
010046 
017600 
112046 



002542 
002002 
002004 
177774 
000002 
002004 



064546 
000011 

056404 

001407 
001407 
000004 
065204 

056404 
000 



122707 



000002 



002004 
002002 



73$: 



MOV *VBETBL*2.R0 ;GET ADR OF U8E TABLE *2 

MOV a(RO)*.a#ERRaA .GET BUS ADR THAT FAILED 

MOV a(R0)*.a#ERRBA*2;6ET BAE BITS 

BIC *1 77774. a*ERRaA*2;MASK OFF ADR BITS 

SUB #2.a#ERRBA 

SBC a')'ERRBA'^2 

BR 74$ ;G0 CONVERT & TYPE PHYSICAL ADR 



29$: 
31$: 



50$: 



8$: 





tROR 






ADD 


*REGINX.RO 




MOV 


(RO) .RO 


;FORM ADR OF RP04 TABLE 


MOV 


*1 1 ,R4 
a(RO)*,-(SP) 


.-SET SOB COUNT 


MOV 


;GET DATA TO BE TYPED 


TYPOC 




;TYPE DATA 


TYPE 


.8$ 




SOB 


R4.31$ 


.•CONTINUE 


TYPE 


.$CRLF 




TYPE 


.$CRLF 




MOV 


#4,R4 


.-SET SOe COUNT 


TYPE 


,MSG14 




MOV 


a(RO)*,-(SP) 


.-GET DTA TO BE TYPED 


TYPOC 




.•TYPE IT 


TYPE 


.8$ 


soe 


R4.50$ 


.•CONTINUE 


BR 


32$ 




.ASCIZ 


/ / 


;;TW0(2) SPACES 


.EVEN 









,S8TTL TYPE ROUTINE 

♦ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE, 
•THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 



•N0TE1 
•N0TE2 
•N0TE3 



$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
$FILLS CONTAINS THE NUTBER OF FILLER CHARACTERS REQUIRED. 
$FILLC CONTAINS THE CHARACTER TO FILL AFTER. 



•CALL: 

•1) USING A TRAP INSTRUCTION 
TYPE .MESADR 



* 

•OR 
* 
* 
* 



TYPE 
MESADR 



•2) USING A JSR INSTRUCTION 
MOV PS,-(SP) 

• JSR PC,$TYPE 

• MESADDR 



$TYPE: 

1$: 
2$: 



TST8 

BPL 

HALT 

BR 

MOV 

MOV 

M0V6 



$TPFLG 
1$ 

3$ 

R0,-(SP) 

a2(SP).R0 

(RO)*.-(SP) 



;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



PUSH PROCESSOR STATUS WORD ON THE STACK 
CALL TYPE ROUTINE 
FIRST ADRESS OF MESSAGE 

IS THERE A TERMINAL? 
BR IF YES 

HALT HERE IF NO TERMINAL 

LEAVE 

SAVE RO 

GET ADDRESS OF ASCIZ STRING 

PUSH CHARACTER TO BE TYPED ONTO STACK 



CEQK 
CPQK 



-t POP 11/70 CPU EXERCi:fR 
E.PI1 1?-n*ft-80 11:27 



MACVII 30A(1052) 12-«AR-80 11:30 
TrPE ROUTINE 



D 16 
PAGE 



47-173 



SEO 0198 



15440 
15441 
13442 
13443 
13444 
15445 
15446 
1344 7 
15448 
15449 



0^64 3<: 


AAI AAC 








LX. 


;;on Jr J ISN i int itHni^WIUH 


0>o454 








T C T 


t CD ^ 4. 


• • TC TCDMTMATnO DHO TT nC t TuC CTATV 


U^o4X> 


A1 O^Y\A 






MA\/ 


^ CD \ 4. on 


AC^/ / A 


Ait071 A 


00000 <: 


j» ■ 


Ann 


if 5 ^CD^ 


•AnillCT D? Tl lOlU DC 


AC^ / / 

UjO*»4*» 


A/VW40 

UWWc 






DTI 




• • DP Tl IDM 


AC^ / 




00001 1 


<•» : 


rMDG 


wfi 1 , ^ Or ^ 


• •QDAMru IP r'klT'S 

..ofWiLn ir cn 1 ^ 


0564 !)<: 








OCA 


0> 








AAAOAA 

000<:00 




rMDG 

LitTO 




• -QDAIuru TP KiHT 




AA1 AAy 

001004 




DKiC 






AC^ iLO 


00!)'<:o 






TCT 


( CD ^ 4 


• - DAD rf'TDS^I PS PAllTW 


056464 


104400 


001407 




TYPE 


.SCRLF 




AC^ 7A 


A/VI7C7 






QD 

on 




••f;PT MPVT rUADATTPD 






OOOOjO 


• 


1 CD 
Jon 


or tTVDcr 


••r^n TVDP TUIC rUADArTPD 


U jO*» ' o 


1 5A75A 
1 CO' CO 


1 ccOcU 


o« • 




CF T 1 1 r f CD ) '4- 


• • T C IT T IMP PnO F T 1 1 PR TMADC 




UU 1 JJC 






owe 


C* 


f f 1' iMU OU OC 1 PICA 1 Lrvv%. 




u lo' HO 


1 c<.0 1 u 




nuv 


Ckji II I _ / CD ^ 


• -^FT if nP PTI 1 PD TMAQC KlPPDPn 
f » OC 1 ff Ur riLLCn LrW%o. nCCUCU 

■ 'AND THE NULL CHAR. 


056510 


105366 


000001 


7$: 


DECS 


KSP) 


;;DOES A NULL NEED TO BE TYPED? 


056514 


002770 






BLT 


6$ 


;;8R IF NO— 60 POP THE NULL OFF OF STACK 


056516 


004767 


000052 




JSR 


PC.STYPEC 


;;G0 TYPE A NULL 


056522 


105367 


000100 




DECS 


SCHARCNT 


;; DON'T COUNT THE NULL AS A CHARACTER 


056526 


000770 






BR 


7$ 


;;L00P 



; .-HORIZONTAL TA8 PROCESSOR 



056530 


112716 


000040 




8$: 


MOVB 


#' .(SP) 


;; REPLACE TAB WITH SPACE 


056534 


004767 


000014 




9$: 


JSR 


PC.STYPEC 


;;TYPE A SPACE 


056540 


132767 


000007 


000060 




BITS 


*7.$CHARCNT 


.-.•BRANCH IF NOT AT 


056546 


001372 








BNE 


9S 


;;TAB STOP 


056550 


005726 








TST 


(SP)* 


;;P0P SPACE OFF STACK 


056552 


000726 








BR 


2$ 


.-.-GET NEXT CHARACTER 


056554 


005737 


001 546 




$TYPEC: 


TST 


a#NOTYPE 


;; INHIBIT TYPING? 


056560 


100423 








BMJ 


$TYPEX 


; .-BRANCH IF YES 


056562 


105777 


122526 






TST8 


aSTPS 


.-WAIT UNTIL PRINTER IS READY 


056566 


100372 








BPL 


STYPEC 




056570 


116677 


000002 


122520 




MOVB 


2(SP),a$TPB 


.-.-LOAD CHAR TO BE TYPED INTO DATA REG. 


056576 


122766 


00001 5 


000002 




CMPB 


#CR.2(SP) 


.-.-BRANCH IF 


056604 


001003 








BNE 


1$ 


.-.-NOT <CR> 


056606 


105067 


000014 






CLRB 


SCHARCNT 




056612 


000406 








BR 


$TYPEX 


••EXIT 


056614 


122766 


000012 


000002 


1$: 


CMPB 


#LF,2(SP) 


; .-BRANCH IF 


056622 


001402 








BEO 


STYPEX 


;;<LF> 


056624 


105227 








INC8 


(PC) + 


.-.-INC SPACE 


056626 


000000 






$CHARCNT:.WORD 


0 


.-.-COUNT 


056630 


000207 






STYPEX: 


RTS 


PC 





056632 104420 

056654 004757 064104 

056640 1 1 3701 001 701 



**************************************************************** 

S8TTL ROUTINE TO TYPE THE ELAPSED RUN TIME OF THE PROGRAM 

• THIS ROUTINE CONVERTS THE CONTENTS OF LOCATIONS 'T.TICKS" 

• AND 'MTICKS" TO SECONDS AND MINUTES/HOURS RESPECTIVELY 

• AND TYPES THEM IN THE FOLLOWING FORMAT: 

• HHH:HM:SS 

TYPTIME:SAVREG 

JSR PC,a#LDKT ;G0 BACK TO LOW CORE 

MOVB a#LTICKS+l.Rl ;GET SECOND COUNT 



E 16 

CEQKC-E POP 11/70 CPU EXERCISER MACYH 30A(1052) 12-mR-80 11:30 PAGE 47-174 

CfcQK.CE.Pn 12-f1AP-80 11:27 ROUTINE TO TYPE THE ELAPSED RKH TIME OF THE PROGRAM 



1 i/c/\ 




WjUUU 










RO 
nU 


1 1 


U500*>0 


A710'D7 


(ANA) 1 c 






fi V 


#10.,R0 


1 T/. CO 






UUUUoU 








AAO R1 


1 X/ 






r\^7f\7f\ 






MDV/R 


R1 ajTT IMFPl IF «1 0 
n 1 , 1 1 nc our * 1 U 


1 

1 V»J*» 


UX>OOc 


UlUUUi 








nuv 


RO R1 


1 V.^^ 




UUjVaa^ 










RO 
nu 


1 JJ-^jL 

1 >»X> 




n7i no7 








Ui V 


JTA PO 
wO »nU 


1 

1 J**3f 


nQAA70 


AA.57r\1 
Uoc/^U 1 


UVA/UOU 






Ann 


1 TA^ft 


ncAi«7A 


1 1 ni 77 

1 \ \J\ jf 


0^70A7 
UJr UOr 






MDV/P 


RI a#T IMFPIIt- 4 7 
r\ 1 , 1 i nc our ^ r 


1 '^CO 

1 J** JT 


ncA7n? 


U 1 ji\J 1 


001 A7A 

1 Or O 






nuv 




1 j*«OU 




<v»cnhn 

UUjvW 








n D 


RO 


1 taai 

1 J*»0 1 


n^A7in 

U jOf 1 u 




OOAOI 5 
UvW 1 c 






V 11 


ir10 RO 


1 TAA? 




OA5701 
UOc ' U 1 


OOOOAO 






fSVV 


ir^O Ri 

WOU »n 1 


1 "KL^X 




1 101<»7 
1 1 \J 1 Or 


UVA/ i H 1 






MDV/n 

nuvo 


RI TIMFPIIF4'S 
n 1 ^ 1 i nc our ▼ j 


1 XLAM 




OlOrtOI 








MOV/ 
nuv 


RO Ri 
nu ^ n 1 


















1 j*«00 


\JjOf CO 


oosooo 








ri R 


RO 
nU 


1 \LA7 




0710P7 


OOOOOA 
\J\AAAJO 






Ui V 


irA RO 

wO. »f\U 


1 

< J**00 




n<%?70i 


OOOO^^iO 






ADD 


#^0 RI 

w ov « n 1 


1 

1 j*»Ot 




1 101A7 

1 1 w 1 Or 


0001 ?0 






MOV/P 
nuvo 


Ri TTMFRilF'f4 
n 1 ^ 1 incDur 


1 J** r U 


\JjOf'*'* 


OAS 700 








1 O 1 


RO 
nU 


1 J** f 1 


nCA7AA 
U30f HO 


OOI^TZ. 
\J\J 1 H JH 












1 XL.T? 
1 J**' c 


nsA7sn 

V JO' J\J 


010001 








MOV/ 
nuv 


RO R1 
nu # n 1 


' J** ' J 
















1 

1 JH f H 


U jO' Jc 


oosooo 










RO 
nu 


1 ^7S 
















1 'KL7(\ 
1 J** » o 


V JOf 


071 0?7 


00001 P 






vX V 


#10 RO 


1 \L77 


V JO' OV 


UOc r w 1 


OOOOAO 






ADD 


#60 R1 


1 ^7R 


UPOf OH 


1 10M7 

1 1 w 1 Or 


0000 7? 






nuvo 


R1 rrMFPllF4? 
n 1 # 1 incour 






00S700 

UvJr lAr 








1 O 1 


RO 
nU 




U JO' ' C 


001 








ocw 




1 ^ft1 


U JO' f H 


010001 








nuv 


RO Bl 


1 ^ft? 

1 J*«OC 


U JO' ' o 


oosooo 








ri R 


RO 
nu 


1 fJ.KK 
1 jhOj 


n'i7()C)Ci 


071 0?7 


000010 






l/l V 


#10 RO 


1 

1 JHO** 


()*i7nnc 


UOc ' v 1 


nooo/>o 






ADD 


#60 RI 


1 ^ftS 


ns7nin 

\Jjl\J 1 w 


1 101Ai7 

1 1 v 1 Or 


00004 S 

vWA/H J 






nuvo 


RI TTMFRIIF^I 


1 


nS7014 

\JJr\J 1 H 


00S700 

\AJJf wv 








1 O f 


RO 




OS 701 A 

UJr U lO 


001^10 










C* 


1 XLM 

1 J*»00 


V J' Ucv 


010001 








V 


RO Ri 




\JJf\JCC 


OOSOOO 








ri R 


RO 

MU 




UJ» vc*» 


071 0?7 








D IV 

VI V 


#10 RO 
^ 1 V • # nv 


1 1 


n';7nv) 

U J » 


0/>?701 

vOc r \J 1 


oooo/>n 






ADD 


#60 Ri 

wov ^ n 1 


^ \L.Q7 

1 J^tC 




1 101^%7 

1 f V/ 1 O r 


OOOOPO 

VAA/vcV/ 






Mn\/R 


RI riMFRiir 

n 1 , f J nc our 


1 

1 J*«y 3 


UJf 


m^/oo 


0^70^0 
U J r uou 

001^07 






1 rr C 


.T1ME8UF 




n'\7ru.c 

\JJf\JHH 


lO^/nO 

1 \JHH\J\J 






TVPF 


trRi F 

#*Lr\Lr 






0047^7 

vvH r J r 








I^R 


pr a#RF^Kr 

r^L ^ iw nu ON 1 


13496 


057054 


104422 








RESREG 




13497 


057056 


000207 








RTS 




13498 


057060 


001 


001 


001 


TIME8UF 


:.8YTE 


lS. 1.72,1. 1,72 




057063 


072 


001 


001 








057066 


072 


060 


060 










057071 


000 













13499 
13500 
13501 
13502 



;GET MINUTE COUNT 

GET HOURS AND MINUTES 
MAKE REMAINDER ASCII 
KJT IN BUFFER 



;G0 BACK TO ORIGINAL MEMORY 



.EVEN 

************************************************************** 

!S8TTL ROUTINE TO TYPE THE AVAILABLE DEVICES AND UNIT fAJ^BERS 
;» THIS ROUTINE SEARCHES THE SYSTEM SIZE TABLE FOR NGN- 



CEQKC-t POP 
CEQKCE.P11 



13503 

135(K 

13505 

13506 

13507 

13508 

13509 

13510 

13511 

^3512 

13513 

135K 

13515 

13516 

13517 

13518 

13519 

155PO 

15521 

15522 

15525 

13524 

13525 

13526 

13527 

13528 

13529 

15530 

13531 

13552 



11/70 CPU EXERCi:fR fnACrll 
1?-nAR-80 11:27 



13533 
(1) 
(1) 
(1) 
{') 
(1) 
(1) 
(1) 

(i; 
(1) 
(1) 
(n 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 

(T) 

(1) 
(1) 
(1) 

(1) 
(1) 



057072 
057076 
057102 
057106 
057112 
057114 
057120 
057122 
057126 
057130 
057132 
057134 
057140 
057144 
057146 
057150 
057156 
057162 
057166 
057170 
057172 
057176 
057202 
057204 
057210 
057212 
057215 



f 16 

30A(105?) 12-mR-80 11:30 PAGE 47-175 
ROUTINE TO TYPE THE AVAILABLE DEVICES AND UNIT NUMBERS 

ZERO ENTRIES. WHEN IT FINDS ONE. JT TYPES THE NAME OF THE 
DEVICE AND THE UNIT NkTBERS THAT WERE FOUND TO BE 
AVAILABLE FOR THAT DEVICE. 



SEO 0200 



104400 


06/ 33U 




1 VPblZ: 


1 Trt 


cut T r u 




104*1 00 


0/06j1 






T VDC 


,nb\jj\J 


;NUIt owJ ILH Ktvj oJ 1 0 KtVtKbAL 


104*1 00 


A7AC 1 iL 
O/O5IO 






T VDC 

1 Trt 






Olt'OO 


AAAA1 A 

000010 






MAV/ 

nuv 


Ml A on 

• 1 U , NU 




AAC/V>1 

OOjOUI 










01 




IOj fOl 


Ovl f 1 C 




1 « - 


TCTQ 




.L'CVJLC nVMlL/^OLt . 


AA1 AA/ 
001004 














06<:'01 


AAAAAO 

OOOOOc 




' » : 


Mjv 


*5 D1 


.JnlLntntfMI lnlL;cA 


\Jf fwo 










on It 


• rnKiT TM IP 

. L un 1 i rmJc 


OOOcOf 








DTC 
N 1 0 


DC 




010 1 Uc 






5t ■ 
c» . 


nuv 


01 0? 




\JOCf\JC 


nA^^73 
00*» J' c 






r\UV 






0 1 1 cof 


UwUUc 






nuv 




•f^PT AnnRPCC DP MPCCAf^P 


1 (\LL(V\ 
1 UmmUU 








TVDP 












7C • 

j» . 


unon 
. WUnL' 






1 1 P7A7 


\AJ\J\JO<J 






MDV/n 




•rMFT INTT MD RIIFFPR f A^T I T ) 
. i i^i 1 unii 1 itaj • our r cn v/^ol i i / 


1 1 0 1 Uc 


flfll 71 5 






nuvo 


01 00 1 LC ^rT 1 / ,nc 




01P703 


000010 






MOV 


#10 R3 


•SET SQR COUNT 


006002 






6$: 


ROR 


R2 


;6ET UNITS 


103002 








BCC 


5$ 


.•BRANCH IF NOT A UNIT 


104400 


057P1? 






TYPE 


.4$ 




005267 


000010 




5$: 


INC 


4$ 




077307 








SOB 


R3.6$ 


.•CONTINUE 


104400 


001407 






TYPE 


•SCRLF 




000744 








BR 


H 




000 


054 


040 


4S: 


.BYTE 


0.54.40.0 


.•NLrtBER.COinA. SPACE .TERMINATOR 


000 




























.S8TTL 


BINARY 


TO OCTAL (ASCII) 


AND TYPE 



•THIS ROUTINE IS USED TO CHANGE A 16-61 T BINARY NUMBER TO A 6-DIGIT 
•OCTAL (ASCII) NUWER AND TYPE IT. 

•STYPOS ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

•CALL: 

.-NUfBER TO BE TYPED 
.'CALL FOR TYPE OUT 

;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
;M=1 OR 0 

;;1=TYPE LEADING ZEROS 
;;0=SUPPRESS LEADING ZEROS 



MOV 
TYPOS 
.BYTE 
.BYTE 



Nlli,-(SP) 

N 
M 



* 
* 
* 
* 

•STYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

•STYPOS OR STYPOC 
•CALL: 

• MOV Nlli.-(SP) .-.-NlfCER TO BE TYPED 

• TYPON ;;CALL FOR TYPEOUT 

•STYPOC ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

•CALL: 

• MOV NUM.-(SP) ; .-NUMBER TO BE TYPED 

• TYPOC ;;CALL FOR TYPEOUT 



tEQK 



-i PDP 11/70 CPU EXERCISER MACVH 30A(1052) 
t.PIl 12-mft-80 11:27 BINARY TO 



12-mR-80 11 
OCTAL (ASCII) 



G 16 
: 50 PAGE 
AND TYPE 



47-176 



SEO 0201 



U?'C lo 




uuuuw 




CTvonc • 


Mnu 
nuv 


9\jrl ,— lOr/ 

I f CP) cor fi 1 

I I t , >ur ILL 


• •Pfrviip TuF Mnnp 




1 1 AAA7 


rwvwM 

\AAAA! 1 


fMV>?1 1 




Mnun 


• •! HAD 7Fon rill cufTru 

. • LUny £CnU TILL oWi 1 Ln 




1 1 5AA7 


/W1507 
UUUcUf 






nuvo 


\jiri ▼ «*unuuc ' 1 


• •MMnFO OF nidTC TO rvPF 












Ann 


ir? fSP) 


• -AD IIICT RFTinu AnnRFCC 


A^7'3Z.n 
\Jjf £*»V 










QD 

On 






0572A2 


1 1 57A7 


000001 


OOftI 71 
UvV ' f 1 




MOV/Q 

nuvo 


#1 COP ri 1 


••^FT THF 7FRn FIJI CUTTTM 
• « oC 1 1 nc & cnu TILL owl 1 Lfi 




1 1 ?7A7 
1 1 CI Of 




0001 AS 




ruvo 


wo t ^Ur'RA/C 1 


••^FT FOR <;iXfA) nifilTS 




1 1 C f Of 


OOOOO^ 


OOOI 




ruvo 


irs cnrMT 


••CFT THF TTFRATION TOIMT 














p7 -/CP) 


• •<%A\/F R'^ 
« « o^vc nj 












rMV 


-rcp) 


■ • CAVF R4 


> 'jf c fyj 


V 1 \JjHO 








MOW 
nuv 


n J , \ or / 


• • $AVE R5 




1 1 A7<V. 


0001 AS 






nuvo 


COMOOF 4' 1 R4 


••GET THE NUMBER OF DIGITS TO TYPE 












R4 
nH 






VOc f v/** 


OOOOOA 






ADD 


tfA R4 


••^intRArT IT FOR MAX Al 1 QUFD 


ns7 vit 




0001 ^? 






Mn\/R 

nuvo 


R4 tOMODF 

Jam , lUi/C 


• ■ ^AVF T T FOR IJ^F 
« # o^vc i ' r uoc 




• 1 Of V** 


0001 ?S 






nu vo 


(OF ri 1 R4 


• -GFT THF 7FR0 FIJI ^UITTH 
0 0 \JC < 1 fiw ^cnc/ r i owi f L(i 


ns77i^ 




00001? 






Mnu 

nuv 


1?(SP) RS 


■■PirKlJP THF INPUT MMRFR 














R^ 


•*riFAR THF 0(JTPIJT UORD 

• -ROTATF MSfl INTO "C" 
» # nv 1 ^ 1 c i"00 i ' » 1 w L 




fvv>i n*; 








ROI 
nuL 


RS 












RR 

on 


7C 

J* 


• -no DO MSfi 










?*• 


ROI 


RS 


• -FORM THIS DIGIT 


0S7^% 


00^1 OS 








ROI 


RS 




n*;7^^p 


\J\Aj I V-f 








ROI 


RS 




ns7^^ 


V 1 \JJ\Jj 








MOV 


RS R3 




n';7^Vi 

\jjf 












R3 


;;GET LS8 OF THIS DIGIT 






0000 7^^ 

VWV f o 








wi/L 


• • TYPF THI <; DIGI T** 












RPI 


7$ 


■ -FV) IF NO 






1 77770 

It If f \J 






RT r 

Oi L 


My7777Q R3 


• -RFT R ID OF IIJNK 




00100? 










4t 


• • TF^T FOR 0 














R4 


• -SUPPRESS THIS C 




001403 








RFO 


St 


;;8R IF YES 

DON'T <;iPPRFSS ANYMORE O'S 


ns7V>o 


00SP04 






44- 


IIMf 


R4 




0SP70^ 


0000<=>0 






Oi o 


*'0 R3 
#* R3 


••MAKE THIS DIGIT A<;fII 




OSP703 


000040 






Oi J 


■•MAKE ASCII IF NOT ALREADY 




1 103A7 


000040 






MOVR 


R3 8t 


-■SAVE FOR TYPING 


w J f ^f O 


1 V/HHW 


OS 74 36 






TYPF 




••GO TYPE THIS DIGIT 


V J f •fvc 




00003? 




74- 






• • COUNT BY 1 


ns74fv» 

V/ ' f H\f\j 


00^'^7 








r(;t 


?« 


- -BR IF MORE TO DO 


ns74in 

w J f •» IV/ 










Rl T 

OL 1 


u* 


;;BR IF DONE 


0S7412 


00SP04 










R4 


••INSURE LAST DIGIT ISN'T A BLANK 












RR 

on 


2$ 


••GO DO THE LAST DIGIT 




V 1 <_ O V J 








MOV 


f<:p)-»' RS 


••RESTORE R5 












MOV 


rSP)-f R4 


• 'RESTORE R4 












MOV 


fSP)« R3 


;;RESTORE R3 


\J J f 




00000? 

vWwvC 


000004 




MOV 




'••SET THE STACK FOR RETURNING 


057432 


012616 








nov 


(SP)+,(SP) 


057434 


000002 








RTI 


• * RE TURN 


057436 


000 






8S: 


.BYTE 


0 


••STORAGE FOR ASCII DIGIT 


057437 


000 








.BYTE 


0 


;;TERf1INAT0R FOR TYPE ROUTINE 


057440 


000 






$0CNT : 


.BYTE 


0 


;;OCTAL DIGIT COUNTER 


057441 


000 






$OFILL: 


.BYTE 


0 


;;ZERO FILL SWITCH 


057442 


000000 






SOnODE: 


.WORD 


0 


;;NlfOER OF DIGITS TO TYPE 



•SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 



J 
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CEQKC-C POP 11/70 CPU EXERCi:fR HACvll 30A(1052) 12-«AR-80 11:50 PAGE 47-177 
CEQKCE.P11 1?-l1AR-80 11:27 CONVERT BINAftV TO DECIMAL AND TYPE ROUTINE 



SEO 0202 



•THIS ROUTINE IS USED TO CHANGE A 16-eiT BINARY NUMBER TO A 5-DlGIT 
•SIGNED DECIMAL (ASCII) NUMBER AND TYPE JT. DEPENDING ON WHETHER THE 
•NLfBER IS POSITIVE OR NEGATIVE A S^ACE OR A MINUS SIGN WILL BE TYPED 
•BEFORE THE FIRST DIGIT OF THE NLWBER. LEADING ZEROS WILL ALWAYS BE 
•REPLACED WITH SPACES. 



1 \ 

1 ) 


r\'\7LLL 






J/ 


C\K7LLL 






T\ 

J' 




U 1 V 1 HQ 




Z) 

J/ 








Ti 

J / 








Z) 

J/ 


ns74S4 


010546 








01P746 


0P0200 




\JJf "toe 


016605 


OOOOPO 


. V 


OS 741^ 

V J ' HOD 


100004 




, X 


OS 7470 


005405 








112766 


000055 






005000 






0S7S0? 


O1P703 


057660 






11 P7P^ 


000040 

WW"» w 




05751? 


005002 






057514 


016001 


057650 


1 V 


057520 


160105 




i % 




002402 




-1 . 


057524 


005202 




1 V 


057526 


000774 




1 V 


057530 


060105 

Ww 1 V J 






057532 


005702 

W^ • vt 




1 V 


057534 


001002 

W ■ Wb 






057536 


105716 




i \ 


057540 


100407 




1 V 


057542 


106316 




4 \ 


057544 


103003 

1 V JW J 




1 V 


057546 


116663 


000001 

www 1 


i s 


057554 


052702 


000060 

WWWVwW 


i \ 


057560 


052702 


000040 

www w^ w 


1 ) 


057564 


110223 






057566 


005720 






057570 


020027 


000010 




057574 ■ 


002746 






057576 


003002 






057600 


010502 






057602 


000764 






057604 


105726 






057606 


100003 






057610 


116663 


}77777 




057616 


105013 




3) 


057620 


012605 




3) 


057622 


012603 




3) 


057624 


012602 




5) 


0^7 t2t 


012601 




3> 


057630 


012600 





•CALL: 



tTYPDS: 



It: 



2$: 
3t: 



4$: 



5$: 



6$: 
7$: 



8$: 



9$: 



MOV NLfl.-(SP) 
TYPDS 



MOV RO.-(SP) 

MOV RI.-(SP) 

MOV R2,-(SP) 

MOV R3.-(SP) 

MOV R5.-(SP) 

MOV *20200,-(SP) 

MOV 20(SP).R5 

8PL 1$ 

NEG R5 

M0V8 *'-J(SP) 

CLR RO 

MOV *$D8LK,R3 

M0V8 *• ,(R3)+ 

CLR R2 

MOV $DT8L(R0).R1 

SUB R1.R5 

BLT 4$ 

INC R2 

BR 3$ 

ADD R1 .R5 

TST R2 

BNE 5S 

TST8 (SP) 

BMI 7$ 

ASL8 (SP) 

BCC 6$ 

M0V8 1(SP),-1(R3) 

BIS **0,R2 

BIS #• ,R2 

M0V8 R2,(R3)+ 

TST (R0)+ 

CMP RO.^IO 

BLT 2$ 

BGT 8$ 

MOV R5,R2 

BR 6$ 

TST8 (SP)+ 

8PL 9$ 

M0V8 -1(SP),-2(R3) 

CLR8 (R3) 

MOV (SP)+, R5 

WV (SP) + ,R3 

MOV (SP)+,R2 

MOV (SP)+,R1 

MOV (SP)+.RO 



;;PUT THE BINARY NUWBER ON THE STACK 
;;60 TO THE ROUTINE 



PUSH RO ON STACK 

PUSH R1 ON STACK 

PUSH R2 ON STACK 

PUSH R3 ON STACK 

PUSH R5 ON STACK 

SET BLANK SWITCH AND SIGN 

GET THE INPUT Nl/«ER 

BR IF INPUT IS POS. 

MAKE THE BINARY NUMBER POS. 

MAKE THE ASCII NUMBER NEG. 

ZERO THE CONSTANTS INDEX 

SETUP THE OUTPUT POINTER 

SET THE FIRST CHARACTER TO A BLANK 

CLEAR THE BCD NlfBER 

GET THE CONSTANT 

FORM THIS BCD DIGIT 

BR IF DONE 

INCREASE THE BCD DIGIT BY 1 

ADD BACK THE CONSTANT 

CHECK IF BCD DIGIT=0 

FALL THROUGH IF 0 

STILL DOING LEADING O'S? 

BR IF YES 

MSD? 

8R IF NO 

YES— SET THE SIGN 

MAKE THE BCD DIGIT ASCII 

MAKE IT A SPACE IF NOT ALREADY A DIGIT 

PUT THIS CHARACTER IN THE OUTPUT BUFFER 

JUST INCREMENTING 

CHECK THE TABLE INDEX 

GO DO THE NEXT DIGIT 

GO TO EXIT 

GET THE LSD 

GO CHANGE TO ASCII 

WAS THE LSD THE FIRST NON-ZERO? 

BR IF NO 

YES—SET THE SIGN FOR TYPING 

SET THE TERMINATOR 

POP STACK INTO R5 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO R1 

POP STACK INTO RO 



CEQK 
CFQK 



13555 



13536 



-E POP 11/70 CPU EXERCISER WCYll 
E.P11 1?-nAR-80 11:27 

057632 104400 057660 

057636 016666 000002 COOOOA 

05764A 012616 

057646 000002 

057650 023420 

057652 001750 

057654 000144 

057656 000012 

057660 000004 



I 16 

30A(1052) 12-«Aft-80 11:30 PAGE 47-178 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 



S£0 020? 



$DT8L : 



SDSLK: 



TYPE 
MOV 
MOV 
RTI 

10000. 

1000. 

100. 

10. 

.8LKW 



.$D8LK 

2(SP).4(SP) 

(SP)*.(SP) 



;;N0W TYPE THE NLMBER 
; .-ADJUST THE STACK 

; .'RETURN TO USER 



.S8TTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 

.••THIS ROUTINE WILL CONVERT A 32H3IT UNSIGNED BINARY NUMBER TO AN 
.-•UNSIGNED OCTAL ASCIZ NUMBER. 
.'•CALL 



MOV 
JSR 

RETURN 



#PNTR,-(SP) 
PC.a^$DB20 



POINTER TO LOU WORD OF BINARY NIJXBER 
CALL THE ROUTINE 

THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 



057670 


104420 






$D820: 


SAVREG 




.•SAVE ALL REGISTERS 




057672 


016601 


000002 






MOV 


2(SP),R1 


.•PICKUP THE POINTER TO LOW WORD 




057676 


012705 


060025 






MOV 


#$OCTVL*13.,R5 ; 


.•POINTER TO DATA TABLE 




057702 


012704 


000014 






MOV 


*12.,R4 


;D0 ELEVEN CHARACTERS 




057706 


012703 


177770 






MOV 


#*C7,R3 


.-MASK 




057712 


012100 








MOV 


(R1)+,R0 


; LOWER WORD 




057714 


012101 








MOV 


(R1)*.R1 


.■HIGH WORD 




057716 


005002 








CLR 


R2 


.•TERMINATOR 




057720 


110245 






1$: 


M0V8 


R2.-(R5) 


.-PUT CHARACTER IN DATA TABLE 




057722 


010002 








MOV 


R0.R2 


;GET THIS DIGIT 




057724 


005304 








DEC 


R4 


.-COUNT THIS CHARACTER 




057726 


003016 








BGT 


3$ 


;8R IF NOT THE LAST DIGIT 




057730 


001414 








BEO 


2$ 


;8R IF IT IS THE LAST DIGIT 




057732 


005205 








INC 


R5 


.-ALL DIGITS DONE-ADJUST POINTER 


FOR FIRST 


057734 


010566 


000002 






MOV 


R5.2(SP) 


;ASCIZ CHAR. 6 PUT IT ON THE STACK 


057740 


122765 


000061 


OOOOOi 




CMPB 


*61.3(R5) 


LAST NUBER LEGAL? 




057746 


002003 








BGE 


4$ 


BRANCH IF YES 




057750 


112765 


000060 


000003 




MOVB 


#60.3CR5) 


MAKE IT ZERO 




057756 


104422 






4$: 


RESREG 




.•RESTORE ALL REGISTERS 




057760 


000207 








RTS 


PC ; 


.•RETURN TO USER 




057762 


006203 






2$: 


ASR 


R3 


.•POSITION THE MASK FOR THE LAST 


DIGIT 


057764 


006001 






3$: 


ROR 


R1 


.-POSITION THE BINARY NLfBER FOR 




057766 


006000 








ROR 


RO 


THE NEXT OCTAL DIGIT 




057770 


006001 








ROR 


Rl 






057772 


006000 








ROR 


RO 






057774 


006001 








ROR 


Rl 






057776 


006000 








ROR 


RO 






060000 


040302 








BIC 


R3.R2 
*'6,R2 


;MASK OUT ALL JUNK 




060002 


062702 


000060 






ADD 


.-MAKE THIS CHAR. ASCII 




060006 


000744 








BR 


1$ 


.-GO PUT IT IN THE DATA TABLE 




060010 


000016 






SOCTVL: 


.8LKB 


14. 


.-RESERVE DATA TABLE 





.SBTTL SAVE AND RESTORE R0-R5 ROUTINES 



CEOICC-C POP 
CEQKCE.Pll 



(1) 
(1) 
(1) 
(1) 
(1) 
(1) 

n ) 
(1) 
(1) 

(1) 
(1 ) 
n ; 

M) 

n ) 
(1 ) 
(5) 
(5) 
(3) 
(3) 
(?) 
<Z) 
(1) 
M) 
M) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(1) 
1 3537 
13538 
13539 
135AO 
135A1 
13542 
135A3 
135A4 
135A5 
13546 
13547 
13548 
13549 
13550 



11/70 CPU exerci:fr 

12-«AR-80 11:27 



060026 
060026 
060030 
060032 
060034 
060036 
060040 
060042 
060046 
060052 
060056 
060062 



060064 
060064 
060070 
060074 
060100 
060104 
060106 
060110 
060112 
060114 
060116 
060120 



010046 
010146 
010246 
010346 
010446 
010546 
016646 
016646 
016646 
016646 
000002 



012666 
012666 
012666 
012666 
012605 
r012604 
012603 
012602 
012601 
012600 
000002 



J 16 

MACYll 30A(1052) 12-MAR-80 11:30 PAGE 47-179 
SAVE AND RESTORE R0-R5 ROUTINES 

•SAVE R0-R5 
•CALL: 

• SAVREG 

•UPON RETURN FROM SSAVREG THE STACK WILL lOOK LIKE; 
• 

• TOP (+16) 

• *2 (+18) 

• +4 R5 

• +6 R4 

• +8 R3 

• ♦10 R2 

•♦12 — Rl 

• ♦14 RO 



SEO 02(K 



000022 
000022 
000022 
000022 



000022 
000022 
000022 
000022 



SSAVREG: 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 

.••RESTORE R0-R5 

;*CALL: 

; * RESREG 
SRESREG: 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 



RO.-(SP) 

RI.-(SP) 

R2.-(SP) 

R3,-(SP) 

R4.-(SP) 

R5,-<SP) 

22(SP).-(SP) 

22(SP).-(SP) 

22(SP).-(SP) 



PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
SAVE 
SAVE 
SAVE 
SAVE 



RO ON 
Rl ON 
R2 ON 
R3 ON 
R4 ON 
R5 ON 
PS OF 
PC OF 
PS OF 
PC OF 



STACK 

STACK 

STACK 

STACK 

STACK 

STACK 

MAIN FLOW 

MAIN FLOW 

CALL 

CALL 



(SP)*. 
(SP)*. 
(SP)*, 
(SP)*. 
(SP)+. 
(SP)+, 
(SP)+, 
(SP)+. 
(SP)+, 
ISP)*. 



22 (SP) 

22(SP) 

22 (SP) 

22(SP) 

RS 

R4 

R3 

R2 

Rl 

RO 



RESTORE PC OF CALL 
RESTORE PS OF CALL 
RESTORE PC OF MAIN FLOW 
RESTORE PS OF MAIN FLOW 
POP STACK INTO R5 
POP STACK INTO R4 
POP STACK INTO R3 
POP STACK INTO R2 
POP STACK INTO Rl 
POP STACK INTO RO 



■*******************»»♦♦♦♦♦••»••••••»•••••*»•»**••*•**♦***•••••• 



S8TTL CONVERT FLOATING BINARY TO OCTAL ASCIZ 



•THIS ROUTINE 
•ASCIZ STRING 



WHERE 



CONVERTS A 32 BIT FLOATING NUMBER TO AN OCTAL 
IN THE FOLLOWING FORMAT: 

W XXX YYY ZZZlll 

W - SIGN BIT 

X = 8-BIT EXPONENT (RIGHT JUSTIFIED) 

Y = FRACTION BITS <57:51> (RIGHT JUSTIFIED) 

2 = FRACTION BITS <50:35> 



•IT IS ENTERED BY A TRAP CALL WITH THE ADDRESS OF THE FLOATING 



K 16 

CEQKC-E POP 11/70 CPU EXERCI:ER HACrn 30A(1052) 12HnAR-80 11:30 PAGE i,7-',80 
CEOItCE.PII 12-JW-80 11:27 CONVERT FLOATING BINARY TO OCTAL ASCIZ 



1 ^SSI 








.-•NlfBER IN THE 


WORD FOLLOWING THE CALL. 


1 ^ss? 

■ J J JC 








;*IT RETURNS WITH THE ADDRESS OF 


TUP Acri7 cTBiNr; mu tuf CAfk 


1 ^SS^ 

' J J J J 
























»r Leu : 


SAVRtb 






1 J J J J 


vUv 1 <*♦ 




UWWv 




HUV 




GET ADDRESS OF DATA 


1 3SSA 




0A?71ft 






Ann 
ADD 




AniiicT ortiiOM pr 


1 ^SS7 










HOV 




PUT CFrnKin nATA unon iki oi 


1 

P J J JO 




01 1000 






nov 




PI IT FTOCT nATA UHOn TN 00 






01P704 


001437 




HOV 


•»r Lour r*ci,K't , 


f^FT AnnOFCC DF nilFFPO PNn IM OL 






' ' c » **** 


000000 




MnViD 

nuvo 




PIIT TFRMTNATOR IN RIIFFFR 
r L» 1 1 c rv li nin 1 ufA I'll DO' r cn 


1 ^Sftl 






ooooos 




HUV 




CFT COP rOllUT FOR FRATTinN niRITC 
f^FT 1 y^'^ OF FRAf TION 






010103 




1 »: 


nuv 


DI OX 




060160 


042703 


1 77770 

flit t yj 




□ J L 


i»*r7 D7 


^A\/F 1 ^ ^ RI 

on VL L.O J DllO 


13564i 


060164 


062703 


000060 

WWW 




AUU 


D7 






060170 


1 10344 






nuvo 




<;T0RP TN RliFFPR 




060172 


073027 


1 7777S 




MonL 




<;hift mjmrpr to nfxt 3 rit<> 


13567 


060176 


077511 






oUO 


DC It 


CONTINUE FOR 7 DIGITS 


1 3568 


060200 


010103 






MDV/ 

nuv 


D1 D7 


KPT NFXT DIfiIT<; 


1 3569 


060202 


042703 


1 77776 




Di I. 




■ONI y WANT 1 RI T 


1 3570 


060206 


062703 


000060 




Ann 

nUV 


ffOV ,nj 


■MAKE THFM ASCII 


13571 


060212 


1 10344 






nuvo 


R3.-(R4) 


■<;T0RF in RllFFFR 


13572 


060214 


112744 


000040 

WW^ w 




Mnun 
nuvo 


#40.-(R4) 


■PUT <;PACF IN RUFFFR 


13573 


060220 


073027 


1 77777 






ir-1 on 




13574 


060224 


012705 


000002 




nuv 


jrP 


•SET SOS COUNT 


13575 


060230 


010103 




j»- 


nuv 


P1 

n 1 «nj 


■GET LOW WORD 


13576 


060232 


042703 


1 77770 








■MASK 3 BITS 


13577 


060256 


062703 


000060 

v www 




Ann 


MM\ OX 


-MAKE THEM ASCII 


1 3578 


0602^2 


110344 






nuvo 


no M \r\H/ 

Jt-^ OO 
ff J *nu 

DC 


■PUT IN BUFFER 


1 3579 


060244 


073027 


^77775 




none 


•GET NEXT 3 BITS 


13580 


060250 


077511 






oUO 


'CONVERT THEM 


13581 


060252 


010103 






nuv 


01 OX 




1 3582 


060254 


042703 


1 77776 




o I r 

Di L 


**C1.R3 


•ONLY WANT 1 BIT 


13583 


060260 


062703 


000060 

WWW 




Ann 


MfxC\ OX 


•MAKE IT ASCII 


13584 


060264 


1 1 0344 






nuvo 


OX "(OLt 


• piiT IN RIJFFER 


1 3585 


060266 


1 1 2744 


000040 

W W~ V 




nuvo 


#40. -{R4) 


•PUT SPACE IN BUFFER 


13586 


060272 


1 1 2744 


000040 

W W~ V 




nuvo 






13587 


060276 


072127 


1 77777 




ACU 




•GET FIRST 3 BITS OF EXPONENT 


13588 


060302 


012705 


000002 

wv wt 




MDV/ 

nuv 


«P 0<t 


•SET SOB COUNT FOR 2 DIGITS 
•GET I SB'S OF EXPONENT 

1 WL 1 ^ «JW «^ W U Af W«L' V I 


13589 


060306 


010103 




Pt • 
c> • 


nuv 


01 OX 


13590 


060310 


042703 


1 77770 




Di L 


•SAVE 3 BITS 


13591 


060314 


062703 


000060 

w www 




Ann 


#An BT 


■MAKE THEM ASCII 


13592 


060320 


110344 






MnuR 
nuvo 


B7 ->r0^) 

/ir-3,R1 


•STORE IN BUFFER 


13593 


060322 


072127 


1 77775 




ACU 


•GET NEXT 3 BITS 


13594 


060326 

vWW -'C w 


077511 








o«; Pt 


; CONTINUE 


13595 


060330 


010103 






nuv 


01 OX 


•GET LAST 2 BITS OF EXPONENT 


13596 


060332 


042703 


1 7777^, 




nrr 

Oi L 


**C3.R3 


•MAKE SURE ONLY 2 BITS 


13597 


060336 


062703 


000060 

www www 




Ann 


if^O 07 


•MAKE THEM ASCII 


13598 


060342 


110344 






MDV/R 

nuvo 


D7 — fO^) 


•STORE IN BUFFER 


13599 


060344 


112744 


000040 

V WW~ V 




MOVB 


/ir40 -(R4) 


'PUT SPACE IN BUFFER 


13600 


060350 


112744 


000040 

W W^ V 




M0V8 


*40.-(R4) 
**C1,R0 




13601 


060354 


042700 


-^7777^ 




BIC 


;GET SIGN BIT (IT WAS EXTENDED) 


13602 


060360 


062700 


000060 




ADD 


#60.R0 


.•MAKE IT ASCII 


13603 


060364 


110044 






MOVB 


R0,-(R4) 


;PUT IT IN THE BUFFER 


13604 


060366 


104422 






RESRE6 




13605 


060370 


011646 






MOV 


(SP),-(SP) 


.•SAVE RETURN PC 


13606 


060372 


016666 


000004 


000002 


MOV 


4(SP),2(SP) 


.-AND RETURN PSW 



CEQKC-E POP 
CEQKCE.Pn 



11/70 CPU exerci:;e« 

12-*W»-80 11:27 
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HACY11 30A(1052) 12-MAR-80 11:50 PAGE 47-181 
CONVERT FLOATING BINARY TO OCTAL ASCIZ 



SEO 0206 



13607 

13608 

13609 

13610 

13611 

13612 

13613 

136U 

13615 

13616 

13617 

13618 

13619 

13620 

13621 

13622 

13625 

1362A 

15625 

15626 

15627 

15628 

13629 

13630 

13631 

15652 

15635 

15654 

15655 

15656 

15637 

15658 

15639 

156A0 

156A1 

156A2 

156A5 

156AA 

13645 

15646 

15647 

13648 

13649 

15650 

15651 

13652 

15653 

13654 

15655 

13656 

15657 

13658 

13659 

13660 

13661 

13662 



060400 
060406 



060410 
060412 
060420 
060424 
060426 
060450 
060452 
060456 
060442 
060444 
060450 
060454 
060456 
060460 
060464 
060470 
060472 
060476 
060502 
060504 
060510 
060512 
060514 
060520 
060524 
060526 
060532 
060536 
060540 
060542 
060544 
060552 
060560 



012766 
000006 



001414 000004 



104420 
017667 
062716 
104424 
000000 
012600 
010067 
062700 
105040 
016701 
062701 
012102 
012105 
012701 
012704 
010305 
042705 
062705 
110540 
073227 
077411 
010305 
042705 
062705 
110540 
112740 
073227 
077126 
104422 
011646 
016666 
016766 
000006 



nov 

RTT 
.EVEN 



*$FLBUFF,4(SP) 



;PUT BUFFER ADDRESS ON STACK 
.•RETURN 



S8TTL CONVERT FLOATING DOUBLE BINARY TO OCTAL ASCIZ 

•THIS ROUTINE CONVERTS A 64 BIT FLOATING NUMBER TO AN OCTAL 
♦ASCIZ STRING IN THE FOLLOWING FORMAT: 



000000 000006 
000002 



121022 
000041 



177756 
000004 



000002 
000005 

177770 
000060 

177775 



177776 
000060 

000040 



000004 000002 
120702 000004 



•IT IS ENTERED 
•NUMBER IN THE 
•IT RETURNS WI 
• ************* 

SFLD20: SAVREG 

nov 

ADD 
FL20 
IS: .WORD 
MOV 
MOV 
ADD 
CLRB 
MOV 
ADD 
MOV 
MOV 
MOV 

5$: MOV 
4S: MOV 

BIG 

ADD 

MOVB 

ASHC 

SOB 

MOV 

BJC 

ADD 

Move 

MOVB 
ASHC 
SOB 

RESREG 

MOV 

MOV 

MOV 

RTT 



u vvv WWW xxxxxx yyyyyy iiiiii 

WHERE U = SIGN BIT 

V = 8-BIT EXPONENT (RIGHT JUSTIFIED) 

W = FRACTION BITS<57:51> (RIGHT JUSTIFIED) 
X = FRACTION BITS <50:35> 

Y = FRACTION BITS <34:19> 
Z = FRACTION BITS <18:03> 

BY A TRAP CALL WITH THE ADDRESS OF THE FLOATING 
WORD FOLLOWING THE CALL. 

TH THE ADDRESS OF THE ASCIZ STRING ON THE STACK. 
************************************************** 



i(SP)js 

#2,(SP) 



(SP)+.RO 

RO.SBUFF 

*41,R0 

-(RO) 

1$.R1 

#4,R1 

(R1)+,R2 

(R1)+.R5 

#2,R1 

#5,R4 

R3.R5 

#*C7,R5 

*60,R5 

R5,-(R0) 

R4.4$ 
R3.R5 
**C1.R5 
*60.R5 
R5,-(R0) 
#40. -(RO) 
#-1 .R2 
RI.SS 

(SP).-(SP) 

4(SP).2{SP) 

$6UFF.4(SP) 



GET ADDRESS OF DATA TO CONVERT 
ADJUST RETURN PC 
CONVERT MS 32 BITS 

GET ADDRESS OF CONVERTED DATA 
SAVE IT 

ADJUST TO END OF BUFFER 
PUT TERMINATOR IN BUFFER 
GET ADDRESS OF DATA TO CONVERT 
ADJUST TO LOWER 32 BITS 
SAVE THt DATA 

SET LOOP COUNT 

SET LOOP COUNT, 

GET LS 32 BITS OF DATA 

MASK 3 BITS 

MAKE THEM ASCII 

PUT IN BUFFER 

GET NEXT 3 BITS 

CONTINUE 

GET LS 52 BITS 

ONLY WANT 1 BIT 

MAKE IT ASCII 

PUT IN TABLE 

PUT SPACE IN TABLE 

CONVERT NEXT 16 BITS 

ADJUST STACK 

TO RETURN WITH ADDRESS 

OF BUFFER ON STACK 

RETURN 



CEQKC-€ POP 11/70 CPU EXERCI:E« HACY11 
CEQKCE.P11 12-mR-80 11 ;27 



13663 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 

n 
(1 

(3 
(3 
(3 
( 



B 1 

30A(i052) 12-«Afi-80 11:30 PAGE 47-182 
CONVERT FLOATING DOUBLE BINARY TO OCTAL ASCIZ 



S£Q 0207 



( 
( 
( 
( 
( 

(3 
(3 
(3 
(1 
13664 
13665 
13666 
13667 
13668 
13669 
13670 
13671 
13672 
13673 
13674 
13675 
13676 
13677 
13678 
13679 
13680 
13681 
13682 
13683 



060562 
060562 
060564 
060566 
060570 
060574 
060600 
060604 
060606 
060610 
060612 
060614 
060620 
060622 
060626 

060632 
060634 
060640 
060644 
060650 
060652 
060654 
060656 



010046 
010146 
010246 
016700 
016701 
012702 
006300 
006101 
005202 
001374 
066700 
005501 
066701 
062700 

005501 
062701 
010W.7 
010167 
012602 
012601 
012600 
000207 



121024 
121022 
177771 



121000 

120774 
001057 



047401 
120754 
120752 



060660 
060666 
060672 
060676 
060702 
060706 
060712 
060714 
060722 
060724 
060730 



012767 
016700 
012702 
012701 
004767 
022701 
001404 
022767 
001407 
016703 
042703 



.S8TTL RANDOM NLTBER GENERATOR ROUTINE 

•THIS ROUTINE IS A DOUBLE PRECISION PSEUOO RANDOM NlfCER GENERATOR 
•WITH A RANGE OF 0 TO 2(*33)-1. 
•CALL : 



$RAND: 



1$: 



JSR 


PCSRAND 


.-CALL THE ROUTINE 




RETURN 




.•RETURN HERE THE RANDOM 






■NLFBER WILL BE IN 








;SHINl/1,SL0NUN 




MOV 


RO,-(SP) 


.'PUSH RO ON STACK 




MOV 


RI.-(SP) 


.'PUSH Rl ON STACK 




MOV 


R2.-(SP) 


;PUSH R2 ON STACK 




MOV 


SLONUM.RO 


;SET RO WITH LOW 




MOV 


SHINUM^Rl 


.-SET R1 WITH HIGH 




MOV 


#-7,R2 


;SET SHIFT COUNT 




ASL 


RO 


.•SHIFT RO LEFT AND 




ROL 


Rl 


.•ROTATE CARRY INTO Rl 


AND 


INC 


R2 


.•CHECK FOR DONE 




BNE 


1$ 


.•CONTINUE SHIFT LOOP 




ADD 


$LONUM,R0 


:ADD NUIBER TO MAKE X 


129 


ADC 


Rl 


.•PROROGATE CARRY 




ADD 


$HINUM,R1 


;ADD Nl/«£R TO MAKE X 


129 


ADD 


#1057. RO 


;ADD LOW CONSTANT 




ADC 


Rl 


.•PROROGATE CARRY 




ADD 


#47401 .Rl 


.-ADD HIGH CONSTANT 




MOV 


RO.SLONUM 


.•SAVE RO 




MOV 


Rl .SHINUM 


'SAVE R1 




MOV 


(SP)*,R2 


;POR STACK INTO R2 




MOV 


(SP)*.R1 


;POR STACK INTO Rl 




MOV 


(SP)*.RO 


;POR STACK INTO RO 




RTS 


PC 


.•RETURN 





000002 
000124 
001352 
000002 
177654 
000002 



000002 000074 



; *************************************************************** 

S8TTL FLOATING RO^NT NUMBER GENERATOR 

* THIS ROUTINE GENERATES TWO RANDOM FLOATING POINT NlfCERS 
IN EITHER SINGLE OR DOUBLE PRECISION. FOR SINGLE PRECISION 

* THE NUMBERS ARE STORED IN STMPO AND $TMP2. DOUBLE PRECISION 

* NUPQERS ARE STORED IN STMPO AND $TMP4. 

* IN EITHER SINGLE OR DOUBLE THE EXTENDED EXPONENT IS STORED 

* IN SREGO AND SREG1 . 

**************************************************************** 



000130 FLTD6L: MOV 
FLTSGL: MOV 



120672 
000177 



2$: 
1$: 



3$: 



MOV 
MOV 
JSR 
CMP 
BEQ 
CMP 
BEQ 
MOV 
BIC 



#2.S08D6L 

S0BD6L.ro 

#$TMP0,R2 

#2.R1 

PC.SRAND 

#2.R1 

3$ 

#2.S08DBL 
4$ 

$HINUM,R3 
#177,r! 



SET LOOP FOR 2, FOUR WORD NUPCERS 

SET WORD LENGTH LOOP 

GET ADDRESS TO STORE WORDS IN 

SET NlfOER OF WORDS TO 2 

GET RANDOM NUMBER 

FIRST TIME? 

BRANCH IF YES 

DOUBLE PRECISION? 

BRANCH IF YES 

GET EXPONENT PART 

CHECK FOR MINUS ZERO 
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cFQKCE.Pii ^2-n^R'B0 ^^:27 FLOAriNG point ni/ber generator 



SEO 0208 



1568A 

13685 

15686 

13687 

13688 

13689 

13690 

13691 

13692 

13693 

13694 

13695 

13696 

13697 

13698 

13699 

13700 

13701 

13702 

13703 

15704 

13705 

13706 

13707 

13708 

13709 

13710 

15711 

13712 

^3713 

137U 

13715 

13716 

13717 

13718 

13719 

13720 

13721 

13722 

13723 

13724 

13725 

13726 

13727 

13728 

13729 

13730 

13731 

13732 

13733 

13734 

13735 

13736 

13737 

13738 

13739 



060734 
060740 
060742 
060746 
060752 
060754 
060756 
060762 
060766 
060774 
060776 
061002 
061006 
061014 
061016 



022703 
001 760 
016722 
016722 
077125 
077030 
012746 
012746 
022767 
001002 
012716 
004767 
012767 
000207 
000001 



100000 

120654 
120646 



001352 
001002 

000002 000022 

001004 
00001 2 

000001 000002 



CMP 
BEQ 

4$: MOV 
MOV 
SOS 

soe 

MOV 
MOV 
CMP 
BNE 
MOV 

5$: JSR 
MOV 
RTS 



*8IT15,R3 
1$ 

$HINUM.(R2)* 
$L0NUM,(R2)* 
R1J$ 
R0,2$ 

#$TMPO.-(SP) 
*1002.-(SP) 
*2.S0eDBL 
5$ 

*1004.(SP) 
PC.EXPEXT 

/ri.soeoBL 

PC 
1 



BRANCH IF MINUS ZERO 
SAVE HINUM 
SAVE LONUW 
CONTINUE 

CONTINUE FOR DOUBLE PREC 
PUT ADDRESS OF NlfBER ON STACK 
PUT CONTROL WORD ON STACK 
DOUBLE PREC? 
BRANCH IF NO 
CHANGE CONTROL WORD 
CALCULATE EXT EXPONENTS 
INIT S08D8L FOR SINGLE PREC 
RETURN 



SOBDBL: .WORD 

• *************************************************«'«'«'«'*****«'«'«'«'* 

SBTTL FLOATING POINT EXPONENT EXTENSION 

THIS ROUTINE CONVERTS THE ACTUAL EXPONENT OF A FLOATING POINT 
NUMBER INTO AN ACTUAL EXPONENT OF 200 AND AN EXTENDED 
EXPONENT EQUAL TO THE DIFFERANCE BETWEEN THE ORIGINAL 
ACTUAL EXPONENT AND 200. 

THE ROUTINE IS ENTERED WITH A CONTROL WORD ON THE STACK. 
BIT 15 OF THE CONTROL WORD INDICATES WHETHER THE NlfBER 
IS IN MEMORY «15>=0) OR IN AN ACCUMULATOR «15>=1). 
IF THE NIWBER IS IN AN ACClflULATOR, BITS <9:8> Ir«ICATE 
THE ACCUMULATOR NUMBER. IF THE NJ*BER(S) IS IN MEMORY, 
BITS <9:8> INDICATE THE NIJ«ER OF NUMBERS TO CONVERT AND 
BITS <2:0> INDICATE THE WORD LENGTH OF THE NLMBER(S). 
IN THE CASE OF A MEMORY CONVERSION. THE ADDRESS OF THE 
FIRST WORD TO CONVERT IS ALSO ON THE STACK (PRECEDING 
THE CONTROL WORD). 
' ft************************************************************** 



061020 


012605 




EXPEXT: 


MOV 


061022 


012600 






MOV 


061024 


100437 






BMI 


061026 


012601 






MOV 


061030 


162700 


000400 




SUB 


061034 


012702 


001352 




MOV 


061040 


160102 






SUB 


061042 


005402 






NEG 


061044 


006202 






ASR 


061046 


062702 


001326 




ADD 


061052 


011103 




3$: 


MOV 


061054 


042703 


100177 




BIC 


061060 


072327 


177771 




ASH 


061064 


162703 


000200 




SUB 


061070 


010312 






MOV 


061072 


042711 


077600 




BIC 


061076 


05271 1 


040000 




BIS 


061102 


162700 


000400 




SLB 


061106 


100435 






BMI 


061110 


110003 






M0V8 


061112 


006303 






ASL 


061114 


060301 






ADD 


061116 


062702 


000002 




ADD 



(SP)*,R5 
(SP) ♦.RO 
1$ 

(SP)*,R1 
#400. RO 
#$TMP0.R2 

Rl .R2 

R2 

R2 

#$REG0.R2 
(R1),R3 
#1001 77. R3 
#-7.R3 
#200. R3 
R3.(R2) 
#77600, (Rl) 
#8IT14.(R1) 
#400, RO 
2$ 

R0.R3 
R3 

R3.R1 
#2,R2 



SAVE RETURN PC 
GET CONTROL WORD 
BRANCH IF ACC CONVERSION 
GET START ADDRESS 

;GET OFFSET FROM STMPO 



GEN ADDRESS OF EXT WORD 

GET DATA 

GET EXPONENT 

RIGHT JUSTIFY EXPONENT 

CONVERT TO 2'S COMPLIMENT 

ADD TO EXTENDED EXPONENT 

MAKE ACTUAL 

EXPONENT 200 

ANY MORE WORDS? 

BRANCH IF NO 

GET WORD LENGTH 

.'SELECT NEXT NUMBER ADDRESS 
.•SELECT NEXT EXTENDED ADDRESS 
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SFO OPOO 



137AO 

137A1 

137A 

137A 

137AA 

137A5 

137A6 

13747 

137A8 

137A9 

13750 

13751 

13752 

13753 

1375A 

13755 

13756 

13757 



061122 000753 



061 12A 
061130 
06113A 
061136 
061 K2 
061 U6 
061 15A 
061160 
061162 
061164 
061166 
061174 
061200 
061202 
061204 



.11 
( 1 ) 


KJO 1 C\JO 


n ) 


UO 1 C 1 *♦ 


\jj 


UO 1 CtiC 






\ 3/ 


VAJ 1 ecu 


V JJ 




V J/ 




(3) 


061234 




061236 




061242 




061250 




061252 




061254 




061260 




061264 




061270 


(3) 


061272 


(3) 


061274 


(3) 


061276 


(3) 


061300 


(3) 


061302 


(3) 


061304 




061306 




061314 




061322 




061324 




061326 




061330 




061332 




061334 




061336 




061340 



072027 177776 
042700 177477 
010002 

072227 y7777l 

062702 001462 

042767 000300 000004 

050067 000000 

175003 

060312 

005003 

042767 000300 000004 

050067 000000 

176403 

010546 

000207 



BR 

;ACCl/1ULAT0R 



1$: 



5$: 



4$: 
2$: 



ASH 
BIC 
MOV 
ASH 
ADD 
BIC 
BIS 
STEXP 
ADD 
CLR 
BIC 
BIS 
LDEXP 
MOV 
RTS 



3S 

CONVERSION 
#-2,R0 
#1 77477.ro 
R0.R2 
#-5.R2 

mco,R2 

#300- §$ 
R0.5i 
AC0.R3 
R3.(R2) 
R3 

*300.4$ 
R0.4$ 
R3.AC0 
R5,-(SP) 
PC 

************* 



CONTINUE 

GET ACCUMULATOR NUMBER 

GENERATE 
ADDRESS OF 
EXTENDED EXPONENT 
GENERATE INSTRUCTION 
TO GET EXPONENT 
GET EXPONENT 

ADD TO EXTENDED EXPONENT 

GENERATE INSTRUCTION 
TO LOAD EXPONENT BACK TO ACC 
LOAD EXPONENT OF 200 
RESTORE RETURN PC 
RETURN 

*************************************** 



.S8TTL POWER DOWN AND UP ROUTINES 



012737 
012737 
010046 
010146 
010246 
010346 
010446 
010546 
010667 
012737 
000000 
000776 



061334 
000340 



000024 
000026 



;POWER DOWN ROUTINE 



000076 
061254 



000024 



SPWRDN: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
HALT 
BR 



#$lLLUP,a#PWRVEC 
#340,a#PWRVEC*2 
RO.-(SP) 
RI.-(SP) 
R2,-(SP) 
R3.-(SP) 
R4.-(SP) 
R5,-(SP) 
SP.$SAVR6 
#$PWRUP,a#PWRVEC 

.-2 



;SET 

PRIOi 

PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

SAVE 

;SET 



FOR FAST UP 
7 

RO ON STACK 
R1 ON STACK 
R2 ON STACK 
R3 ON STACK 
R4 ON STACK 
R5 ON STACK 
SP 

UP VECTOR 



016706 


000060 




SPWRUP: 


MOV 


005067 


000054 






CLR 


005267 


000050 




1$: 


INC 


001375 








BNE 


012605 








MOV 


012604 








MOV 


012603 








MOV 


012602 








MOV 


012601 








MOV 


012600 








MOV 


012737 


061206 


000024 




MOV 


012737 


000340 


000026 




MOV 


104400 








TYPE 


061342 






SPWRMG: 


.WORD 


012716 








MOV 


003612 






SPWRAD: 


• WORD 


000002 








RTI 


000000 






SILLUP: 


HALT 


000776 








BR 


000000 






$SAVR6: 


0 



UP ROUTINE 

$SAVR6,SP 
SSAVR6 
SSAVR6 
1$ 

(SP)*. R5 
'SP)*.R4 
(SP)*. R3 
(SP)+.R2 
(SP)+, R1 
(SP)+.RO 

#$PWRDN.a#PWRVEC 
#340.aifPWRVEC*2 

SPOWER 

(PC)+.(SP) 
START 



.-2 



TTY 



HANG UP 



GET SP 

WAIT LOOP FOR THE 
WAIT FOR THE INC 
OF WORD 

POP STACK INTO R5 
POP STACK INTO R4 
POP STACK INTO R3 
POP STACK INTO R2 
POP STACK INTO Rl 
POP STACK INTO RO 
;SET UP THE POWER DOWN VECTOR 
PRI0:7 
REPORT THE POWER FAILURE 
POWER FAIL MESSAGE POINTER 
RESTART AT START 
RESTART ADDRESS 

THE POWER UP SEQUENCE WAS STARTED 
BEFORE THE POWER DOWN WAS COMPLETE 
PUT THE SP HERE 
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SEQ 021C 



1 
1 

:i; 
13758 
1 
1 



1) 


061352 


0116A6 






SRDCHR: 


MOV 


'D 


061354 


016666 


000004 


000002 




MOV 


1) 


061362 


105777 


117722 




1$: 


TST8 


1) 


061366 


100375 








BPL 


1) 


061370 


117766 


117716 


000004 




M0V8 


1) 


061376 


042766 


177600 


000004 




BIC 


1) 


06K04 


000002 








RTI 



1 
1 

13759 
1 
1 



061342 
061350 



005015 
000122 



047520 042527 tPOWER: .ASCI2 <15><12>"P0WER" 



.EVEN 

« » 

.S8TTL TTr INPUT ROUTINE 

•THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTr 
*CALL: 

INPUT A SINGLE CHARACTER FROM THE TTr 
CHARACTER IS ON THE STACK 
WITH PARITr BIT STRIPPED OFF 



• RDCHR 

* RETURN HERt 



PUSH DOWN THE PC 
SAVE THE PS 
WAIT FOR 
A CHARACTER 
READ THE TTr 
GET RID OF JUNK IF ANr 
GO BACK TO USER 

*************************************************************** 



(SP),-(SP) 

4(SP),2(SP) 

a$TKS 

1$ 

a$TK8,4(SP) 
**C<lf7>,4(SP) 



;*THIS 
.••CALL; 



ROUTINE WILL INPUT A STRING FROM THE TTr 



RDLIN 

RETURN HERE 



061406 
061410 
061414 
061420 
061422 
061424 
061426 
061432 
061434 
061440 
061442 
061446 
061452 
061456 
061460 
061464 
061470 
061472 
061474 
061502 
061510 
061512 
061513 
061514 



010346 
012703 
022703 
101405 
104412 
112613 
122713 
001003 
104400 
000763 
111367 
104400 
122723 
001356 
105063 
104400 
012603 
011646 
016666 
012766 
000002 
000 
000 
000010 



061514 
061524 



000177 

001406 

000044 
061512 
000015 

1 77777 
001410 



000004 
061514 



SRDLIN: MOV 



1$: 
2$: 



10$: 

4$: 

3$: 



000002 
000004 



MOV 
CMP 
BLOS 
RDCHR 
M0V8 
CMPB 
BNE 
TrPE 
BR 

M0V8 
TrPE 
CMPB 
BNE 
CLR8 
TrPE 
MOV 
MOV 
MOV 
MOV 
RTI 
.BrTE 
.BrTE 
STTriN: .BLK8 



9$ 



R3,-(SP) 
/(f$TTriN.R3 
#$TTriN+8..R3 
4$ 

(SP)+.(R3) 
#177. (R3) 
3$ 

.SQUES 
1$ 

(R3).9$ 
.9$ 

#15. (R3)* 
2$ 

-1 (R3) 
.$LF 

(SP)+.R3 
(SP). -(SP) 
4(SP).2CSP) 
#$TTriN,4(SP) 

0 
0 
8. 



INPUT A STRING FROM THE TTr 

ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
TERMINATOR WILL BE A BrTE OF ALL O'S 

SAVE R3 
GET ADDRESS 
BUFFER FULL? 
BR IF YES 

GO READ ONE CHARACTER FROM THE TTr 
GET CHARACTER 
IS IT A RUBOUT 
SKIP IF NOT 
TYPE A '?• 

CLEAR THE BUFFER AND LOOP 
ECHO THE CHARACTER 

CHECK FOR RETURN 
LOOP IF NOT RETURN 
CLEAR RETURN (THE 15) 
TYPE A LINE FEED 
RESTORE R3 

ADJUST THE STACK AND PUT ADDRESS OF THE 
FIRST ASCII CHARACTER ON IT 

RETURN 

STORAGE FOR ASCII CHAR, TO TYPE 
TERMINATOR 

RESERVE 8 BYTES FOR TTr INPUT 



.S8TTL READ A DECIMAL NUMBER FROM THE TTY 
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CE0KCE.P11 12^1AR-80 11:27 READ A DECIMAL Nl/©ER FROM THE TTY 



SEQ 0211 



•THIS ROUTINE WILL READ A DECIMAL (ASCII) NUMBER FROM THE TTY AND 
•CHANGE IT TO BINARY. IF TOO MWY CHARACTERS OR ANY ILLEGAL CHARACTFRS 
•ARE READ A FOLLOWED BY A CARRIAGE RETURN-LINE FEED WILL BE TYPED. 
•THE COMPLETE NLfBER MUST BE RETYPED. THE INPUT IS TERMINATED BY THE 
•USER TYPING A CARRIAGE RETURN. THE RANGE OF THE INPUT NUMBER IS 
•POSITIVE 32767 TO NEGATIVE 32768. 
•CALL: 

• RDDEC ;;F:EAD A DECIMAL NLfBER 

• RETURN HERE ; .-NUMBER IS ON TOP OF THE STACK 



1 ) 


061 52A 


011646 




1) 


061526 


016666 


000004 


5) 


061534 


010046 




3) 


061536 


010146 




3) 


061540 


010246 






061542 


104414 




■] J 


061544 


012600 






061546 


010067 


000120 


1 ) 


061552 


005046 






061554 


005002 




^ ) 


061556 


122710 


000055 


1 ) 


061562 


001001 




^ ) 


061564 


112002 




1 ) 


Of 1566 


112001 




^ ) 


f 1570 


001424 




■J ) 


C 1572 


122701 


000060 


1 ) 


061576 


003032 




1 ) 


061600 


122701 


000071 




061604 


002427 




1) 


061606 


032716 


170000 




061612 


001024 






061614 


006316 




^ ) 


061616 


011646 




^ ) 


061620 


006316 






061622 


006316 




1 ) 


061624 


062616 






061626 


102416 






061630 


162701 


000060 




061634 


060116 






061636 


102412 






061640 


000752 






061642 


005702 






061644 


001401 






061646 


005416 






061650 


012666 


000012 


3) 


061654 


012602 




3) 


061656 


012601 




3) 


061660 


012600 






061662 


000002 






061664 


005726 






061666 


105010 






061670 


104400 






061672 


000000 






061674 


104400 


001406 



000002 



SRDDEC: MOV 
MOV 



1$: 



2$: 



3$: 
4$: 

5$: 
6$: 



MOV 

MOV 

MOV 

RDLIN 

MOV 

MOV 

CLR 

CLR 

CMPB 

BNE 

MOVB 

M0V8 

BEO 

CMP8 

BGT 

CMPB 

BLT 

BIT 

BNE 

ASL 

MOV 

ASL 

ASL 

ADD 

BVS 

SUB 

ADD 

BVS 

BR 

TST 

BEO 

NEG 

MOV 

MOV 

MOV 

MOV 

RTI 

TST 

CLR8 

TYPE 

.WORD 

TYPE 



(3P).-(SP) 

4(SP).2(SP) 

RO.-(SP) 

R1,-(SP) 

R2.-(SP) 

(SP)+.RO 
R0,6$ 
-(SP) 
R2 

#'-.(R0) 
2$ 

(R0)+,R2 
(R0)+.R1 
3$ 

*'0.R1 
5$ 

*'9.R1 
5$ 

#*C7777, (SP) 
5$ 

(SP) 

(SP). -(SP) 

(SP) 

(SP) 

(SP)+,(SP) 
5S 

*'0,R1 

R1,(SP) 

S$ 

2$ 

R2 

4S 

(SP) 

(SP) + J2(SP) 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 



(SP) + 
(RO) 

0 

.SQUES 



PROVIDE SPACE FOR 

THE INPUT NUreER 

PUSH RO ON STACK 

PUSH R1 ON STACK 

PUSH R2 ON STACK 

READ AN ASCIZ LINE 

ADDRESS OF 1ST CHAR. 

SAVE INCASE OF BAD INPUT 

CLEAR DATA WORD 

SIGN SET POSITIVE 

SEE IF A MINUS SIGN WAS TYPED 

BR IF NO MINUS SIGN 

SAVE FOR LATER USE 

PICKUP THIS CHARACTER 

GET OUT IF ZERO 

MAKE SURE THIS CHARACTER 

IS A DIGIT BETWEEN 0 £ 9 



DON'T LET NUMBER GET TO BIG 
BR IF Nl^R WOULD OVERFLOW 
*2 

SAVE FOR LATER 

*4 

•8. 

*10. 

OVERFLOW ISN'T ALLOWED 
STRIP AWAY THE ASCII JUNK 
ADD IN THIS DIGIT 
OVERFLOW ISN'T ALLOWED 
LOOP 

CHECK IF Nlf«ER IS NEG 
BR IF NO 

YES— NEGATE THE NLfBER 
SAVE THE RESULT 
POP STACK INTO R2 
POP STACK INTO R1 
POP STACK INTO RO 
RETURN 

CLEAN PARTIAL NUMBER FROM STACK 
SET A TERMINATOR 
TYPE THE INPUT UP TO BAD CHAR. 
POINTER GOES HERE 



6 1 
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READ A DECIMAL NUMBER FROM THE TTY 





Dl 1 

.HI 1 




11-57 


\ 1 ) 








1 X7(J\ 








\ 1 / 
















\ 1 / 








\ 1 / 
























^1 ) 
















\ 1 f 








11/ 








t^ 1 
( 1 / 








f 1 ) 








1 1 / 








1 1 / 
























/I > 
























V 1 / 
















V 1 / 








( 1 ) 




ninn4^=> 




(^ ) 




nini^A 

V 1 V 1 HO 












f 1 ) 








V 1 / 




ni ■^74^^ 


nnnnn^ 

vvvvvH 


( 1 ) 


fV>1 71 A 


ni ^7^A 

\J \ Jf HO 


UvvvvO 


< 1 ) 


(V>1 7PP 


ni 77AA 

V 1 Jf HO 


nnni ii 

V vv 1 1 H 


M ) 


fV.1 7?f\ 

\J\J 1 r CO 


ni 77^A 

\J I Jf HO 


nool 1^ 

vvv 1 1 Q 


n ) 

V 1 / 


(Vil 7^? 


nin^nn 




( 1 ) 


fVil 


01 ^7 V 


\ 1 f f f o 


f 1 ) 


wO 1 r "tc 


01 ?701 


00^77ft 

vv J r r O 


f 1 ) 

V 1 / 


wo 1 t'HO 


10S7P7 




f 1 ) 








n ) 


(Vil 7S? 






M ) 

V 1 / 


(Vi17Si 
WO 1 f JH 


ni ?7T7 


nA?i?n 

vOc 1 cv 


I 1 ) 


UO 1 r Oc 


nns7T7 


1 77S7P 

If f Jf c 


\ 1 / 


rv>i 7^ 

UO 1 r OO 


ns?7A7 

\JJC r Or 


1 VAA/Uv 


\ 1 / 


Oil 77^ 

VO I f f H 


nnsn^A 

vvJwHO 




M ) 

V 1 / 


<Vi1 77A 

vO 1 r r O 


ni ?7n? 


i7?^n 




\JOC\AJC 


ni?7nT 


nnnnin 

VAA/U 1 V 




<v>?<w. 

UOCvUO 


U 1 C r Oc 


KJff HvO 




fv.?ni^ 

UOCV 1 H 


nil A?? 

v 1 1 Occ 




( 1 ) 


fiAPniA 

uocu 1 o 


nA?7iA 

UOc f 1 o 


vvvcvv 


V 1 ' 


WOcV/CC 


n77Tn7 






WOCVCH 


ni?74? 

V 1 Cr He 


1 r f Ovv 


(1 ) 


062030 


005042 




(1) 


062032 


012737 


062050 


(1) 


062040 


012737 


000020 


(1) 


062046 


000401 




M) 


062050 


022626 




(1 ) 


062052 


005237 


177572 


(1) 


062056 


012737 


062110 



SEO 0212 



BR 1$ ;;TRY AGAIN 

# * 

.S8TTL ROUTINE TO SIZE MEMORY 
•CALL : 

• JSR PC.SSIZE 

• RETURN 
»$LSTAD WILL CONTAIN: 

• WITH KT 11 OPTION — LAST VIRTUAL ADDRESb OF THE LAST BANK 

• WITHOUT KT11 OPTION — LAST ABSOLUTE ADDRESS OF AVAILABLE MEMORY 
*$LST8K WILL CONTAIN THE LAST BANK AS A SAF 

•SKT11 IS THE MEMORY MANAGEMENT KEY 
*8IT07 = 0 DON'T USE MEMORY MANAGEMENT 

• MUST BE SETUP BEFORE THE CALL 

*8IT15 = 0 DON'T HAVE MEMORY MANAGEMENT OPTION 

• DETERMINED BY ROUTINE 
» —NOTE— 

•THIS ROUTINE SUPPORTS PDP 11/74. 

•IF ACTUAL MEMORY IS LESS THAN THAT INDICATED BY SIZE REGISTER 
•AND A REFERENCE IS MADE TO A MEMORY ADDRESS THAT IS GREATER THAN 
•ACTUAL MEMORY BUT LESS THAN SIZE REGISTER (INDICATED). THEN A 
•MEMORY REFERENCE TIMEOUT TO VECTOR 114 WILL OCCIW. 



SKT11; 



000006 

000004 
177754 

177740 1$: 



000004 
172516 



000004 



SSIZE: MOV RO,-(SP) 

MOV RI.-(SP) 

MOV R2.-(SP) 

MOV R3,-(SP) 

MOV a»ERRVEC,-(SP) 

MOV a#ERRVEC+2.-(SP) 

MOV a*114,-(SP) 

MOV a#116,-(SP) 

MOV SP,RO 

MOV a#PS.a»ERRVEC+2 

MOV #3776, R1 

TSTB (PC)t- 

.WORD 200 

BPL SCORE 

MOV #$KTNEX.a#ERRVEC 

TST a#SRO 

BIS #100000, SKT11 

CLR -(SP) 

MOV #KIPAR0,R2 

MOV #*D8,R3 

MOV #7740<S,-40{R2) 

MOV (SP),(R2)+ 

ADD #200, (SP) 

SOB R3,1$ 

MOV #1 77600, -(R2) 

CLR -(R2) 

MOV #2S,a#ERRVEC 

MOV #20,a#SR3 

BR 3$ 

2$: CMP (SP)+,{SP)* 

3$: INC a#SRO 

MOV #$KTOUT.a#ERRVEC 



SAVE RO ON THE STACK 
SAVE R1 ON THE STACK 
SAVE R2 ON THE STACK 
SAVE R3 ON THE STACK 
SAVE PRESENT ERROR VECTOR PS 



& PC 



SAVE PRESENT PARITY VECTOR PS & PC 

SAVE THE STACK POINTER 

SET ERRVEC PS TO PRESENT PS 

SETUP ADDRESS 

USE MEMORY MANAGEMENT? 

SET TO USE MEMORY MANAGEMENT 

BR IF NO 

;SET FOR TIMEOUT 

KT11 ARE YOU THERE? 

YES—SET KT11 KEY 

INITIALIZE FOR "T'AR" LOADING 

ADDRESS OF FIRST 'T>AR" 

LOAD EIGHT 'T^AR-'S" AND EIGHT 'T^DR-'S" 

PDR = 4K, UP. READ/WRITE 

LOAD 'PAR" 

UPDATE FOR NEXT 'PAR" 
LOOP UNTIL ALL EIGHT ARE LOADED 
SETUP KIPAR7 FOR I/O 
SETUP KIPAR6 FOR TESTING 
CATCH TIMEOUT IF NO SR3 
ENABLE 22-BIT ADDRESSING 
THIS PDP-11 HAS A SR3 REG. 
CLEAN OFF THE STACK— NO SR3. 
TURN ON MEMORY MANAGEMENT 
;SET FOR TIME OUT 



CEQK 
CEQK 



1 V6 



-E PDP ii/?o CPU exerci:er 

E.PI1 l^-rtAR-80 11:27 



(1ACY11 30A<1052) 12-«AR-80 11:30 
ROUTINE TO SIZE MEMORY 



H 1 
PAGE 



47-188 



$f.O 0213 







KJOCCjC 








irSMTMOUT 3^1 14 


■■SET FOR MEMORY RFF TIMEOUT TO '14 




KAJjr Jr 


'\LX77f. 

1 H Jf f O 






TST 


3*143776 


■■TRAP ON NON-EX-MEM 
■ -MAKE A IK STEP 


UDcU' O 


fVk?71 ? 








ADD 


#40 (R2) 




vCJf 1 C 


1 7P^56 

1 f C JJO 






fMP 


a#KIPAR7.(R2) 


• -LAST ONE' 




1 U 1 J' 1 








RHI 


4i 


4 0 l*W 1 ffA 1 4 1 


(V.P1 in 


ni 1 pn? 






lif TOlJT • 

9^ 1 wU 1 > 


MOV 


(R2) R2 

a#SRO 


;;GET LAST BANK+1 


(Vv?1 1 ? 

vOc 1 1 c 


nfi5nx7 

\rJj\Jjf 


1 77^7? 






n R 


■'■TURN OFF MEMORY MANAGEMENT 












BR 


SSIZEX 






\J**C 1 Of 


100000 

1 VAAAA/ 


1 77^?? 

1 / r Occ 




RI f 


#100000 tKTII 

W 1 WWWWW 0 9^ 111 


••KT11 NON-EXISTENT 

0 0 r\ III 1 V kr^Avik'«l 




ni ?737 




000004 


tf ORF " 


MOV 


#SCROUT a#ERRi/EC 


■ -SET FOR TIMEOUT 




00500? 








CLR 


R2 


■ -SET UP BANK 




062701 






It- 


ADD 


#4000 RI 
#40 R^ 


■ -INCREMENT BY IK 




062702 


000040 






ADD 


• -IK STEP 

0 0* ■ W 




00571 1 

\J\J J r 1 1 








TST 


(RI) 


• -TRAP ON TIME OUT 


Ofj?1 SO 


0P2701 


1 7777b 






CMP 


(ty7777b RI 


••LAST ONE 


06P1 54 


001 ?70 








BNE 


1$ 


;:N0 — TRY AGAIN 




162701 


004000 




JCROUT : 


SUB 


#4000 R1 






1 62702 


000040 




SSIZEX: 


SUB 


#40. R2 


■ -DROP BACK 


VA^C 1 vO 


010006 








MOV 


RO,SP 


■ -RESTORE THE STACK 




012637 


000116 






MOV 

1 PW » 


(SP)-».a#ii6 

X ' 0 1 1 w 


••RESTORE PARITY VECTOR 


062174 


012637 


000114 






MOV 


(SP)>. a#ii4 




062200 


012637 


000006 






MOV 


(SP)-^.a#ERRVEC-^2 


' -RESTORE ERROR VECTOR 


062204 


012637 


000004 

wwvww~ 






MOV 


(SP)-t- a#ERRVEC 




062210 


010167 


000050 






MOV 


RI, SLSTAD 


;;LAST ADDRESS 


062214 


010267 


000046 

WW W~ w 






MOV 


R2 SLSTBK 


- -LAST BANK 


062220 


01 2603 








MOV 


(SP)+,r3 


• -RESTORE R3 

0 0'^ k W ' >k V * 


062222 


01 2602 








MOV 


(SP)*.R2 


• -RESTORE R2 


062224 


01 2601 








MOV 


(SP)*, RI 


- -RESTORE RI 

0 0*^ k ■ vk ^ ■ 


062226 


012600 








MOV 


(SP)-*- RO 


• -RESTORE RO 

0 0 *»kW ■ WV^k I'W 


062230 


000207 








RTS 


PC 




062232 


032737 


000001 

WWWW ■ 


1 77744 


SMTMOUT 


: BIT 


#BI TO.a#MEMERR 


;;MAKE SURE TRAP TO 114 IS 


062240 


001005 








BNE 


1$ 


;;DUe TO MEMORY REF TIMEOUT 
;;IF NOT, IS IT AN ABORT? 


062242 


032737 


100000 


^7771,1, 




BIT 


#BIT15,a#MEMERR 


;;CPU ABORT? 


062250 


001001 








BNE 


1$ 


;;IF YES, EXIT 


062252 


000002 








RTI 




;;JF NOT, CONTINUE 


062254 


012737 


^77777 


y777i,k 


1$: 


MOV 


#-1 .a#MEMERR 


;; CLEAR THE MEM ERROR REG 


062262 


000712 








BR 


SKTOUT 




062264 


000000 






SLSTAD: 


.WORD 


0 


;; CONTAINS THE LAST ADDRESS 


062266 


000000 






$LST8K: 


.WORD 


0 


;: CONTAINS THE LAST BANK 



062270 
062272 
062276 
062300 
062302 
062306 



• • *************************************************************** 

.S8TTL TRAP DECODER 

;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;*0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
;*G0 TO THAT ROUTINE. 



010046 
016600 
005740 
111000 
016000 
000200 



000002 



062310 



STRAP: MOV RO,-(SP) 

MOV 2{SP),R0 

TST -(RO) 

M0V8 (RO),RO 

MOV $TRPAD(RO),RO 

RTS RO 



;;SAVE RO 

;;6ET TRAP ADDRESS 

; .-BACKUP BY 2 

;;GET RIGHT BYTE OF TRAP 

;; INDEX TO TABLE 

.-.-GO TO ROUTINE 



CEQKC-E POP 11/70 CPU EXERCISER MACrll 
CECiUCE.PII 12-MAR-80 11:27 



(3) 
(3) 
(5) 
(3) 
(3) 
(3) 
(3) 
(?) 
(3) 
(5) 
(3) 
(3) 
(3) 
(3) 
(5) 
(3) 
(3) 
(3) 
(3) 
13762 
13763 
1376A 
13765 
13766 
13767 
13768 
13769 
13770 
13771 
13772 
13773 
1377A 
13775 
13776 
13777 
13778 
13779 
13780 
13781 
13782 
13783 
13784 
13785 
13786 
13787 
13788 
13789 
13790 
13791 
13792 
13793 
13794 
13795 
13796 
13797 
13798 



30A(1052) 12-«AR-80 
TRAP DECODER 



.S8TTL TRAP TABLE 



11:30 



I 1 
PAGE 



47-189 



SEQ 0214 



;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
.-•BY THE 'TRAP" INSTRUCTION. 



ROUTINE 



062310 
062310 
062312 
062314 
062316 
062320 
062322 
062324 
062326 
062330 
062332 
062334 
062336 



062340 
062346 
062352 
062360 



056410 
057242 
057216 
057256 
057444 
061352 
061406 
061524 
060026 
060064 
060122 
060410 



012767 
005067 
012767 
005067 



STRPAD: 



STrPE 

STYPOC 

STYPOS 

STYPON 

STYPDS 

JRDCHR 

SRDLIN 

SRDDFC 

SSAVREG 

SRESREG 

$FL20 

$FLD20 



;CALL=TYPE TRAP+0( 104400) 

;CALL=TYP0C TRAP*2( 104402) 

;CALL=TYP0S TRAP*4( 104404) 

;CALL=TYPON TRAP+6( 104406) 

;CALL=TYPDS TRAP+1 0(1 04410) 

;CALL=RDCHR TRAP+12(104412) 

;CALL=RDLIN TRAP*14(104414) 

;CALL=RDDEC TRAP+16(104416) 

;CALL=SAVREG TRAP*20( 104420) 

;CALL=RESRE6 TRAP*22( 104422) 

;CALL=FL20 TRAP*24( 104424) 

;CALL=FLD20 TRAP+26C 104426) 



TTY TYPEOUT ROUTINE 

TYPE OCTAL tATBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL Nl/BER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 
TTY TYPEIN CHARACTER ROUTII« 
TTY TYPEIN STRING ROUTINE 
READ A DECIMAL NUMBER FROM TTY 
SAVE R0-R5 ROUTINE 
RESTORE R0-R5 ROUTINE 



002414 
117422 
002414 
117414 



1 1 7424 
117416 



; ; *************************************************************** 

.SBTTL UNIBUS EXERCISER INITIALIZATION ROUTINE 
;*THIS ROUTINE INITIALIZES THE BASE ADDRESS FOR THE 
;*UNIBUS EXERCISER AND LOADS UP THE EXERCISER REGISTERS. 

; ; *************************************************************** 

UBEINITrMOV ASERRTB.UBESAV ;8ASE ADDRESS 0." USE TRANSFER 

CLR UeESAV+2 

MOV #SERRTB,UBEADR ;BASE ADDRESS OF USE TRANSFER 

CLR U8EA0R+2 



062364 


012702 


002340 




062370 


005072 


000010 




062374 


012772 


053434 


000012 


062402 


012772 


000340 


000014 


062410 


012732 


1 72400 




062414 


012746 


000003 




062420 


012746 


001776 




062424 


004737 


063022 




062430 


013732 


001776 




062434 


013732 


002000 




062440 


052737 


000040 


172S16 


062446 


000207 







THE USE 


AND START IT 




MOV 


*UBETBL,R2 


;6ET ADDRESS OF USE TABLE 


CLR 


aiO(R2) 


.'CLEAR ALL ERRORS 


MOV 


#UBESRV.ai2(R2) 


;SET UP USE VECTOR 


MOV 


*PR7,ai4(R2) 


; SET UP USE VECTOR PSW 


MOV 


iri72400.a(R2)* 


;SET CC FOR 1.3IC WORD TRANSFER 




#3.-(SP) 


; USE IS DOING BYTE TRANSFERS 


MOV 


;PUT DEVICE ID IN STACK 


MOV 


#UBEADR,-{SP) 


;PUT ADDRESS OF PHYSICAL BA ON STACK 


JSR 


PC,a#GETHAP 


;G0 GET MAP REGISTER 


MOV 


a«UBEADR,a(R2)-^ 


:LOAD USE BUS ADDRESS 


MOV 


a«UBEADR«^2,a(R2) 


♦.-LOAD ADR BITS 16 g 17 


BIS 


#40,airSR3 


.•ENABLE MAP 


RTS 


PC 


.•RETURN 



062450 104420 

062452 013703 002002 



• • *************************************************************** 

. SBTTL CONVERT UNIBUS VIRTUAL ADDRESS TO PHYSICAL ADDRESS 

THIS ROUTINE CONVERTS THE CONTENTS OF LOCATIONS 
;* "tRRBA" AND •tRRBA*2" FROM A VIRTUAL 18-eiT ADDRESS 

;* TO A PHYSICAL 22-BIT ADDRESS AS MAPPED BY THE APPROPRIATE 

;* MAP REGISTER. THE 22-eiT ADDRESS IS STORED IN LOCATIONS 

•PA2116" AND 'T»A1500". 

; ; *************************************************************** 

PHYMAP: SAVRE6 

MOV arERRBA,R3 



.-GET BUS ADDRESS <15:00> 



J 



CEQKC-E POP 
CEQKCE.PII 



11/70 CPU EXERCISER 
12-f1AR-80 11:27 



J 1 

MACYll 30A(1052) 12-MAR-80 11:30 PAGE 47-190 

CONVERT UNiauS VIRTUAL ADDRESS TO PHYSICAL ADDRESS 



SEO 0215 



13799 

15800 

15801 

15802 

1<803 

^5804 

15805 

15806 

15807 

15808 

15809 

15810 

15811 

15812 

15815 

15814 

15815 

15816 

15817 

13818 

13819 

15820 

13821 

13822 

13825 

13824 

138^5 

15826 

13827 

13828 

13829 

13830 

13831 

13832 

15833 

13834 

13855 

13836 

15837 

15858 

13839 

15840 

13841 

13842 

13843 

13844 

15845 

13846 

15847 

13848 

13849 

13850 

1^51 

15852 

13853 

13854 



062456 
062462 
062466 
062474 
062476 
062502 
062506 
062510 
062512 
062516 
062522 
062526 
062532 
062536 
062542 
062546 
062552 
062554 



062556 
062560 
062564 
062570 
062572 
062574 
062600 
062604 
062610 
062612 
062616 
062620 
062622 
062626 
062630 
062632 
062636 
062642 
062644 
062646 



013702 
042702 
032737 
001005 
010337 
010237 
000421 
010305 
073227 
042702 
062702 
012237 
011237 
042705 
060537 
005537 
104422 
000207 



104420 
013705 
105737 
001426 
005002 
073227 
072327 
042703 
006102 
062702 
011205 
005004 
073427 
060305 
005504 
010437 
010537 
104422 
000207 
163703 



002004 

1 mii. 

000040 

001574 
001576 



000005 
000003 
170200 
001 574 
001 576 
160000 
001 574 
001576 



001572 
001601 



000003 
1 7777'i 
160000 

172340 



000006 



001576 
001574 



001604 



MOV a»£RR8A*2.R2 

BiC ll\7777i,.Ri 

172516 BIT *BIT5,*WWR3 

BNE IS 

MOV R3,a<rPA1500 

MOV R2,a4rPA2l16 

BR MAPEND 

1$: MOV R3.R5 

ASHC *5.R2 

BiC *3,R2 

ADD *«APL0,R2 

MOV (R2)*.a*PA1500 

MOV (R2).a#PA2116 

BIC *1 60000, R5 

ADD RS^atTPAlSOO 

ADC a«PA21l6 
MAPEND: RESRFG 

RTS PC 



GET BUS ADDRESS <17:16> 

MAP ON? 
BRANCH IF YES 
PHY ADRsSUS ADR 



SAVE ADR BITS <15:00> 
GET MAP REG SELECT BITS 

FORM ADDRESS OF MAP REG 
GET CONTENTS OF MAP REG LO 
GET CONTENTS OF MAP REG HI 
FORM PHYSICAL ADDRESS 
THAT TIMED OUT 



• ************************************************** *****•••*•**• 

S8TTL CONVERT A VIRTUAL ADDRESS TO A PHYSICAL ADDRESS 

THIS ROUTINE CONVERTS A 16-61 T VIRTUAL ADDRESS TO A 
22-BIT PHYSICAL ADDRESS. THE VIRTUAL ADDRESS IS 
ASSJIED TO BE IN LOCATION 'VADR" AND THE PHYSICAL 
ADDRESS IS PLACED IN LOCATIONS 'T>A2116" AND 'PAISOO". 

IF MEMORY MANAGEMENT IS OFF THE PHYSICAL ADDRESS IS 
GENERATED BY SUBTRACTING THE CONTENTS OF LOCATION 
'TACTOR" FROM THE VIRTUAL ADDRESS. THIS LOCATION 
CONTAINS THE BYTE OFFSET BETWEEN THE RELOCATED CODE 
AND THE NON-RELOCATED CODE. 

IF MEMORY MANAGEMENT IS ON, THE CONTENTS OF THE 
APPROPRIATE PAR REGISTER IS ADDED(AFTER ADJUSTMENT) 
TO THE LEAST SIGNIFICANT 13 BITS OF THE VIRTUAL ADDRESS. 
' *************************************************************** 

CNVADR: SAVREG 



2$: 



1$: 



MOV 


a4rVADR,R3 


:GET VIRTUAL ADDRESS TO CONVERT 


TSTB 


a«MMON 


:IS MEMORY MGMT ON? 


BEO 


1$ 


:BRANCH IF NO 


CLR 


R2 




ASHC 


*3.R2 


;GET PAR SELECT BITS 


ASH 


#-3,R3 


.•RETURN VIR ADDR TO ORIGINAL 
.•MAKE SURE SIGN DIDN'T EXTEND 


BIC 


#1 60000, R3 


ROL 


R2 


;MAKE R2 EVEN FOR WORD ADDRESSING 


ADD 


*KIPAR0,R2 


;GET ADDRESS OF PAR 


MOV 


(R2),R5 


;GET PAR DATA 


CLR 


R4 


; SETUP R4 . 


ASHC 


4r6,R4 


.SHIFT PAR DATA 


ADD 


R3,R5 


.•FORM PHYSICAL ADDRESS 


ADC 


R4 




MOV 


R4,a#PA2n6 


.•SAVE PHYSICAL 


MOV 


R5,a«PA1500 


.•ADDRESS 


RESREG 




RTS 


PC 


.RETURN 


SUB 


a#FACT0R,R3 


;FORM PHYSICAL ADDRESS 
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SEO 0216 



13855 

13856 

13857 

13858 

15859 

13860 

13861 

13862 

15863 

13864 

13865 

13866 

13867 

13868 

13869 

15870 

15871 

15872 

15875 

15874 

15875 

15876 

15877 

15878 

15879 

15880 

15881 

15882 

15883 

15884 

15885 

15886 

15887 

13888 

13889 

13890 

15891 

15892 

15893 

15894 

15895 

15896 

15897 

15898 

15899 

13900 

15901 

13902 

15905 

15904 

15905 

13906 

13907 

13908 

13909 

13910 



062652 
062654 
062656 



062660 
062664 
062672 
062674 
062676 
062700 
062702 
062704 
062706 
062710 
062712 
062716 
062720 
062722 
062726 
062734 
062740 
062742 
062750 
062752 
062754 
062756 
062764 
062772 
063000 
063004 
063010 
063012 
063020 



005004 
010305 
000765 



012705 
012757 
024042 
001026 
005112 
005112 
021210 
001022 
020005 
001414 
105757 
001765 
077514 
012705 
162757 
012702 
000754 
012757 
000207 
000262 
000207 
015757 
013737 
015757 
010257 
010057 
104005 
012737 
000754 



CLR 
MOV 
BR 



R4 

R3.R5 
2S 



.•RETURN 



004000 
062756 



S8TTL ROUTINE TO CHECK RELOCATED DATA 

•ROUTINE TO CHECK DATA RELOCATED 

•CALL: R0= HIGHEST ADDRESS *2 OF SOURCE DATA 

• R2= HIGHEST ADDRESS *2 OF DEST DATA 

• R5= LOWEST ADDRESS OF THE SOURCE DATA 
* 

THIS ROUTINE USES A COMPARE INSTRUCTION TO CHECK 

• THE DATA THAT WAS RELOCATED. IF A PARITY ERROR OCCURS 
DURING THIS CHECK A SPECIAL ERROR MESSAGE IS TYPED 

• INSTEAD OF THE UNEXPECTED TRAP MESSAGE. 



000114 



001601 



010000 
000200 
120000 

065616 



1 77744 
177740 
177742 
001572 
001552 



172350 
000114 



001556 
001360 
001362 



1 77777 1 77744 



CHKDAT: MOV *2048.,R5 

MOV #2$,a*CACHVEC 

7$: CMP -(R0).-<R2) 

BNE 99$ 

COM <R2) 

COM (R2) 

CMP (R2) . (RO) 

BNE 99S 

1$: CMP R0.R5 

BEQ 5S 

TST8 a#MMON 

BEQ 7S 

SOB R3-7$ 

MOV #4096., R3 

SUB #200,a#KIPAR4 

MOV #1 20000. R2 

BR 7S 

5$: MOV #.PARSRV,»rCACHVEC 

RTS PC 
99$: SEV 

RTS PC 

2$: MOV a«MEnERR,a4r$TMP2 

MOV a»LGlADRS.a#$TMP3 

MOV a«HJADRS,ar$TMP4 

MOV R2,»rVADR 

MOV RO.afSTMPO 

ERROR 5 

MOV #-1 ^afMEMERR 

BR 99$ 



COUNTER 

SETUP PARITY VECTOR 
CHECK DATA 

COMPLEMENT DEST DATA 
TWICE 

CHECK DATA 

.•BRANCH IF ALL DATA CHECKED 

MEMORY MANAGMENT ON? 

BR BACK IF NOT 

REPEAT 4096 TIMES 

SET UP COUNTER AGAIN 

MAP TO NEXT LOWER 4K OF SPACE 

START AT TOP OF 4K SPACE + 2 

CKECK MORE 

RESTORE CACHVEC 

RETURN 



.'SAVE ERROR REG 
.•SAVE ERROR ADR 



.CLEAR ERROR REG 
.■RETURN 



S8TTL ROUTINE TO GET A MAP REGISTER 

•THIS ROUTINE TAKES AN 18 BIT RANDOM NIHBER, FINDS TWO 

•CONSECUTIVE MAP REGISTERS THAT ARE NOT IN USE. LOADS THE 

•REGISTERS WITH THE PHYSICAL ADDRESS MINUS THE RANDOM NUMBER 

•AND THE NlfCER 4K, AND RETURNS A NEW BUS ADDRESS. BASED 

•ON THE RANDOM Nl/CER. 

• 

• MAP REGISTERS 0 THRU 5 ARE NOT USED IF THE PROGRAM IS 

* RUNNING ON ACT11. THIS ALLOWS 'MOTHER" TO ACCESS THE 
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CEQKCE.PIl 



13911 

13912 

13913 

139K 

13915 

13916 

13917 

13918 

13919 

13920 

13921 

•3922 

13923 

1392A 

13925 

13926 

13927 

13928 

13929 

13930 

13931 

13932 

13933 

13954 

13935 

13936 

13937 

13938 

13939 

13940 

13941 

13942 

13943 

13944 

'3945 

13946 

1394? 

13948 

13949 

13950 

13951 

13952 

13953 

13954 

13955 

13956 

13957 

13958 

13959 

13960 

13961 

13962 

13963 

13964 

13965 

13966 
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063022 
063026 
063032 
063036 
063040 
063044 
063046 
063050 
063054 
063060 
063064 
063070 
063074 
063100 
063104 
063110 
063112 
063114 
063120 
063122 
063126 

063130 
063134 
063136 
063140 
063144 
063150 
063154 
063156 
063160 
063164 
063170 
063172 
063174 
063200 
063204 
063210 
063214 
063220 
063224 
063226 
063230 



016600 
016601 
013746 
005116 
042716 
000237 
104420 
012137 
012137 
004737 
013702 
013703 
07Z227 
042702 
022702 
100001 
000762 
005737 
001406 
122702 
001754 

122702 
001751 
010204 
042703 
073227 
042703 
010241 
010341 
012705 
120465 
001435 
077504 
110460 
072427 
062704 
042703 
013701 
013702 
160301 
005602 
010124 
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ROUTINE TO GET A MAP REGISTER 

END OF PASS HOOKS. 

THE MAP TABLE (MAPTBD CONTAINS 4 BYTES, ONE FOR EACH 
IfJIBUS DEVICE. IF THE USE IS PRESENT IT USES THE 
4TH PYTE. WHEN A REGISTER IS ASSIGNED TO A DEVICE. 
THE LOWER 4 ADDRESS BITS OF THAT REGISTER ARE PLACED 
IN THE TABLE. WHEN A DEVICE REQUESTS A REGISTER PAIR 
THIS TABLE IS THEN SEARCHED TO SEE IF THE REGISTER 
PAIR IS IN USE. 
ENTER WITH: 

4(SP)=DEVICE ID 

2(SP)=ADDRESS OF THE PHYSICAL ADDRESS 



SEO 0217 



000004 
000002 
177776 

177437 



001276 
001300 
060562 
001622 
001620 
177764 
177760 
000016 



001602 
000000 

000001 



100000 
177776 
000001 



000004 
001765 



001766 
000003 
170200 
160000 
001276 
001300 



************* 



******************* 

GETMAP: MOV 4(SP),R0 

MOV 2(SP) .R1 

MOV a#PSW,-(SP) 

COM (SP) 

BIC #''CPR7,(SP) 

SPL 7 
SAVREG 

MOV (RD + .anGDDAT 

MOV (Rl) + ,*r$BDDAT 

2$: JSR PC,a#$RAND 

MOV a«r$HINUM.R2 

MOV a#SL0NUn,R3 

ASHC *-14,R2 

BIC *1 77760, R2 

CMP #16,R2 

BPL 3$ 

BR 2$ 

3$: TST aVQV 

BEO 4$ 

CMPB »0,R2 

BEQ 2$ 

CMPB *1 ,R2 

BEQ 2$ 

4$: MOV R2.R4 

BIC *8IT15,R3 

ASHC M-2.R2 

BIC *8IT0.R3 

MOV R2.-(R1) 

MOV R3,-CR1) 

MOV #4,R5 

1$: CMPB R4,MAPTBL-1(R5) 

BEO 5$ 

SOB R5J$ 

M0V8 R4,nAPT6L(R0) 

ASH #3,R4 

ADD M1APL0.R4 

BIC #160000,R3 

MOV aMGDDAT^RI 

MOV airSB0DAT,R2 

SUB R3,R1 

SBC R2 

MOV R1,(R4)* 



******************************* 

GET DIVICE ID 
GET ADR OF PHY ADR 
SAVE CURRENT PRIORITY 
MAKE IT READY FOR RESTORE 

IF THIS IS RK CALL, LOCK OUT UBE 

SAVE PHYSICAL 
ADDRESS 

GET RANDOM NUMBER 
GET HIGH RANDOM NUMBER 
GET LOW RANDOM NUMBER 
CONVERT TO 20 BIT NUMBER 
GET RID OF 11 BITS OF SIGN EXT 
LEGAL MAP REG SELECT? 
BRANCH IF YES 
TRY AGAIN 

ACTll (QV OR AUTO)? 
BRANCH IF NO 
MAP SELECT 0? 
BRANCH IF YES. (ACT MUST 
USE MAP 0 - 3) 



SAVE MAP SELECT BITS 

CLEAR SELECT BIT 0 

FORM 18 BIT ADDRESS 

MAKE SURE ITS EVEN 

RETURN NEW BUS ADDRESS 

TO THE APPROPRIATE HAfyDLER 

SET SOB COUNT 

IS THIS MAP IN USE? 

BRANCH IF YES 

CONTINUE 

PUT MAP SELECT BITS IN TABLE 

FORM INDEX TO GET MAP REG ADDR 

GENERATE MAP ADDRESS 

GET LS 13 BITS OF RAND NO. 

GET PHYSICAL 

ADDRESS 

GENERATE MAP 

REGISTER DATA 

LOAD THE 
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SEQ 0^'6 



15967 


063232 


010224 


139b8 


065234 


062701 


13969 


063240 


005502 


13970 


065242 


010124 


13971 


065244 


010224 


13972 


063246 


104422 


13973 


063250 


042637 


1397A 


063254 


011666 


13975 


065260 

VW Vfc w 


022626 


15976 


063262 


000207 


13977 






13978 


063264 


062701 


13979 


063270 


000137 


15980 






15981 






15982 






15983 






13984 






13985 


063274 


010046 


13986 


063276 


016600 


13987 


063302 


112760 


13988 


063310 


012600 


13989 


063312 


000207 


13990 






13991 






13992 






13993 






1399<. 


063514 


013746 


13995 


063320 


011627 


13996 


063322 


000000 


13997 


063324 


042716 


15998 






15999 






1A000 






U001 


063330 


012746 


1A002 


063334 


000002 


1A003 


063336 


000207 


K004 






U005 


063340 


042737 


U006 


063346 


016746 


U007 


063352 


000766 


14008 






K009 






1A010 






14011 






14012 






14013 






14014 






14015 






14016 






14017 






14018 






14019 






14020 






14021 






14022 







177776 
000004 



000004 
063060 



000004 

000377 001766 



177776 
000020 

063336 



177400 177776 
177750 



MOV 

ADD 

ADC 

MOV 

MOV 

RESREG 

BIC 

MOV 

CMP 

RTS 

;RE6ISTER PAIR 
5S: ADD 
JMP 



R2-(R4)* 

ir26000,R1 

R2 

R1,(R4)* 
R2.(R4)* 

(SP)+,a*PSU 
(SP).4(SP) 
(SP)*.(SP)* 
PC 

IS IN USE, TRY ANOTHER 
*;.R1 
^2% 



.•FIRST MAP REGISTER 
:ADD 4K 
;T0 MAP DATA 
.-LOAD THE 

.'SECOND MAP REGISTER 

.•RETURN PRIORITY TO ORIGINAL VALUE 
.•SETUP RETURN PC 
.•CLEAN UP THE STACK 
.•RETURN 
RANDOM NUMBER 
.RESTORE Rl 

;6ET ANOTHER RANDOM NUMBER 



• *************************************************************** 

S8TTL GIVE MAP SUBROUTINE 

* THIS ROUTINE TAKES THE MAP ADDRESS OUT OF THE MAP TABLE 

* FOR THE REQUESTING DEVICE AND REPLACES IT WITH 377. 
**************************************************************** 

6iVEMAP:M0V RO.-(SP) ;SAVE RO 

MOV 4(SP),R0 ;GET DEVICE ID 

M0V8 <lf377,MAPTBL(R0) .-TAKE IT OUT OF THE TABLE 

MOV (SP)4^,R0 : RESTORE RO 

RTS PC ; RE TURN 



• • ***** 

'.SBTTL 

; ; ***** 

CLRT8IT 
RETPSW: 

• • ***** 
'.SBTTL 

;;****< 

RESPSW: 
1$: 

RESTPS; 



******** 

ROUTINE 
******** 

:MOV 

MOV 

.WORD 

BIC 
******** 

ROUTINE 
******** 

MOV 
RTI 
RTS 

BIC 
MOV 
BR 



********************************************w***** 

TO CLEAR 'T* BIT 
************************************************** 

a#PSW,-(SP) .-PUSH PSW ONTO STACK 
(SP),(PC)* ; SAVE IN RETPSW BELOW 

0 

#20. (SP) .-CLEAR T BIT IN PSW ON STACK 

************************************************** 

TO RESTORE THE T BIT 
************************************************** 

#1$,-(SP) ;SET RETURN PC FOR RTI 

; CLEAR 'T' BIT IN PSW 
PC .-RETURN 



#177400,a#PSW 

RETPSW,-(SP) 
RESPSW 



:SET KERNEL MODE 

.-PUSH ORIG PSW ONTO STACK 



• *************************************************************** 

SBTTL KEYBOARD INT SERV ROUTINE 

♦THIS ROUTINE HANDLES INTERRUPTS FROM THE KEYBOARD 

* 

♦TYPING A CONTROL 'C WILL CAUSE THE PROCESSOR TO HALT 
* 

♦TYPING A CARRAGE RETURN WILL CAUSE A CARRIAGE RETURN-LINE FEED 

•TO BE TYPED. 

* 

♦TYPING A CONTROL '0* WILL INHIBIT ANY FURTHER lYPEOUT. THE SECOND CONTROL '0' 

♦WILL ENABLE TYPEOUT AGAIN AND ECHO A CR-LF. 

* 

♦ANY OTHER CHARACTER WILL JUST BE ECHOED. 

**************************************************************** 
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SEQ Oc 



14023 

14024 

14025 

14026 

14027 

14028 

14029 

14030 

14031 

14032 

14033 

14034 

14035 

14036 

14037 

14038 

14039 

14040 

14041 

14042 

14043 

14044 

14045 

14046 

14047 

14048 

14049 

14050 

14051 

14052 

14053 

14054 

14055 

14056 

14057 

14058 

14059 

14060 

14061 

14062 

14063 

14064 

14065 

14066 

14067 

14068 

14069 

14070 

14071 

14072 

14073 

14074 

14075 

14076 

14077 

14078 



063354 
063360 
065364 
063370 
063372 
063400 
063404 
063406 
063410 

063412 
063416 
063420 
063426 
063432 
063434 

063436 
063442 
063444 
063446 
063452 
063454 
063462 
063466 

063470 
063472 
063474 
063500 
063504 
063506 
063510 
063514 
063516 
063522 
063526 
063532 
063534 
063540 
063542 
063544 
063550 
063552 
063556 
063560 
063564 



000003 
000017 

017746 
042716 
022716 
001010 
012737 
106277 
005726 
000000 
000002 

122716 
001007 
012737 
106277 
005726 
000002 

122716 
001012 
005726 
005167 
100405 
012737 
106277 
000002 

104420 
011605 
004737 
013700 
110520 
105010 
022700 
00100? 
012700 
010037 
004737 
104422 
005737 
100004 
005726 
105077 
000002 
105777 
100375 
112677 
000002 



CNTRLC=3 
CNTRL0=17 



115732 




TKISR: 


nov 


a$TKe--(SP) 


;GET CHARACTER 


177600 






BIG 


#177600. (SP) 


.'STRIP UNUSED BITS 


000003 






C«P 


#CNTRLC.(SP) 


.•BRANCH IF NOT CONTROL C CO 








BNE 


1$ 




00 i*»Uo 






nuv 






115710 






ASRB 


asTPs 










TST 


(SP) + 


POP CHARACTER OFF THE STACK 








HALT 












RTI 




.•RETURN 


000015 




1$: 


CMP8 


#15. (SP) 


.-BRANCH IF NOT <CR> 








BNE 


2S 




001406 


001340 




nov 


#$CRLF-1 ,a#$REG5 


;ECHO CR LF 


1 1 

1 iSOOc 






A COB 












TST 


(SP)* 


.POP CHARACTEROFF STACK 








RTI 




.■RETURN 


000017 




2$: 


CMP8 


#CNTRL0.(SP) 


.■BRANCH IF NOT CONTROL 0 (*0) 








BNE 


3$ 










TST 


(SP)* 




116074 






COM 


NOTyPE 










BMI 


7$ 




001406 


001340 




MOV 


#SCRLF-1 ,a#SREG5 


.ECHO CR LF 


115626 






ASR8 


aSTPS 








7%: 


RTI 










3$: 


SAVREG 












MOV 


(SP) ,R5 


.•RETRIEVE CHARACTER 


064104 






JSR 


PC,a#LDKT 


;G0 TO LOW CORE 


001522 






MOV 


a#TK8FRP,R0 


.-GET BUFFER PTR 






4S: 


MOVE 


R5.(R0)* 


.-LOAD CHAR INTO BFR 








CLR8 


(RO) 


.•CLEAR NEXT LOC 


001544 




5$: 


CMP 


#TKeFR+20.R0 


.•BRANCH IF NOT END OF BFR 








BNE 


6$ 




001524 






MOV 


#TKBFR,RO 


.-RESET BUFFER PTR 


001522 




6$: 


MOV 


RO,a#TKBFRP 


.•RESTORE BFR PTR 


064202 






JSR 


PC,a#RESKT 


:G0 BACK TO ORIGINAL MEMORY 








RESREG 




001546 




ECHO: 


TST 


aUNOTYPE 


jTYPEOUT DISABLED? 








BPL 


1$ 


.•BRANCH IF NO 








TST 


(SP) + 


;FIX UP STACK 


115544 






CLR8 


asTPs 


.CLEAR IE BIT 








RTI 




.•RETURN 


115536 




IS: 


TST8 


asTPS 


.•PRINTER READY? 








BPL 


.-4 


.•BRANCH IF NO 


115532 






M0V8 


(SP) *,a$TPB 


;MOVE CHAR TO PRINTER 








RTI 


.RETURN 



• • A*********************-*************** ************************** 

'.SBTTL TELETYPE INTERRUPT SERVICE ROL'TINE 

.••THIS ROUTINE TYPES A MESSAGE POINTED TO BY THE ADR STORED 
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SEQ 0220 



U079 

14060 

H061 

H062 

U083 

K064 

U08S 

14086 

14087 

14088 

14089 

14090 

14091 

14092 

14093 

14094 

14095 

14096 

14097 

14098 

14099 

14100 

14101 

14102 

14103 

14104 

14105 

14106 

14107 

14108 

14109 

14110 

14111 

14112 

14113 

14114 

14115 

14116 

14117 

14118 

14119 

14120 

14121 

14122 

14123 

14124 

14125 

14126 

14127 

14128 

14129 

14130 

14131 

14132 

14131 

14134 



;*IN LOCATION $RE65. THIS ROUTINE IS INTERRUPT DRIVEN, 



063566 

063572 
063576 
063600 
063602 
063606 
063614 



005237 
117746 
001356 
005726 
005077 
012737 
000002 



001340 
115542 



115506 
001624 



001340 



TPISR: INC 


air$REG5 


.STEP MESSAGE ADDRESS PTR 


novB 


a$REG5,-(SP) 


;GtT CHAR TO BE TYPED 
;G0 TYPE CHAR IF NOT 'O' 


BNE 


ECHO 


TST 


(SP)* 


.POP STACK 


CLR 


aSTPs 


.CLEAR IE BIT 


MOV 


#NULLS,arSREG5 




RTI 




.RETURN 



063616 


012737 


064076 


000114 


'.PARSRV.-MOV 


063624 


016637 


000002 


001352 




MOV 


063632 


011637 


001572 






MOV 


063636 


162737 


000002 


001572 




SUB 


063644 


013702 


1 77744 






MOV 


063650 


013703 


177740 






MOV 


063654 


010337 


001360 






MOV 


063660 


013737 


177742 


001362 




MOV 


063666 


042703 


176000 






BIC 


063672 


013704 


172354 






MOV 


063676 


105737 


001601 






TSTB 


063702 


001407 








BEO 


063704 


005037 


172354 






CLR 


063710 


012737 


077406 


172314 




MOV 


063716 


052703 


140000 






RJS 


063722 


105713 






1$: 


TSTB 


063724 


005102 






2$: 


COM 


063726 


010237 


177744 






MOV 


063732 


013737 


177744 


001356 


PERET: 


MOV 


063740 


013737 


001262 


001336 




MOV 


063746 


012737 


063756 


001262 




MOV 


063754 


104004 








ERROR 


063756 


013737 


001336 


001262 


2$: 


MOV 


063764 


010437 


172354 






MOV 


063770 


013704 


177744 






MOV 


063774 


012737 


177777 


\777i,i. 




MOV 


064002 


012737 


063616 


000114 




MOV 


064010 


042704 


177763 






BIC 


064014 


001426 








BEO 



S8TTL PARITY ERROR SERVICE 

THIS ROUTINE FIELDS UNEXPECTED TRAPS TO 114. IT IS ASSlflED 
THAT THE ERROR WAS IN CACHE AND WAS CAUSED BY THE 'DTHER 
WORD" RATHER THAN THE 'UANTED WORD" WHICH MEANS THAT THE 
BAD DATA IS STILL IN THE CACHE. SO, TO CLEAR THE BAD DATA 
THE ERROR ADDRESS IS REFERENCED CAUSING THE CACHE TO GO 
TO MAIN MEMORY TO GET THE DATA. THIS PREVENTS AN 
ARBITRARY REFERENCE TO THE BAD WORD FROM TRAPPING. 

AFTER THE ERROR IS REPORTED. BITS 2 AND 3 OF THE MEMORY 
ERROR REGISTER ARE TESTED TO SEE IF THE BAD DATA IS IN 
MAIN MEMORY. IF IT IS. THE PROGRAM RESTARTS SINCE THE 
GOOD DATA IS NOW LOST FOREVER. OTHERWISE THE PROGRAM 
RETURNS TO THE ADDRESS POINTED TO BY "SLPERR". 



*RT1,a*CACHVEC 

2(SP).anTMP0 
(SP) .arvADR 

#2.»rVA0R 

»mEMERR.R2 

a#LOA0RS.R3 

R3.anTMP3 

a«HIADRS.anTMP4 

#176000.R3 

MrKJPAR6.R4 

IS 

ail'KIPAR6 
#77406-arKIPDR6 
#140006.R3 
(R3) 

R2 

R2.a«MEMERR 

a«fiEnERR.air$TMP2 

a«$LPERR.»r$REG4 
#2$,»rSlPERR 



PUT NEW ADDRESS IN PARHY VECTOR 
SAVER ERROR PSW 
SAVE PC 

ADJUST ERROR PC 
GET ERROR REGISTER 
GET LO ADDRESS ERROR REG 
PUT LOW ADR IN MEMORY 

.-GET HI ADDRESS ERROR REG 
MASK OFF LOWER TEN BITS 
SAVE PAR6 
IS MEMORY MGMT ON? 
BRANCH IF NO 
CLEAR PAR6 

ENSURE POR 6 RESIDENT 

SETUP R3 TO REFERENCE THRU PAR6 

REFERENCE ADDRESS THAT TRAPPED 

SHOaD CAUSE ABORT 

GET ORIGINAL MEMORY 

ERROR REG DATA 

.•SAVE ERROR REG FOR TYPEOUT 

.SAVE LOOP ADDRESS 

.-SET RETURN ADDRESS IF LOOPING 



air$REG4.anLPERR .-RESTORE LOOP ADDRESS 

R4.»rKIPAR6 .-RESTORE PAR6 

ailinEMERR.R4 .-GET MEM ERR REG 

#-1,a*ME«ERR .-CLEAR ERR REG 

*.PARSRV,8#CACHVEC .-RESTORE PARITY VECTOR 

*177763.R4 .-CLEAR ALL BUT BITS 2 fc 3 

1$ .-BRANCH IF NOT MAIN MEMORY ERROR 



CEOKC-E POP 11/70 CPU EXERCi:iER nACYll 
CE0KCE.P11 12-MAR-80 11:27 



30A(1052) 12-mP-80 11:30 
PARITY ERROR SERVICE 



C 2 
PAGE 



47-196 



SEQ 0221 



14135 
(1) 
(1) 
(1) 
14136 
14137 
14138 
14139 
14140 
14141 
14142 
14143 
14144 
1414S 
14146 
14147 
14148 
14149 
14150 
14151 
14152 
14153 
14154 
14155 
14156 
14157 
14158 
14159 
14160 
14161 
14162 
14163 
14164 
14165 
14166 
14167 
14168 
14169 
14170 
14171 
14172 
14173 
14174 
14175 
14176 
141 77 
14178 
14179 
14180 
14181 
14182 
14183 
14184 
U185 
H186 
^4187 



064016 
064022 

064064 
064064 
064066 
064072 

064076 
064100 



064104 
064110 
064112 
064114 
064122 
064130 
064154 
064136 
064140 
064142 
064144 
064150 
064154 
064160 
064162 
064166 
064170 
064172 
064174 
064176 
064200 



064202 
064206 
064210 
064212 
064216 
064220 
064222 
064224 
064226 
064232 
064234 
064236 
064240 
064242 



104400 
000420 



000005 
000137 
012716 

000002 
000177 



105737 
001433 
012604 
013737 
042737 
012700 
012001 
012002 
012003 
012005 
012740 
012740 
012740 
005040 
012700 
010120 
010220 
010320 
010510 
010446 
000207 



105737 
001421 
012604 
012700 
012001 
012002 
012003 
012005 
012700 
010120 
010220 
010320 
010510 
013737 



064024 



003612 
064100 



115156 



001601 



MllK- 001566 
14000U 177776 
172340 



000600 
000400 
000200 

001556 



;;65$: 
64 S: 



1$: 

RT1 : 
X: 

• **** 

S8TTL 
* 
* 
* 

• ft*** 

LDKT 



TYPE ,65$ ;;TYPE ASCI2 STRING 

8R 64$ ;;GET OVER THE ASCIZ 

.ASCI2 /FATAL PARITY ERROR-RESTARTING/<CRLF > 



RESET 

JMP 

MOV 

RTI 
JMP 



*irSTART 
#X,(SP) 



a$LPERR 



.-CLEAR THE WORLD 

PUT ADDRESS ON STACK TO GET ORIGINA. 
PSW BACK 

GET OLD PSW 

JUMP TO START OF TEST THAT HAD THE PE 



ft********************************************************** 

CONTEXT SWITCH DOWN SUBROUTINE 

SUBROUTINE TO SAVE % LOAD KIPAR'S 0.1,2 AND 3 (IF MEM MGMT ENABLED) 
THIS ROUTINE IS CALLED BY THE KEYBOARD INTERRUPT. LINE CLOCK 
INTERRUPT. L«E SERVICE ROUTINE, MBT SERVICE ROUTINE. AND TYPE TIME ROUTINE, 
ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft* 

.•BRANCH IF MEM MGMT DISABLED 

SAVE RETURN PC 
SAVE THE CURRENT PSW 
GO TO KERNEL MODE 
GET ADDRESS OF PARO 
GET PARO 
GET PARI 
GET PAR2 
GET PAR3 

BACK TO LOW CORE 
RELOC BACK TO LOW CORE 



.-GET ADDRESS OF SAVE BUFFER 
;PUT PAR DATA IN MEMORY 



IS: 



TSTS 


a«rtiON 


BEQ 


1$ 


MOV 


(SP)+. R4 


MOV 


a«psw<a#$sAVPSw 


BIC 


#1 40000, a*psw 


MOV 


*KIPARO.RO 


MOV 


(R0)+,R1 


MOV 


(R0)+,R2 


MOV 


(R0)+.R3 


MOV 


(R0)+.R5 


MOV 


#600, -(RO) 


MOV 


#400, -(RO) 


MOV 


#200, -(RO) 


CLR 


-(RO) 


MOV 


#$SAVPAR,RO 


MOV 


R1,(R0)+ 


MOV 


R2.(R0)+ 


MOV 


R3,(R0)* 


MOV 


R5,(R0) 


MOV 


R4.-(SP) 


RTS 


PC 



;PUT RETURN PC ON STACK 



001601 
001556 

1 72340 

001 566 1 7777t 



***************************************************************** 

'.SBTTL CONTEXT SWITCH UP SUBROUTINE 

.•SUBROUTINE TO RESTORE KIPARO, 1.2 AND 3 (IF MGMT ENABLED) 
••*************»ft***ftftft ************************************ ****** 

RESKT: TSTB aHWMON .'BRANCH IF MEM MGMT DISABLED 

GET RETURN PC 
GET ADDRESS OF SAVE BUFF 
GET OLD PAR DATA 



;6ET ADDRESS OF PARO 
.•RELOCATE BACK 



TSTB 


vmoN 


BEQ 


1$ 


MOV 


(SP)+,R4 


MOV 


#$SA vpar.ro 


MOV 


(R0)*.R1 


MOV 


(R0)*.R2 


MOV 


(R0)*.R3 


MOV 


(R0)*.R5 


MOV 


#KIPARO.RO 


MOV 


Rl.(RO)* 


MOV 


R2,(R0)* 


MOV 


R3.(R0)* 


MOV 


R5.(R0) 


MOV 


a#$SAVPSw,a#Psw 
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30A(1052) 1P-MAR-80 11:30 PAGE A7-197 
CONTEXT SWITCH UP SUBROUTINE 



SfO 0??? 



1A188 

U189 

K190 

HI 91 

U192 

U193 

U19<, 

U195 

K196 

K197 

U198 

U199 

K200 

K201 

K202 

K203 

K204 

U205 

H206 

K207 

K208 

K209 

1A210 

K211 

U212 

K213 

U2U 

U215 

1A216 

U?17 

K218 

14219 

K220 

U221 

U222 

U223 

U22A 

U225 

K226 

1A227 

U228 

U229 

K230 

U231 

U232 

U233 

K234 

K235 

U236 



064250 
064252 



064254 
064262 
064266 
064274 
064302 
064310 
064316 
064324 
064326 
064334 
064342 
064346 



064350 
064356 
064362 
064370 
064376 
064404 
064406 
064414 
064420 



064430 
064434 
064442 
064446 
064454 
064462 
064470 
064472 
064500 
064504 
064510 
064514 



010446 
000207 



016637 
011637 
162737 
013737 
013737 
013737 
012737 
104003 
013737 
042737 
013716 
000002 



016637 
011637 
162737 
013737 
012737 
104002 
013737 
013716 
000002 



000002 
001572 
000002 
177572 
177576 
001262 
064326 

001336 
170000 
001262 



000002 
001572 
000002 
001262 
064406 

001336 
001262 



001352 

001572 
001356 
001360 
001336 
001262 

001262 
177572 



001352 

001572 
001336 
001262 

001262 



$: 



MOV 

RTS 



R4.-(SP) 
PC 



S8TTL KT ABORT SUBROUTINE 



KTA8RT: MOV 
MOV 
SUB 
MOV 
MOV 
MOV 
MOV 
ERROk 

1$- MOV 
BIC 
MOV 
RTI 



2(SP).anTMP0 
(SP).arvADR 

*2.a#VADR 

a*niR0,anTMP2 
a#MMR2,arSTMP3 

a«4LPERR,a#$REG4 

#i$,anLPERR 

»ir$REG4,d#$LPERR 
*1 70000. a*MMR0 
a#$LPERR,(SP) 



SAVE ERROR PSW 
SAVE ERROR PC 

SAVE MMRO 

SAVE MMR2 

SAVE LOOP ADDRESS 

SET RETURN ADR IF LOOPING 

RESTORE LOOP ADR 
CLEAR ERRORS 
GET LOOP ADDRESS 
RETURN 



***************************************************************** 

'.S8TTL RESERVED INSTRUCTION ROUTINE 

***************************************************************** 



RESERR: MOV 
MOV 
SUB 
MOV 
MOV 
ERROR 

1$: MOV 
MOV 
RTI 



2(SP),a#$TMP0 

(SP) ,arvADR 

#2.d*VADR 

a4rSLPERR,a#$REG4 

*1$,a#$LPERR 

2 

ar$REG4«a#$LPERR 
a*$LPERR,(SP) 



.•SAVE PSW 
.-SAVE ERROR PC 

.-SAVE LOOP ADR 

;SET RETURN ADR IF LOOPING 

.•RESTORE LOOP ADR 
.-GET LOOP ADDRESS 
.•RETURN 



'.S8TTL TRAP TO 4 SERVICE ROUTINE 



064422 016637 000002 001352 ERPRT: MOV 



011637 
162737 
012706 
013737 
013737 
012737 
104001 
013737 
005037 
013746 
013746 
000002 



001572 
000002 
000700 
177766 
001262 
064472 

001336 
177766 
001352 
001262 



001572 

001356 
001336 
001262 

001262 1$: 



MOV 

SUB 

MOV 

MOV 

MOV 

MOV 

ERROR 

MOV 

CLR 

MOV 

MOV 

RTI 



2(SP).eMf$TMP0 

(SP) .arvADR 

#2.aKrVADR 

#SUPSTK,SP 

a(rCPUERR,a#STMP2 

a4rSLPERR.a4r$REG4 

#lS.anLPERR 

1 

air$REG4.»r$LPERR 
a#CPUERR 
a#$TMPO.-(SP) 
a#$LPERR,-(SP) 



;SAVE ERROR PSW 

.•SAVE ERROR PC 

.•RESTORE SP 

.GET FRROR REG 

.•SAVE LOOP ADR 

;SET RETURN ADR IF LOOPING 

.-SET LOOP ADR 

SETUP STACK TO RETURN 

.•RETURN 
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CEQICCE. Pn 12-mR-80 11:27 TRAP TO 4 SERVICE ROUTINE 



SFC C 



K238 

H239 

U240 

U241 

H242 

K243 

K244 

U245 

K246 

K247 

H248 

U2A9 

K250 

K251 

U252 

U253 

U254 

1A255 

K256 

K257 

U258 

H259 

U260 

H261 

U262 

U263 

14264 

14265 

14266 

14267 

14268 

14269 

14270 

14271 

14272 

14273 

14274 

14275 

14276 

14277 

14278 

14279 

14280 

14281 

14282 



064516 
064520 
064522 
064524 
064526 
064530 



064532 
064534 
064536 
064540 
064542 
064544 



000000 
000020 
140000 
144020 
040000 
044020 



000000 
000004 
000006 
000010 
000000 
000012 



THE BELOW TABLE REPRESENTS THE 'NEW PSW SET BV THE PROGRAM ON 
SUCCESSIVE SUB-PASSES. 

NOTE THE BELOW TABLE NAY BE MODIFIED TO CAUSE THE PROGRAM TO RUN 
UNDER USER DEFINED PARAMETERS BY PATCHING IN THE DESIRED PASS PARAMETER 
FOR EXAMPLE TO CAUSE THE PROGRAM TO RtW WITHOUT SETTING THE 'T* BH 
IN ALL PASSES PATCH OUT THE 'T* BIT IN THE TABLE. 
PSWTAB: 000000 

000020 ;T-eiT TRAPPING 

140000 .-USER MODE 

144020 .'USER MODE, REG SET #1, TH3IT TRAPPING 

040000 .-SUPERVISOR MODE 

044020 .-SUPERVISOR MODE. REG SET #1. T-6IT TRAPPING 



.-THE BELOW TABLE IS USED TO SET 

MRGTAS: .WORD 0 

.WORD 4 

.WORD 6 

.WORD 10 

.WORD 0 

.WORD 12 
.-MESSAGES 

.EVEN 



MEMORY MARGINS 

NO MARGINS 
EARLY STROBE 
LATE STROBE 
LOW DRIVE CURRENT 
NO MARGINS 
HIGH DRIVE CURRENT 





002210 

V/V/C C 1 \f 








RP3DS 




064550 


V/\/C C -Jt.. 








RKDS 




06455? 


000000 

www 








WORD 




064554 


000000 

^0 V W W 








.WORD 




064556 


002252 








RP4CS1 




064560 


002312 








RSCS1 




064562 


000000 








.WORD 




064564 


000000 








.WORD 




064566 


002356 








MBTT8L 




064570 


002340 








UBETBL 




064572 


064731 






MSGINX: 


.WORD 


MSG5 


064574 


06^,737 








.WORD 


MSG6 


064576 


065546 








.WORD 


MSG21 


064600 


065546 








.WORD 


MSG21 


064602 


064745 








.WORD 


MSG10 


064604 


064753 








.WORD 


MSG11 


064606 


065546 








.WORD 


MSG21 


064610 


065546 








.WORD 


MSG21 


064612 


065242 








.WORD 


MS615 


064614 


065605 








.WORD 


MSG24 


064616 


046200 


053517 


046040 


MSG1 : 


.ASCIZ 


<CRLF>'L0W LIM?* 


064624 


046511 


000077 










064630 


044510 


044107 


046040 


MSG2: 


.ASCIZ 


•HIGH LIM?' 


064636 


046511 


000077 










064642 


051105 


047522 


050122 


MSG3: 


.ASCIZ 


/ERRORPC PHYSC PC 


064650 


020103 


044120 


051531 








064656 


020103 


041520 


020040 








064664 


020040 


051520 


020127 








064672 


020040 


040515 


047111 








064700 


020124 


020040 


042524 








064706 


052123 


047040 


020117 








064714 


052523 


026502 


040520 








064722 


051523 


041440 


052116 








064/30 


000 













PSW MAINT TEST NO SUB-PASS CNT/ 
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;MS64 HAS BEEN MOVED TO END OF PROGRAM 



SfO 0??4 



14283 










14284 










14285 


064731 


122 


A 4 ^A 

030120 


AA/ / Z 7 

004463 




064736 


000 






14286 


064737 


122 


AYAf 4 7 

030113 


AA/ / Z C 

004465 




064744 


AAA 

000 






14287 


064745 


122 


ATA^ ^A 

030120 


AAy t £. / 

004464 




064752 


AAA 

000 






14288 


064753 


122 


ATA^ '^T 

030123 


AA/ / Z / 

004464 




064760 


AAA 

000 






14289 


064761 


4 A/ 

104 


AC T1 

053122 


AC 01 07 

052123 


064766 


A^A^ A^ 

0201 01 


Ay o/ y A 
042440 


AC 1 1 OO 

051 122 




064774 


A/ ^1 

042522 


AOAI A7 

020107 


Ay ^ 1 1 1\ 
0414^0 




065002 


AC 1 1 OT 

051123 


Ay 7CAC 

043505 


AOAAy A 

020040 




065010 


ACT/ / A 


Ay oi oo 
042122 


Ay 71 A7 

04/103 




065016 


AOA1 oy 

0tf0itf4 


Ay i Ay A 
041040 


AC1 C OC 

051 525 




065024 


A/ H Al 

042101 


AOA-I OO 

0201 22 


Ay OA/ A 

042040 




06503? 


Ay C C OT 

045523 


Ay Oi Ai 

042101 


AOAI OO 

0201 22 




c Ay A 

065040 


Ay 1 y y A 
041440 


Ay ^ 1 11 
046131 


Ay oi A1 
042101 




065046 


Aoy 1 oo 
024 122 


ACA1 OO 

050122 


A71 y iLA 

031 *»6U 




065054 


020051 


ACAAy A 

050U*»0 


AC/ CIA 

05H51 U 




065U6c 


AOA1 Ot 

020123 


AC OC AO 

0525U2 


Ay AC 07 

U*»U5<:3 




065070 


AC 1 1 Ay 

051 104 


AAAOAA 
000200 




14^90 


A^ CA7/ 

065074 


Ay 1 y y A 
0414*»0 


A7AC 07 

030523 


AOAA/ A 

U200hU 




A^ C i A1 

065 10<: 


AOAAy A 

020040 


AC 1 1 07 

051 12/ 


Ay 1 CAy 
U*»1 jUh 




AX.C1 1 A 

065 MO 


AC01 1^ 

0521 16 


AOAAy A 

0200«»U 


ACOCAO 




065 M6 


Ay AC 07 
040523 


AC 1 1 Ay 
05 11 Oh 


AOAA/. A 




0651 4:4 


Ay ACAO 

040502 


AC1 lAy 

051 1U*» 


AC/ 1 AC 

U5*»1 U5 




Uo513? 


AOA/V A 

0200<»0 


AC 1 CAy 
U5 1 jVh 


Ay AC1 7 
U*»U5 1 3 




A^ CI ✓ A 

065140 


AC1 1 Ay 

051 1 OA 


AOAAy A 

02U0hU 


A/ 1 / y A 




A^C 1 ✓ ^ 

065146 


A71 1 07 

OjI 12j 


AOAyV A 

020040 


AOAAy A 




065154 


Ay 1 y y A 
04 1 


A71 C07 

031523 


AOAAy. A 

U2UU40 




065 16« 


njnf\j A 
0200hU 


AC1 1 (V. 

051 IOh 


ACI CO<. 

051 52o 




On51 rO 


Ay ACOy 

0*>052*» 


AOAA/ A 

02UOsO 


AC1 1 AC 

051 1U5 




0651 lb 


AC 1 1 00 

05 M 22 


Ay 7CAC 

0*>3505 


AAAOAA 


l4?91 


065<:04 


Ay oCAy 
042504 


Ay 1 C 07 

041 523 


Ay 1 7 1 




U65i:li: 


AOAAy A 

0200*»0 


Ay oy y A 
042hhU 


A71 1 00 

U31 1 cc 




065<:<r0 


AOAAy A 

0200s0 


AOAAy A 

0200h0 






U65i:<r6 


ATI coo 

031 522 


AOAAy A 


AOAA/ A 




U65«:3*» 


ACA1 00 

05U (22 


A/ 1 CAT 

0*»1 5U3 


AAAOAA 




065<r4<: 


Ay AC1 C 

04051 5 


AC 1 C 07 

051523 


Ay 1 Ay A 
041040 




A^C OCA 

065<r50 


AC1 COC 

051 525 


ACOfiy A 

052040 


AC 1 CAC 

051 505 




AiLCOC^ 

Uo5£5o 


Ay oco/ 
0*>252*» 


AOAI OO 

02U122 


AAA 




AA.COA'? 

0o5i:63 


Ay A 
040 


AC1 CA7 

051 503 


AOAAA 1 




065^^0 


AOA/V fi 

0200s 0 


AC7y y A 
0534 »»U 


A/.01 00 




065^/^6 


Ay 71 A7 

0*>r lUj 


AOAI OZ 

02U1 2h 


Ay. 1 A/ A 




AA.C7A/ 


AC1 COC 

051 525 


AZ01 A1 
\J**c lUI 


AOAI 00 

U2U 1 22 






\JH 1 \JH\J 




fU?5?? 




065320 


020130 


020040 


046440 




065326 


031122 


020040 


020040 




065334 


041440 


031123 


020040 




065342 


020040 


020040 


052123 




065350 


020040 


020040 


042440 




065356 


020122 


020040 


020040 




065364 


041440 


031523 


000200 


14294 


065372 


020040 


041503 


020040 



MS65: 
MS66: 
MS610: 
MS611 : 
MSG! 2: 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



7RP03 
7RK05 
7RP04 
7RS04 

/drv«;ta 



ERRREG CSREG WRDCNT BUSADR DSKADR CyLADR(RP03) PHYS 8USA 



MSG13: .ASCIZ / CS1 



WRDCNT BUSADR BADREX DSKADR CS2 



CS3 



DRVSTA ERRREG/ 



MSG14: .ASCIZ /DESCYL ER2 ER3 



MSG15: .ASCIZ /MASS BUS TESTER / 



RPCC/<CRLF> 



MSG16: 



.ASCIZ / CS1 



WRDCNT BUSADR BADREX 



MR2 



CS2 



ST 



ER 



CS3/< 



MSG17: .ASCIZ / CC 



BUSADR 



CR2 



CR1 PHYS 8USA0R/<CRLF> 



6 2 

CEOKC-€ POP n/70 CPU EXERCISER HACYll 30A(1052) 12-flAR-80 11:30 PAGE 47-200 
CE0KCE.P11 12-«AR-80 11:27 TRAP TO 4 SERVICE ROUTINE 



SEO 0??5 





o!)-*UU 


AOAAy A 


AC OCA'^ 


t\/ A C 0 7 












AC1 1 A/ 


r\'ir\/\j A 


n'^nn/ a 
UtrUUsU 










AiLC/ 1 / 


ACI 1 A7 




A'5AA/ A 










Uo!) 


AOAA/ A 


AC 1 1 AT 


A'5AA/.1 












ACAA/ A 

U!)UU*»U 


AC/ CIA 


A0A1 07 

U^U ICJ 










AX.C/ 
UOJh JO 




rt/.AC9T 


nC1 1 AA 










(V.C/ / / 


















A/ / 1 OA 


A'JAI AC 














A/ 1 CI 1 


ADA1 1 7 


AC1 1 AO 












AC^CI 7 


UcU 1 1 O 


















ncni 1 c 










UOjHr O 


















AOAI 5P 














U03 J 1 c 




ncz>cx? 














<v.x«;i 7 




















071 riAi 


























UD J JHc 




UVAA/ 1 c 










1 He TO 


AXCCAiL 


1 1 

u*»o 1 1 1 


nA5C1 A 




MCC71 • 


ACT I 7 






\JOjjjH 


Uc w 1 1 *♦ 


A/. OCA/ 
















\J\rJ c\J\J 




















Mc^;pp ■ 


ACT ' r 


/ / 




065574 


020040 












U298 


065576 


020040 


020040 


020040 


MSG23: 


.ASCJZ 


/ / 




065604 


000 












K299 


065605 


125 


044516 


052502 


MSG24 : 


.ASCIZ 


/UNJ8US EXERCISER / 




065612 


020123 


054105 


051105 










065620 


044503 


042523 


020122 










065626 


000 












K300 


065627 


117 


052120 


041456 


MSG25: 


.ASCIZ 


/0PT.CP=/ 




065634 


036520 


000 











14501 
14302 
14303 



14304 


065657 


125 


042516 


050130 


EMI : 




065644 


041505 


042524 


020104 






065652 


051124 


050101 


052040 






065660 


020117 


000064 






14305 


065664 


041520 


0431 1 7 


050124 


DH1 ; 




065672 


020040 


044120 


051531 






065700 


041520 


020040 


020040 






065706 


051t>20 


020127 


020040 






065714 


050103 


042525 


051122 






065722 


000 








14506 


065723 
065726 


000 
000 


001 
000 


000 


DF1: 


14307 












14308 


065730 
065736 


001572 
001356 


001572 
000000 


001352 


DTI: 


14309 


065742 


047125 


054105 


042520 


EM2: 




065750 


052103 


042105 


052040 
047524 






065756 


040522 


020120 






065764 


030440 


000060 






14310 


065770 


041520 


043117 


050124 


DH2: 




065776 


020040 


044120 


051531 






066004 


041520 


020040 


020040 





;MSG30 THROUGH nSG38 ARE AT END OF LISTING 



.ASCIZ /UNEXPECTED TRAP TO 4/ 



.ASCIZ /PCOFTP PHYSPC 



PSW CPUERR/ 



.BYTE 0.1.0,0.0 
.EVEN 

.WORD VADR.VADR.$THP0.STMP2.0 

.ASCIZ /UNEXPECTED TRAP TO 10/ 



.ASCIZ /PCOFTP PHYSPC 



PSU/ 



H 2 

CEQicC-E POP 11/7C CPU EXERCISER MACrll 30A(1052) 12-MAR-80 11:30 PAGE 47-201 
fFQKCF.PII 12-+1AR-80 11:27 TRAP TO 4 SERVICE ROL'TINE 



SEO 0?26 







AC 1 C "^A 


AAA1 57 








1 / # 1 i 












.t VtN 


1 / 71 "5 


OooOlo 


AA1 C^O 


AA1 C75 


AA 1 7 C 5 

UU 1 53C 


Die: 


. WUKU 






AAAAAA 










1 / 7i 7 

IH 5 1 3 


(J6o0<:o 


Ay 71 


ACy 1 AC 

054 1U5 


Ay 5C5A 

U4cjcU 


CM7 • 


.Ait i I 




A^^A7/ 


AC 51 A7 


Ay 51 AC 


AC 5ny A 
UjcUmU 












A5A1 5A 

UcU 1 cU 


Ay 7C5/ 

U*»y 5CH 










A71 A/.A 


A7/VWtC 

U3UU05 


AyiL/CA 

UmOs jU 








UooUjo 


Ay <LCA7 


n5/ C5y 

UCH JCH 


AAA 
UUU 








UooOdj 


1 5A 


ny 7CA7 
U*»y jUj 


AC 51 AA 
Ujc I UO 










AOA1 5A 

UcU 1 cU 


ACAA/A 

UjUU*»U 


Acy cm 

U J 1 U 










ACAI 57 


A5ni n7 
UcU 1 U3 


A5AAy A 








ru./.i ru. 
IJOO 1 W» 


ACAAyA 


nC7C57 


UcUUhU 








Uoo 1 1 £ 


n5<w.n 
U£UW*»U 


ru.ACi c 
U*»05 1 5 


nTOI 55 
UjU I CC 








ru^i 5n 
UOO 1 cU 


rt5<W.ft 
UcUWtU 


UcUUmU 


nAACI c 
UsOP 1 ~ 








Uoo 1 cO 


A71 1 55 


UUU 












^\AA^ 75 
uoo 1 jc 








. C Vtnl 


Is 3 lO 


UOOl 3c 


575 


(V\1 C75 

UU ' jf c 


AA1 7C5 
UU 1 JJC 


rvT7 ■ 
Vi J. 


uAon 
. k/UKU 




UOO 1 Hv 


UU 1 jjO 


UU 1 jOU 


\Jv\J\JUV 






1Z.71 7 


Uoo 1 hO 


AZ.71 5*; 


AC /I AC 

Uj*» I U5 


\JHc.Jc.\j 


trr» . 


ACT T 7 




uoo 1 


AC51 A7 
U 1 Uj 


UmC I vJ 


ACOA/ A 
UjCUHU 








uoo 1 Oc 


n/.n555 


C5ni 5n 

UCU 1 CU 










uoo 1 f\J 


A7Ay./A 
\Jj\JHH\J 


U jCUO I 


nnn 

uuu 






1 •« J 1 0 


(V.A1 7^ 
uoo 1 ' J 


1 cU 


U** J DUj 


ACpi AA 
UDC 1 UO 


unH . 






UOOcUc 


UcU 1 c *J 


ujuusu 


U^h5 I U 








UOOc 1 U 


A/ 1 «:p7 


U jUUhU 


\jc\j \ u J 








UOOc 1 O 


UcUU*»u 


UjUUhU 


U 5 J JC J 








UOOccM 


n5fwv.n 

UcUVtU 


UhChsU 


AC1 1 55 
U5 1 1 CC 








UOOcJc 


A/ pcpp 


ApAl A7 
UCU 1 Uf 


hA5AA0 








UOOchU 


U5 1 1 CC 


U*»U*»hU 


ACI 1 A/ 
U5 1 1 Uh 








UOOchO 


U5 1 UmU 


U** J5U5 


nnn 
uuu 






m J 1 ▼ 


UOOc J J 


uuu 


UU 1 


nnn 
uuu 


Ur H • 


PVTP 
• Or 1 C 




UOOc jD 


AAA 
UvU 


uuc 










UOOcOv 


UHUjcU 


UmH jCC 






ACT I 7 




UOOcDO 


A/ 5//n 

UHcHHv 


U^ 1 1 CC 


nsi 1 1 7 

U5 1 1 1 f 








UOOc f *♦ 


Ay,5Ay,A 


AC1 1 5C 
U5 1 1 CJ 


nA7i 1 1 








uoo 5Uc 


UcU 1 Uf 


UmU5Um 


A/nc5A 

UMU5CH 








uoo J 1 u 


Uh I hhU 


UmCj I U 


n^ssn^ 

UH55UJ 








rt/^71 A 
uoo J 1 o 


uuu 












uoo J 1 f 


1 C J 


Ay 1 coo 
Uh I JCC 


nA5ini 

UHC 1 U 1 


rtu5 • 
unj • 


• Mo Li 4 




UOOjch 


n5ni 55 
UcU 1 CC 


nA 5Az.n 


nC51 5'? 
U5c 1 CJ 








n/;A775 
UOOjJC 


hA 51 ni 

Uh C I U I 


n5ni 55 

UcU 1 CC 










UOOjHv 


U*«C 1 V 1 


U5 1 1 CC 


UH j5U J 








UOOjhO 


ucuu'tu 


UmCJ I J 


n5ni 1 5 

UCU 1 ' 5 








UOOjj'* 


AC1 1 AC 
U5 1 1 U5 


ApAl 55 
UCU 1 CC 


nA5C55 








UOO jOc 


uuu 1 Uf 










1 A 700 
1 JCC 


UOO jOH 


uuu 


UU 1 


nn5 
uuc 


ur J . 


• Or 1 C 




0^367 


000 










K323 












.EVEN 


U3?4 


066370 


001352 


001572 


001360 


DT5: 


.WORD 




066376 


001356 


000000 








U325 


066402 


051105 


047522 


020122 


EM6: 


.ASCIZ 




066410 


05?">4 


044522 


043516 








066416 


042040 


052101 


020101 








066424 


044103 


041505 


026513 








066432 


042522 


047514 


020103 







ASCIZ /UNEXPECTED TRAP TO 250(MGMT)/ 



ASCIZ /PCOFTP PHYSPC PSW MMRO MMR2/ 



ASCIZ /PCOFTP PHYSC PC PSW ERRREG ERR ADR REG/ 



ASCIZ /SRCADR DSTADR EADRREG MEM ERR REG/ 



.ASCIZ /ERROR DURING DATA CHECK-RELOC WAS BY CP/ 



FOr'-t POP 11/70 CPU EXERCISER MACrll 50A(1052) 12-mR-80 11:30 PAGE 47-20? 
^Kjir'F.Pn 1P-WJ-80 11:27 TRAP TO 4 SERVICE ROUTINE 







A/ AC "57 




ACy CAO 

Oj^jOc 












A/ 1 / y A 


AAA1 OA 














AC 1 1 01 


Ay ACA7 


AC1 1 Ay. 
051 1 0*» 


OHo: 


ACT I 7 






Uoc*»t>U 


AOAAy A 


AC 1 CA/ 
05 1 5U*» 


Ay AC5y. 
0«i05c*i 










UOO*»DO 


AC 1 1 Ay 
05 MU*» 


AAA 

000 






















PV/PM 
. C VCiM 








Ar>1 7C5 
UU 1 JJC 


n01 C75 
UU 1 5/ C 


OOVOOO 


U 1 D • 




tTMDO V/ArtD n 

» 1 nru , V'M/K , u 


1 / I DO 




AC1 1 OC 

U5 1 1 U5 


OZ.7C55 
U*»' jcc 


0501 55 
OcU 1 cc 


tn 1 0 . 


ACT I 7 


iPQonp rtiiDiM^ rtATA ruprv— qpi nr uac pv r/n? 






nC5CA/. 


AZ.Z.Q55 
0*»'*5tc 


OZ.7^1 A 
U*» j5 1 0 










AiLACI / 

UooD 1*» 


A/. 5A/.A 

y*»cUsu 


ACOIOI 


0501 01 
OcO 1 0 1 












A/./ 1 A7 


A/.1 QOC 
U*» 1 5U5 


05A^1 7 
Oc05 15 










AiL/LC 7A 


AZ.5<;55 


U*» ' 5 1 


050107 
OcO 1 U 5 












U*»U5c f 


0501 57 
UcU 1 CJ 


AC/CAO 
U5*«5Uc 












(\LLLL(\ 




AAA 
OUU 










UD03 J 1 


1 57 


fU.1 <;55 


0/.51 01 
0*»C 1 U 1 


r>ui 0 • 




/CQTArtB nCTADD nPl/ITP TUAT Rin VPPD/ 
/ dnLML/n UjIML'a UCViLC 1 rIM 1 viv AT ^nf 






n5ni 55 


n5fw.o 


o*;i ^o^ 

Oj I 50h 












y*»u5c*» 


0^110/. 


05rtO/.0 














05 J 1 05 


OA 1 ^ 1 1 
U«» 1 J 1 1 












AOAI AC 
UcU 1 U J 


OZ.Z.1 5Z. 


ACpi 01 

U5c 1 U 1 










UOOOUD 


U'^cUmU 


OZ.51 1 1 


U JMUHU 










UOOO 1 H 


U*»c -'UD 


0001 5? 
UUv 1 cc 










t M J J 1 


UOOOcw 


Ann 


UU 1 


007 

uuj 


np 1 n • 
ur 1 u . 




U, 1 , J,U 






non 

vUU 












1 JJC 
















1 J J J 




UU 1 JJC 


001 S7P 

Uv 1 5 ' C 


001 7^^ 

Uv 1 JJO 


U 1 1 u • 




tTMPO VyAHP tTMP5 tTMP7 0 




UOOO Jc 


001 

UU 1 JOU 


000000 








1 *♦ J j*« 


UOOO jO 


U**h5Uc 


UcH 1 CH 


UcH Jc J 


PM1 1 • 

cn 1 1 - 




/niTfC) QTIir^ TM MirRO-OPPAIf BP^rCTPB/ 




UOOO**H 


U J 1 HHU 


U JC JCH 


Oi^S07 

UH J JUJ 










UOOOJc 


U*tHH*f U 


0P01 1 1\ 


UHH J 1 J 










uoooou 


U J 1 1 \Jj 




0^1 10? 

U J 1 1 uc 










uooooo 


AXO'>0'» 
U**U JU J 


0?01 1 7 

UcU 1 1 J 


OA?*;?? 










UOOO' H 


v*»«» JU' 


0'»?1?7 

U JC 1 C J 


O'S1 10*> 

U J 1 1 U5 










UOOf Ut 


AAA 
UVv 












I J J J 


UDOr VJ 


107 

1 Uf 


0^7^1 7 

UH f J \ f 


UHc 1 UH 


DMl 1 • 
un 1 1 • 




/ROOnnAT RAfl DATA/ 
/OUUU'UMI orW V^t^f 




UDO' 1 U 


0SP101 

U5c 1 U 1 


0^10^0 
US 1 usu 


OiPIOI 

UHc 1 U 1 










UOOr 1 O 




0^7101 

\JJC 1 U 1 


000101 

UUv 1 U 1 








1 H J JO 


UDOf cH 


AAA 

UUU 


OOO 
uuu 




nF1 1 • 

VT 1 1 • 


OVTP 


0 0 

u « u 














PV/PM 
. C VCnl 




1 *♦ jjO 


uoOf CO 


001 "K^O 
UU 1 J5c 


001 7*;^ 

Uv 1 J Jt 


OOOOOO 
uuuuuu 


r>Ti 1 • 

U 1 1 1 • 


• WUrM/ 


tTMPO tTMPI 0 




UDOf 


0^1 1?S 

UH ' 1 c5 


ojoio"; 

UcU 1 U5 


0A7*;i^'> 

UH ' J 1 O 


cn 1 c • 




/IRP MOM>py I ^TANT MPMORV PRROR/ 




UDO' *»£ 


UcO J 1 o 


O'JAIOS 

U5H 1 UJ 


O'JIS1 1 

U J 1 J 1 1 










UDO' jU 


Ay.AC5A 


AC01 I^L 
U5c 1 1 O 


UHOhHU 










UDO' JO 


o^A'JO'; 

UmOJUj 


O'JI 117 
U5 III' 


0501 71 

UcU 1 J 1 










UDO ' OH 


o'Ji lO"; 

U5 1 1 U5 


u*«' JCC 


0001 

UUU 1 cc 








1 L \L(\ 


UDO' ' C 


0^^170 

Umh I c w 


0S1 S71 

U » 1 JJ 1 


0^10^0 

UH 1 UHU 


l/r1 1 c • 


ACT I 7 


/PUVC RlKAnP/ 
/ rH T 0 DUoML/ft/ 




UO' UUv 


0S1 

UJ I jCj 


0^7101 
u**c 1 u 1 


0001 

UvU 1 CC 










JO' uuo 


00? 

UUc 






L/r 1 c • 


OVTP 
• Oi 1 C 


0 

c 


K542 




067010 














067010 


001276 


000000 




DT12: 


.WORD 


SGDDAT.O 




0670K 


041115 


020124 


047516 


EMI 3: 


.ASCIZ 


//13T NON-EX I STANT MEMORY ERROR/ 




067022 


026516 


054105 


051511 










067030 


040524 


052116 


046440 










067036 


046505 


051117 


020131 










067044 


051105 


047522 


000122 










067052 


044120 


051531 


040440 


DH13: 


.ASCIZ 


/PHYS ADDRESS/ 




067060 


042104 


042522 


051523 









CeOKC-E POP 11/70 CPU EXERCISER MACYll 30A(1052) 12-WAR-80 11:30 
CEQKCE.P11 12-MAR-80 11:27 TRAP TO 4 SERVICE ROUTINE 



J 2 
PAGE 



47-203 



SEQ U228 



K359 
U360 
U361 



U362 
U363 

K364 

K565 





vJO' l.roO 


(YVi 












1 L <AA 




1 (V> 
1 UO 


047^1 4 


0SP101 


c»n 1 H • 


A^r 1 7 

• MOL i L 






\JOi\Ji'* 


fill 




047SP0 
















0S1 10S 










(V.71 in 




onni 2? 










'* jr* 1 


(V>71 1^ 






0?0'>?4 


i/n 1 H • 


AST I 7 


/ nTATI 




^^.71?? 

VV' 1 c C 




00441 1 


040S04 










fVs71 V> 




00006? 










1 L a 




















001 362 


001 332 


001 366 


DT14 • 

W t 1 H a 


UORD 


iTMP4 SRFG2 iTMP6 SRFG3 0 






001 33^ 

WSJ 1 J.JH 


000000 














00^ 


000 


004 


DF14- 

1 H • 


fiVTF 


4 0 4 0 




0^71 51 


000 














0^715? 


0^2504 


044526 


04^503 


FM1 5 ■ 


ASCI 7 


/DEVICE HUNG/ 






VHH VH V 


047125 


000107 










\JSJf 1 


00441 1 


040504 

VH V-/ VH 


040524 

VH V^C H 




ASCI7 


/ DATA1 




CiA7174 


004461 


00441 1 


02001 1 










06720? 


020040 


042040 

VHC VHV 


052101 










0^»7?10 


031 101 


000 

WW 










U3S3 




005 


000 


005 


DF16- 


BYTE 


5 0 5 0 




067216 


000 












14 354 




067220 








EVEN 




14355 


067220 


001502 


001332 


001512 


DT16- 


.WORD 


FLTMPO SREG2 FLTMPI JRFG3 0 




067226 


001334 


000000 

www 








14 356 


06/232 


030122 


043040 


044501 


EMI 7 : 


ASCIZ 


/RO FAILED TO LOAD CORRECTLY 




067240 


042514 


020104 


047524 










067246 


046040 


040517 


020104 










067254 


047503 


051122 


041505 










067262 


046124 


020131 


047117 










067270 


046440 


050106 


000124 








14357 


067276 


044503 


020123 


047111 


EM20: 


.ASCIZ 


/CIS INSTRUCTION FAILURE/ 




067304 


052123 


052522 


052103 










067312 


047511 


020116 


040506 










067320 


046111 


051125 


000105 








14358 


067326 


000000 






END TAG: 


.WORD 


0 



DATA2/ 



DATA2/ 



067330 
067336 
067344 
067352 
067360 
067364 
067372 
067400 
067401 
067406 
067414 
067422 
067425 
067432 
067440 
067446 
067450 
067456 
067464 



050117 
047511 
053523 
051440 
043516 
053523 
004411 
200 
040 
044011 
047117 
051117 
040 
046011 
047117 
100124 
020040 
047111 
020124 



051105 
040516 
052111 
052105 
100123 
052111 
052411 

030440 
046101 
042440 
200 
030440 
047517 
052040 

031461 
044510 
051105 



052101 
020114 
044103 
044524 

044103 
042523 

004465 
020124 
051122 

004464 
020120 
051505 

004411 
044502 
047522 



••**********************t************* *************************** 

•THE FOLLOWING ASCII GETS OVERLAYED WHEN THE PROGRAM RUNS. 
SWITCH: .ASCII /OPERATIONAL SWITCH SETTINGS/<CRLF> 



.ASCII /SWITCH 

.ASCII / 15 

.ASCII / 14 

.ASCII / 13 



USE/<CRLF> 



HALT ON ERROR/<CRLF> 



LOOP ON TEST/<CRLF> 



INHIBIT ERROR TYPEOUTS/<CRLF > 



CEQKiC-fc POP 
CfcQKCE.PII 



11/70 CPU EXERCISER 
12-mR-80 11:27 



MACni 30A(1052) 12-fVVR-80 11:30 
TRAP TO 4 SERVICE ROUTINE 



V.366 
K567 

K568 
K569 
K370 



K371 



K372 



14373 



K374 



U375 



06/472 

067500 

067505 

067512 

067520 

067526 

067527 

067534 

067542 

067550 

06/556 

067561 

067566 

067574 

067602 

067605 

067612 

067620 

067626 

067631 

067636 

067644 

067652 

067660 

067666 

067674 

067702 

067710 

067715 

067722 

067730 

067736 

067744 

067752 

067760 

067766 

067774 

067775 

070002 

070010 

070016 

070024 

070026 

070034 

070042 

070050 

070056 

070064 

070072 

070073 

070100 

070106 

070114 

070122 

070130 

070135 



020122 
052517 

040 
044411 
052111 

200 

040 
044411 
052111 
051105 
051516 

040 
041011 
047117 
051117 

040 
046011 
047117 
051117 

040 
040411 
051040 
052101 
044526 
020117 
042503 
042524 
043516 

040 
044411 
052111 
047505 
020106 
052040 
047101 
020123 

200 

040 
044411 
052111 
041517 
100116 
020040 
047111 
020124 
020104 
020116 
040503 

200 

040 
044411 
052111 
047504 
045523 
042522 

040 



054524 
051524 
030440 
044116 
052440 

030440 
044116 
044440 
052101 

200 
030440 
046105 
042440 

200 
020040 
047517 
042440 

200 
020040 
046114 
046105 
047511 
020101 
042504 
024040 
041440 
024505 
020040 
044116 
052040 
052125 
044124 
054105 
020104 
044523 

020040 
044116 
051040 
052101 

032440 
044510 
047522 
047522 
042522 
044524 

020040 
044116 
051040 
020115 
040440 
051523 
020040 



042520 
200 
004462 
041111 
042502 

004461 
041111 
052124 
047511 

004460 
020114 
051122 

004471 
020120 
0';i122 

004470 
053517 
041517 
020116 
02751 1 
044526 
047516 
040510 
200 
004467 
041111 
050131 
047440 
051511 
020124 
054523 
042532 

004466 
041111 
046105 
047511 

004411 
044502 
047125 
044502 
047514 
047117 

004464 
041111 
047101 
044504 
042104 
200 
004463 



.ASCII / 12 

.ASCII / 11 

.ASCII / 10 

.ASCII / 9 

.ASCII ? 8 



.ASCII / 7 



.ASCII / 



.ASCII / 



.ASCII / 



.ASCII / 3 



K 2 
PAGE 47-204 

SEO 0229 



INHIBIT UBE/<CRLF> 



INHIBIT ITTERATIONS/<CRLF> 



BELL ON ERROR/<CRLF> 



LOOP ON ERROR/<CRLi-> 



ALLOW RELOCATION VIA I/O DEVICE (NOTE CHANGE )?<CRLF> 



INHIBIT TYPEOUT OF THIS TEXT AND SYS SIZE/<CRLF> 



INHIBIT RELOCATION/<CRLF> 



INHIBIT ROUND R06JN RELOCAriON/<CRLF> 



INHIBIT RANDOM DISK ADDRESS/<CRLF> 
INHIBIT MBT/<CRLF> 



rEOKC-€ 


POP 11/70 CPU EXERCISER NACYll 


3OA{1052) 


12-mR-80 


11:30 


L 2 
PAGE 47-205 


CF0KCE.P11 12-«Aft-80 '1:27 




TRAP TO 


4 SERVICE ROUTINE 


SEQ 0230 




070142 


044411 


044116 


041 '11 












0701 50 


052111 


046440 


05210c 












070156 


200 














14376 


070157 


040 


020040 


AA/ / 

004462 




.ASCII / 


2 


THESE THREE SWITCHES/<CRLF> 


070164 


052011 


042510 














070172 


052040 


051110 


A/ OCAC 












070200 


051440 


044527 


A/ ICO/ 
Of. 1 J£H 












070206 


042510 


100123 












14377 


070212 


020040 


030440 


AA/ / 1 1 




.ASCII / 


1 


ARE ENCODED TO SELECT RELOCATION/<CRLF> 




070220 


051101 


020105 


A/ 71 AC 












070226 


047503 


042504 


AOA1 A/ 












070234 


047524 


051440 


f\J,z.^ AC 












070242 


041505 


020124 














070250 


047514 


040503 


Oh'«5c«i 












070256 


047117 


200 












14378 


070261 


040 


020040 






.ASCII / 


0 


ON THE FOLLOWING DEVICES:/<CRLF> 




070266 


047411 


020116 


A/ / I 9/ 












070274 


020105 


047506 


U*»OI I** 












070302 


053517 


047111 


A5rt1 n7 












070310 


042504 


044526 














070316 


035123 


?00 












14379 


070321 


Oil 


027060 






.ASCII ? 


0. 


..RP11/RP03?<CRLF> 




070326 


050122 


030461 


rtcinc7 

Mj Wjjf 












070334 


030120 


100063 












14380 


















14381 


070340 


030411 


027056 






.ASCII ? 


1. 


..RK11/RK05?<CRLF> 




070346 


030513 


027461 














070354 


032460 


200 












14382 


070357 


Oil 


027062 






.ASCII ? 


2. 


..NOT USED?<CRLF> 




070364 


047516 


020124 


nci C5«; 












070372 


042105 


200 












14383 


070375 


Oil 


027063 






.ASCII ? 


3. 


..NOT USED?<CRLF> 




070402 


047516 


020124 


UJ 1 JL.J 












070410 


042105 


200 












14384 


070413 


Oil 


027064 






.ASCII ? 


4. 


..RH70/RP04?<CRLF> 




070420 


044122 


030067 














070426 


030120 


100064 












14385 


070432 


032411 


027056 


AC1 ACA 




.ASCII ? 


5. 


..RH70/RS04 OR RS03?<CRLF> 




070440 


033510 


027460 














070446 


032060 


047440 














070454 


051522 


031460 












14386 


070461 


Oil 


027066 






.ASCII ? 


6. 


..NOT USED?<CRLF> 




070466 


047516 


020124 














070474 


042105 


200 












14387 


070477 


Oil 


027067 


037nCA 




.ASCIZ ? 


7. 


..NOT USED?<CRLF> 




070504 


047516 


020124 


Uj I JC.J 












070512 


042105 


000200 












14388 


070516 


052200 


042510 




nSG4: 


.ASCII <CRLF>/THE 


FOLLOWING DEVICES AND DRIVES WILL BE USED FOR RELOCATION IF B 




070524 


046117 


047514 














070532 


043516 


042040 


053105 












070540 


041511 


051505 


040440 












070546 


042116 


042040 


044522 












070554 


042526 


020123 




















020105 












070570 


051525 


042105 


043040 












070576 


051117 


051040 


046105 











CEQKC-E POP 11/70 CPU EXERCISER MACY11 30A{1052) 
CEQKCE.P11 12-mR-80 11:27 TRAP TO A 



12-WAft-80 11:30 
SERVICE ROUTINE 



M 2 

PAGE 



47-206 



SEQ 0231 



K589 
U390 



U391 



U392 



U393 

U39« 
14395 

U396 



070604 
070612 
070620 
070626 
07063? 
070640 
070646 
070651 
070656 
070664 
070672 
070700 
070706 
070714 
070722 
070730 
070736 
070740 
070746 
070754 
070762 
070770 
070776 
071004 
071012 
071020 
071023 
071030 
071036 
071044 
071052 
071060 
071066 
071074 
071102 
071110 
071116 
071124 
071130 
071136 
071144 
071152 
071160 
071163 
071170 
071175 
071202 
071210 
071216 
071224 
071227 
071234 
071242 
071250 
071256 
071264 



041517 
020116 
052111 
052105 
042504 
042011 
100123 

015 
052117 
053523 
051040 
052111 
051501 
020116 
051522 
020116 
100104 
047516 
040510 
020122 
020070 
0^7516 
047514 
047457 
041517 
100116 

124 
051120 
020115 
051117 
047457 
041517 
020116 
053440 
044124 
046114 
020107 
0^2503 
051200 
0A5522 
030120 
026066 
032057 

113 
046505 

061 
020040 
020040 
030502 
005015 

015 
052440 
052040 
0^7506 
047524 
020101 



052101 
043111 
034040 
100072 
044526 
044522 
000 
025012 
025105 
052111 
043505 
034040 
041040 
042522 
042105 
0^2522 

042524 
020124 
044502 
042523 
020127 
051527 
051040 
052101 

200 
044510 
043517 
052523 
051524 
051040 
052101 
047117 
052111 
020105 
053517 
042504 
035123 
030120 
032460 
027464 
051522 

000 
030502 
005015 
027461 
020040 
020040 
041461 

000 
041412 
042116 
051505 
047125 
041040 

000 



047511 
041040 
051440 

042503 
042526 

047052 MSG30: 

020052 

044103 

041040 

044040 

042505 

042526 

044440 

020126 

052040 
053523 
020124 
020124 
046101 
044440 
046105 
047511 

020123 
040522 
050120 
044440 
046105 
047511 
054514 
020110 
047506 
047111 
044526 

026063 
051054 
027465 
031460 

026461 MSG31 : 
000 

032067 MSG32: 
020040 
045450 
024515 

052520 MSG34: 

051105 

020124 

020104 

020105 



.ASCIZ /DEVICE DRIVES/<CRLF> 

.ASCII <15><12>/**N0TE** SWITCH REG BIT 8 HAS BEEN REVERSED IN REV D/<CRLF> 



.ASCII 'NOTE THAT SWR BIT 8 SET NOW ALLOWS I/O REL0CATI0N"<CRLF><CRLF> 



.ASCII 'THIS PROGRAM SUPPORTS I/O RELOCATION ONLY WITH THE FOLLOWING DEVICES; 



. ASC I Z <CRL F >' T?P03 , RK05 . RP04/5/6 . RS03/4' ' 

.ASCIZ 'KB11-EW"<15><12> 

.ASCIZ '11/74 (KB11CM)"<15><1?> 

.ASCIZ <15><12>"CPU UNDER TEST FOUND TO BE A 



N 2 

CEQKC-E POP 11/70 CPU EXERCISER «ACY11 30A(1052) ^2-^W^'B0 11:30 PAGE A7-207 
CEQUCE.PII 12-HAR-80 11:27 TRAP TO 4 SERVICE ROUTINE 



SEO 0232 



14397 
U398 
U399 



14400 



14401 



071 ; 

071, 

071 ; 

071. _ 
071313 
071320 
071326 
071334 
071342 
071343 
071350 
071356 
071364 



113 
027502 
041113 
005015 

103 
050117 
047040 
052517 

000 

103 
050117 
043040 
005015 
000001 



030502 
006503 
030461 
000 
051511 
044524 
052117 
042116 

051511 
044524 
052517 
000 



026461 


MSG35: 


.ASCI7 


vWv 1 C 










ASf 17 


020120 


MSG37: 


.ASCIZ 


047117 






043040 






005015 






020120 


nSG38: 


.ASCIZ 


047117 






042116 







ASCIZ /CISP OPTION rOUND/<15><12> 



.END 



CEO»CC-€ POP 
CEQKCE.P11 



11/70 CPU EXERCISER 
12-«AR-80 11:27 



B 3 

MACni 30A<1052) 12-nAR-80 11:30 PAGE A8 
CROSS REFERENCE TABLE — USER SYMBOLS 



SEO 0233 



A 


04125A 


11469* 


11575 


11576 


11632* 


AA 


001603 


5946* 


6180* 


6191* 




ADrB2 


0136S6 


7356 


7358* 






ADlBS 


0US16 


7582 


7584# 






ADCB6 


01523A 


7730 


7731 


7711M 




ADCB7 


016172 


7924 


7925 


7926 


7928* 


Aoro 


011512 


6774 


6775 


6776 


6778* 


ADCI 


012A26 


6995 


6996 


6997 


6999* 


ADC2 


013A52 


7290 


729211 






ADC 5 


0K310 


7514 


7515 


751 7# 




^DCb 


01 5030 


7677 


7678 


7680* 




ADf 7 


016032 


7886 


7S87 


7889* 




ADDN = 


076050 


5462# 


11411 






ADONl - 


076150 


5494# 


11389 






ADOP = 


076070 


54 77# 


11522 






ADOPI - 


0761 70 


5502# 








AOOO 


016674 


8087 


8088 


8089 


809 U 


A001 


017006 


8120 


8121 


8123* 




A001A 


017232 


8203 


8204 


8205 


8207* 


AD01B 


01 7250 


8212 


8213 


8215* 




A0D2 


017706 


8350 


8351 


8353* 




ADO 3 


020500 


8536 


8538# 






AD06 


021072 


8629 


8630 


8632* 




ADO 7 


021564 


8739 


8740 


8741 


8743* 


ARBEX 


043116 


11705 


11762* 






AR8FIN 


043072 


11690 


11712 


11742 


11744 


ASHCLO 


030402 


10052# 








ASHCRO 


030460 


10073* 








ASHLO 


030172 


10002# 








ASHL1 


031004 


10180Kr 








ASHN =- 


076056 


5468* 


11416 






ASHNl = 


0761 56 


5500# 


11381 


11385 


11393 


ASHP = 


076076 


5483# 


11516 


11527 




ASHPl = 


076176 


5508# 


11499 






ASHRO 


030306 


10029# 








ASHR1 


031072 


10203# 








ASLB1 


013004 


7125 


7126 


7^28M 




ASLB1A 


013230 


7212 


7213 


7215* 




ASLB3 


014506 


7576 


7577 


7579* 




ASL6A 


013762 


7394 


7395 


7396 


7398* 


ASLB6 


01 5216 


7722 


7721 


772^ 


7726* 


ASLB7 


016270 


7956 


7957 


7959* 




ASLO 


011634 


6818 


6819 


6820 


6821 


ASLI 


012602 


7058 


7059 


7060 


7062* 


ASL3 


014224 


7483 


7484 


7486* 




ASLA 


013544 


7122 


7323 


7Z2^ 


7326* 


ASL6 


015000 


7665 


7666 


7668* 




ASL7 


015660 


7833 


7834 


7836* 




ASRB1 


013100 


7161 


7163# 






ASRB1A 


013114 


7167 


7168 


7170* 




ASRB2 


013726 


7378 


7379 


71B2M 




ASRB2A 


01 3744 


7387 


7388 


7390* 




ASR85 


014446 


7557 


7558 


7560* 




ASR86 


015334 


7762 


7763 


7765* 




ASR87 


016306 


7963 


7964 


7966* 




ASRO 


01166? 


6832 


6833 


6834 


6836* 



CEQKC-£ 


POP n/70 CPU EXERCISER MACYll 


30A{1052) 


12-mR-80 11 


C 3 
:30 PAGE 48-1 












SEQ 0234 


CEQKCE.PII 12-WR-80 


1 1 .CI 




CROSS REFERENCE 




- USER SYMBOLS 












ASR1 


012470 




701 


7017 


7019* 


















ASR2 


013466 




7P^7 


7299* 




















ASR3 


0U210 


7L77 


r H f rff 


7630* 




















ASR6 


0K662 
























ASR7 


0157K 


7U.7 


7848 


7850* 








1 1459 


4 4 « O 4 

1 K81 


1 1482 


4 4 Z 7 i M 

1 1631* 






A. DSC 


041252 


1 1 %3 


11374 


11375 


11382 


11403 


11442 11448 






A1 


040026 


























A2 


040030 


























A5 


040044 




1 166? 






















A4 


040114 




1166? 






















A5 


040234 




1166? 






















A6 


040250 


\ \ ■♦HOW 


1 166? 






















A7 


040430 


1 i^Rlir 


1166? 






















A8 


040432 


1 1 48P# 


1166? 






















B 


041260 


1 1470* 


11634* 


11671 




















BICB1 


01 7440 


f077 
OC f c 


fl?73 


8275* 




















8ICB1A 


01 7462 


A?83 


8?86* 


8340 


8341 


















BICO 


016606 


AOS A 

Ow JO 


Ov-' 


8060 


8062* 


















BIC1 


01 71 30 




8167 


8169* 




















BIC2 


01 7776 


8379 


8381 


8382 


8384* 


















BIC3 


020512 


854 1 


8543* 






















BIC7 


022452 


88874' 


8889 








8453 8456 


8459* 












BI^e 


020230 


8440 


844? 


8445 


8448 


8451 












BIKB7 


022220 


8822 


8830* 








8330 8333 


8338* 












BIN1 


01 7620 


8315 


8318 


8321 


8324 


8327 












BISB1 


01 7426 


8267 


8269* 


8052* 




















BISO 


016564 


8049 


8050 




















BISOA 


016642 


8076 


8078* 






















BIS1 


017116 


8160 


8161 


8163* 




















BIS2 


017734 


8363 


8365* 


8401* 




















BIS2A 


020036 


8398 


8399 




















BIS7 


022412 


RR77M 


8879 






















BIT81 


017416 


8261 


8262 


8264* 




















BITB2 


020314 


8481 

w~w » 


8482 


8484* 




















BITB3 


020676 


8591 


8594* 






















BITB6 


021312 


8674'i' 
























BITT1 


017044 


8137 


8138 


8140* 




















BITT2 


020022 


8391 


8392 


8394* 








12586 


12624 


12663 


13roO 






BITO = 


000001 


5373* 


6399 


6400 


6407 


6626 


6634 6636 




BITOO = 


000001 


5373* 
























BIT01 = 


000002 


5373# 
























BIT02 = 


000004 


5375# 
























BIT03 = 


000010 


5373* 
























BIT(K = 


000020 


5373* 
























8IT05 = 


000040 


























8IT06 = 


000100 


5373* 
























BIT07 = 


000200 


5373* 


621? 






















BIT08 = 


000400 


























BIT09 = 


001000 


5373* 


13163 


13164 




















Bin = 


000002 


5373* 
























Bino = 


002000 


5373* 


13164 








13094 13163 














BIT11 = 


004000 


5373* 


5428 


6402 


6403 


6405 














Bin? = 


010000 


5373* 


5427 


6582 


6610 


12499 
















BIT13 = 


020000 


5373* 


12479 


13164 










12847 


12862 


12873 


12892 


12923 


BITU = 


040000 


5373* 


5426 


6126 


6394 


6395 


6397 12752 


12824 




12941 


12956 


12968 


12987 


13087 


13733 















CEQKC-6 


POP 11/70 CPU exerci:ep 


MACni 


30A<1052) 


12-WR-80 11 


0 3 
: 30 PAGE 


48-2 






SCO 0235 


CEOKCE. 




1 1 :2' 




CROSS reference 


IAdLC ~ 


- USER Srl«OLS 






Bins = 


lUOOUO 




6A08 


6409 


6411 


AZ.1 7 
OH 1 5 


6414 


6416 


6461 


6470 12150 12596 


12603 12715 


1 0755 
\CI CC 


128A2 


12849 


12936 


170A7 


13684 


13760 


13949 






8IT? = 


OOOOOA 


53r3* 


12631 


















8IT5 = 


000010 










12233 


12401 


12405 






BITA = 




C 777* 


6667 


9385 


9944 


in/. OS 

1 UH 70 


12A16 12484 12636 


12672 12757 


BITS = 




^777* 
53' 3* 


6596 


6618 


10653 


11775 


12159 


12161 


12334 


1 57Q7 

icfyj 


12828 


12867 


12897 




12961 


12992 


13801 






BIT6 = 


OOOlOO 


C 7 77« 


12A28 


13160 
















BIT7 = 




Q 777* 
53' 3* 


6528 












12293 


12370 124AA 12513 


12580 12615 


BITS = 


UWAUO 


C777* 

53' 3* 


6A30 


6534 


6571 


05yH 


6616 


12165 


1 5A^0 


12698 


12735 


}2777 


1?R?? 
' cOcc 


12833 


12860 


12890 


12921 1295A 12985 




BIT9 = 


UU 1 uuu 


55' J* 


6585 


12175 




9373* 


9374* 










BPTVFC= 


rwwM ^ 
UUUU I »• 


55' 


9296 


9299* 


9300* 






116A2 11652 11681* 




BUfF 


W* 1 f 5c 


1 1 


11628 


11630 


11632 


1 1^=>3A 


11636 


11638 


11640 




BUf FAD 


(V.1 7 VI 
W* 1 J 


1 1 1 A5 
1 1 1 OC 


11163 


11343 


11344 


11A7P 


11557 


11559 


11652* 


11671 




B.DSC 


(V.1 

IK» 1 £ JO 


1 1 7flA 


11 AOS 


11487 


11488 


1 1 


11501 


11519 


11633* 






61 




1 1 7flA* 
1 1 500» 


11663 


















B2 


Ay ni 


11/ nfi* 


11663 


















B3 




1 1 AA7ir 


11663 


















84 




1 1 Aftilit 

1 1 MOO* 


11663 


















85 




1 1 ^(VJl 


11663 


















86 






11663 


















87 




1 1 sniir 


11663 


















C 


U*» 1 cOh 


1 1 A71 • 


11636# 


11671 












12251* 12252* 13872* 


13888* 14105* 


CACHVE= 


VA/v 1 l*» 


55' J* 


6680* 


6682* 


11872 


11873* 


11874* 


11881* 


11882* 






1/1 75* 




12167 
















CALLHA= 


nonoin 


SA?Oir 

5Mc"* 


12058 
















C8IT 
















6706 








ceo 


(11 1 71 ? 
U 1 I J 1 c 




6701 


6702 


6703 




6705 


6708* 






CC1 


ni 1 7?A 


A71? 


6713 


6714 


671 6# 














CC2 


ni 1 7^? 


O' Cw 


6721 


6722 


6724* 














CC3 


ni 1 7'»A 


Or CO 


6729 


6731# 
















CCA 


ni 1 77n 


O' 


6736 


6737 


6739* 


11^36 












CHAR 


nAi 7?n 

U*» 1 Jew 


1 11RA 


11234 


11239 


11255 


11648* 










CHART 


n'*7i 5n 


1 1 iflAjr 


11661 


















CHAR2 




IIPXAir 


11661 


















CHAR3 






11661 


















CHARA 




l19^Sir 

1 ICJJlf 


11661 


















CHARS 


n77AAA 


1 1 77Aif 


11661 


















CHKDAT 


UDcOOU 


1 1071 


12105 


12198 


13871* 














LHKSP 




75 1 
















11339 11533 11566* 




CISER 




1 1 170 


11193 


11215 


11242 


117SR 

1 1 C50 


11277 


11296 


11317 




CISER1 




1 1 A'V) 


115AS 


11569* 
















CISER2 




1 1A?^ 


11A56 


11572* 
















CISER3 


n/.n7An 


1 1 777 


11575# 










6473* 








CISOP 




OH55^ 


6A57 


6458* 


6460 


OHOC^ 


6464 








CISOPT= 




c/ on* 

5Hc\J* 


6A51 


6469 








9392 


11129 


11141 




CISP 


\J\J I J J J 


SOA^ 


6A5A* 


6466 


6468* 


6477* 


6501 




CISTRP 




^7S 

OH' J 


6A78* 


















CISTST= 


006600 


5AA1# 


6463 


















CLRTBI 


0633H 


9290 


9476 


9516 


11818 


12254 


13994* 










CLRO 


01K30 


67A5 


6746 


6747 


6748 


6750* 












CMPB1 


017372 


8251 


S253# 




















020300 


8A7A 


8475 


8477* 
















CHPB3 


020710 


8597 


8600^ 


















CMPC 


0760AA 


5A60;ir 


11240 


11256 


11275 


11337 
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SEO 0236 



CMPCl = 

CPPU = 

C^I = 

CWPNLM 

CHRP = 

CMPPAK 

CMPPI = 

CMPO 

CMPOA 

CMP1 

CMPIA 

CMP2 

CMP7 

CNTRLC= 

CNTRlO= 

CNVADR 

COMBl 

CQMBIA 

CQMB2 

CGMB5 

CQnB6 

C(»B7 

CQMP 

COMO 

C0M1 

CQM3 

COM4 

CQM6 

CQH7 

COM^ 

CGNPAK 

CONTRL= 

CPCHK 

CPUERR= 

CR 

CRLF = 



CVTLN = 
CVTLN]= 
CVTLP = 
CVTLPI= 
CVTNL = 
CVTNLI= 
CVTNP = 
CVTNP]= 
CVTPL = 
CVTPLI= 
CVTPN = 

cvrpNi= 
cose 

Li 
C2 
C3 
C4 



0761 AA 
076052 
0761 S2 
026156 
076072 
040426 
076172 
016466 
016730 
017026 
017146 
017724 
021520 
000003 
000017 
0625b6 
013062 
013242 
013640 
014424 
015266 
016206 
037062 
011474 
012614 
014266 
013354 
014646 
016004 
040170 
040600 
177746 
004772 
177766 
000015 
000200 



076057 
076157 
076077 
076177 
076053 
076153 
076055 
076155 
076073 
076173 
076054 
076154 
041262 
040074 
040116 
040452 
040454 



5492* 
5464# 
5496# 
9594* 
5479# 
11480# 
5504* 
8012 
8102 
8128 
8173 
8357 
8725 
14024# 
14025# 
11935 
7152 
7219 
7347 
7549 
7743 
7931 
11173* 
6765 
7065 
7504 
7253 
7622 
7875 
11422 
11532 
5373* 
6283* 
5373* 
5373* 
5373* 
14290 
14369 
14383 
5469* 
5501* 
5484* 
5509* 
5465* 
5497* 
5467* 
5499* 
5480* 
5505* 
5466* 
5498* 
11394 
11394* 
11404* 
11491* 
11492* 



11174 
11421 
11373 



11480 
8013 
8105* 
8129 
8174 
8358 
8726 
14029 
14044 
13207 
7153 
7220 
7348 
7551* 
7744 
7932 

6766 
7066 
7506* 
7255* 
7623 
7876 
11428* 
11538* 



11428 

11538 

11431 

11441 

11541 

11444 
11404 
11664 
11664 
11664 
11664 



11188 11210 
11451 



11291 11312 



11529 
8014 

8130 
8175 
8360* 
8728* 



13284 
7155* 
72220 
7350* 

7746* 
7934* 

6767 
7068* 



7625* 
7878* 



8016* 

8132* 
8177* 



13835* 



6768 6770* 



6391 


6421* 


6422 






9386* 


10416* 


10499* 


14227 


14232* 


13439 










6108 


6109 


6148 


6484 


6652 


14291 


14293 


14294 


14296 


14361 


14370 


14371 


14372 


14373 


14374 


14384 


14385 


14386 


14387 


14388 



12007 12013 

14362 14363 

14375 14376 

14389 14390 



13336 
14364 
14377 
14391 



13439 
14365 
14378 
14393 



14135 
14366 
14379 



14280 
14367 
14381 



14289 
14368 
14382 



11491 11492 11495 11500 11520 11635* 



CEOKC-E POP 
CE0KCE.P11 
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C5 
C6 

n 

D 

061^7 

0eiN7 

OOATA 

OOATAB 

OECBl 

DEC81A 

0ECB2 

0ECB5 

0ECB6A 

DECB7 

OECDAT 

DECO 

DECl 

DEC1A 

DEC2 

DECS 

DEC6 

0EC7 

DEVICE 

OEVIND 

DFl 

DF10 

OF 11 

OF 12 

OF 14 

DF16 

0F4 

OF 5 

DHl 

OHIO 

DH11 

DHl 2 

DHl 3 

DHl 4 

DH16 

DH2 

DH3 

DH4 

0H5 

DH6 

D1SPLA= 



01 VP 

DIVPI 

DIVO 

OIVl 

DOCJS 



040506 
040542 
040474 
041300 
022214 
021420 
020734 

021376 

013032 

013162 

01 3774 

014564 

015366 

016254 

037700 

011554 

012406 

012656 

013522 

014242 

015014 

015676 

001646 

001650 

065723 

066620 

066724 

067006 

067146 

067213 

066253 

066364 

065664 

066551 

066703 

066772 

067052 

067114 

067166 

065770 

066063 

066175 

066317 

066452 

177570 



076075 
076175 
030720 
031 1 74 
036714 



11505* 
11520* 
11500* 
11642* 
8827* 
8700* 
8604* 
8649 
8670* 
7138 
7190 
7401 
7605 
7774 
7950 
11338 
6791 
6988 
7086 
7313 
7490 
7671 
7840 
5946* 
5946* 
5951 
5986 
5991 
5996 
6006 
6016 
5966 
5971 
5949 
5984 
5989 
5994 
5999 
6004 
6014 
5954 
5959 
5964 
5969 
5974 
5373* 
7688* 
8759* 
9617* 
10401* 
11803* 
5482* 
5507* 
10151* 
10233* 
11142 



8860* 
8719* 
8610* 


8864* 

8724 

8614 


8865* 
8730* 
8618 


8866 

8738* 

8619 


8870* 
8745* 
8622* 


8877 

8749* 

8623 


8878* 

8753 

8628* 


8885* 
8635* 


8887 
8642* 


8888* 

8643 8646* 


8676* 
7141* 
7193* 
7404* 


8679 


8683* 


8684 


8688 


8693* 










7776 
7953* 


7778* 


















6793 


6794 


6796* 
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11664 
11664 
11664 
11671 
8859« 
8715* 
8608* 
8653 
8671* 
7139 
7191 
7402 
7607* 
7775 
7951 
11343* 
6792 
6990* 
7088* 
7314 
7491 
7672 
7841 

11967* 
5956 
14331* 
6021 
6001 
14350* 
14353* 
5976 
14322* 
14305* 
14330* 
6019 
14340* 
14345* 
14347* 
14352* 
14310* 
14314* 
14318* 
14321* 
6025 
6055* 
7800* 
8787* 
9773* 
10417* 
13164* 



SEO 0237 



7316* 
7492 
7674* 
7843* 

11968* 
5961 

6027 
14341* 



14319* 



14335* 



7494* 



11969* 
14306* 

14336* 



11973 11975* 11976* 11977 



14326* 
6686* 
7902* 
8821* 
9858* 

10427* 



6696* 
7987* 
8945* 
9906* 
10504* 



6740* 
8106* 
9032* 
9945* 
10540* 



6852* 
8222* 
9133* 
10000* 
10596* 



6970* 
8339» 
9195* 
10101* 
10652* 



7089* 
8423* 
9247» 
10150* 
10721* 



7236* 
8490* 
9285* 
10232* 
10883* 



7334. 
8549* 
9387* 
10251* 
11126* 



7451* 
8601* 
9471* 
10292* 
11145* 



7531* 
8658* 
9517* 
10342* 
11685* 



7608* 
8698* 
9579* 
10360* 
11762* 



11512 

10246 
11144* 
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OQMFPT 


036530 


11114 


1 1 1 1 


















DONE 


040642 


11547 




















OWE? 


036702 


11137 


1 1 1 1 w 


















DST.1A 


041244 


11169 


11308 


11559* 11560* 11567 


11628* 11670 














DST.1D 


041242 


11176 


11185 


11190 11208 11212 


11223 11233 


11238 


11264 


11267 


11268 


11273 


11283 




11287 




11293 11309 11314 


11331 11335 


11558* 


11627* 










DST1 


037072 


11176* 




















Dsno 


057414 


11264* 


11658 


















DST11 


037422 


11267* 


11659 


















0ST12 


037424 


11268* 


11659 


















DST13 


037436 


11273* 


11659 


















D5T14 


037464 


11283* 


11659 


















DST15 


C 374 74 


11287* 


11659 


















DST16 


037476 


11288* 


11659 


















DST17 


037510 


11293* 


11659 


















Dsns 


037600 


11314* 


11659 


















DST19 


037652 


11331* 


11659 


















DST2 


037116 


11185* 


11658 


















DST20 


037662 


11335* 


11659 

1 1 7 


















DST3 


037130 


11190* 


11658 


















DSTA 


037210 


11208* 


11658 


















0ST5 


037220 


11212* 


11658 


















DST6 


037252 


11223* 


11658 


















DST7 


037304 


11233* 


11658 


















DST8 


037316 


11238* 


1 1658 


















DST9 


037366 


1 1 254* 


11658 


















DTI 


065730 


5950 


14308* 


















DTIO 


066624 


5985 


14333* 


















DT11 


066726 


5990 


6020 


6026 14338* 
















DT12 


067010 


5995 


6000 


14343* 
















DTK 


067134 


6005 


14349* 


















DT16 


067220 


6015 


14355* 


















DT2 


066016 


5955 


14312* 


















DT3 


066132 


5960 


5965 


14316* 
















DT5 


066370 


5970 


14324* 


















DT6 


066472 


5975 


14328* 




















042676 


11698* 




















D.DSC 


041276 


11365 


11383 


11390 11395 11398 


11410 11413 


11461 


11489 


11506 


11509 


11515 


11521 






11524 


11641* 


















D1 


040046 


11383* 


11665 


















DIO 


040552 


11524ir 


11665 


















02 


040064 


11390* 


11665 


















D3 


040076 


1 1 395* 


11665 


















DA 


040106 


11399* 


11665 


















D5 


040 132 


11410* 


11665 


















D6 


040140 


11413* 


11665 


















D7 


040532 


11515* 


11665 


















D8 


040516 


11509* 


11665 


















D9 


040544 


11521* 


11665 


















E 


041270 


11572 


11638* 


11671 
















ECHO 


063534 


14065* 


14083 


















EISOPTr 


040000 


5418* 




















E«fVEC= 


000030 


5373* 


6076* 


6271* 9202» 9204* 


9242» 9243* 














EUTI 


024050 


9201 


9209* 


















EMT18 


024130 


9209 


9213 


9214 9217 9219 


9223 9224 


9227 


9228 


9229 


9234* 






FMTU 


024134 


9207 


9236* 
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EMTIO 

E«1 

EMIO 

EM11 

Em 2 

EMI 5 

FMK 

EM15 

EM17 

EM2 

EM20 

£M3 

EM^. 

EMS 

EM6 

END 

ENDCIS 

ENDCP 

ENDK8 

ENOM 

EM)MEM 

END TAG 

END1 

ENTER2 

ERPRT 

ERRBA 

ERRRTN 
ERRVEC= 



ERRA 

EXIT 

EXITFL 

EXITRE 

EXPEXT 

EXTINS 

E.DSC 

El 

E10 

Ell 

E12 

E13 

EK 

E15 

E16 

E17 

E18 

E2 

E3 

EA 

E5 

E6 

E7 

E8 



024 146 
06S637 
066500 
066636 
066734 
067014 
067067 
067152 
067232 
065742 
067276 
066026 
066146 
066260 
066402 
046244 
042610 
032312 
005660 
0<,6204 
046202 
067326 
046244 
044316 
064422 
002002 

001412 
000004 



037516 
046062 
001634 
044230 
061020 
026344 
041266 

040056 
040446 
040464 
040466 
040530 
040520 
040564 
040602 
040610 
040200 
040066 
040110 
040152 
040172 
040236 
040242 
040252 



9237 
5948 
5983 
5988 
5993 
5998 
6003 
6008 
6018 
5953 
6024 
5958 
5963 
5968 
5973 
12249* 
11115 
10362 
6437 
11808 
11871 
6206 
^2250^t 
11926 
6366 
5946* 
13798 
5946* 
5373* 
8901* 
10455* 
11296* 
12109 

5946* 
11899 
11050 
9619* 
11387 
11510 
11387* 
11489* 
11496* 
11497* 
11514* 
11510* 
11530* 
11539* 
11542* 
11432* 
11391* 
11400* 
11419* 
11429* 
11443* 
11445* 
11449* 



9238 
14304* 
14329* 
14334* 
14339* 
14344* 

6013 
14351* 
14356* 
14309* 
14357* 
14313* 
14317* 
14320* 
14325* 

11684* 
10426* 
6443* 
12232* 
11874 
14358* 

11959* 
6665 
13032* 
13799 

6124* 
8902* 



11901 
11061 

11391 
11514 
11666 
11666 
11667 
11667 
11667 
11667 
11667 
11667 
11667 
11667 
11666 
11666 
11666 
11666 
11666 
11666 
11666 
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9241* 



SEO 0259 



14346* 



12231* 



12008 
8943 
13053* 


12147 
9382 
13034* 


10413 
13396* 


10495 
1 3399* 


11880 
15400* 


12250 
15401* 


14222* 
13413* 


15414* 


15415* 


15416* 


15417* 


6125* 
8903 
10495* 


6283* 
8943* 
10496* 


6284* 
9294* 
10497* 


6366* 
9295* 
10498* 


6522* 
9558* 
11870* 


6547* 
9582* 
11871* 


6550* 
9385* 
11880* 


6556* 
9584* 
12250* 


6576* 
9585* 
15165* 


6604* 
10404* 
15760* 


6665 
10415* 


12205* 






















11932 
11106 


11938* 
13695 


12207 
13717* 


















11400 
11530 


11419 
11539 


11429 
11542 


11452 
11657* 


11445 


11445 


11449 


11455 


11495 


11505 


11507 
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SEQ 0240 



F9 


0A0260 


11453j» 


11666 
























F 


OA 1274 


11573 


11640* 


11671 






















FAC TOR 


001604 


59464r 


6687* 


6697* 


7690 


7801* 


7904 


8342 


8343 


8606 


8662 


8771 


S772 


8776 




8777 


8788* 


8848 


8902 


9023 


9033 


9041 


9057 


9082 


9119 


9286* 


9395 


9401 






9412 


9618* 


9718 


10001* 


10303 


10322 


10428* 


10723* 


11127* 


11153 


11157 


11159 


11348 






11364 


11366 


11460 


11462 


11686* 


11909 


11917* 


13854 












fLD20 = 


104426 


13323 


13763* 
























FLTADD 


056342 


10733 


10773 


10776 


10806 


10891 


10931 


10934 


10964 


11072* 










fltobl 


060660 


10885 


13673* 
























riTDlV 


036314 


10866 


11024 


11058* 






















FLTMPY 


036272 


10736 


10746 


10755 


10765 


10768 


10818 


10826 


10834 


10867 


10894 


10904 


10913 


10923 






10926 
5946* 


10976 


10984 


10992 


11025 


11047* 
















FLTMPO 


001502 


10895* 


10947 


10977* 


11008 


11026* 


14355 














FLTMPl 


001512 


59464r 


10935* 


10998* 


11029* 


14355 


















FLTSa 


060666 


10727 


13674* 
























FLTSUB 


036336 


10791 


10814 


10839 


10852 


10874 


10949 


10972 


10997 


11010 


11032 


11071* 






H20 = 


104424 


13313 


13632 


13762* 






















FNOLOC 


037546 


11303 


11306* 
























FNOSCN 


037174 


11201 


11204* 
























FNOSKP 


037636 


11324 


11327* 
























FNOSPN 


037270 


11226 


11229* 
























FPOPT = 


020000 


5419* 


6292 


10724 






















FRSTAO 


001610 


5946* 


6687* 


6697* 


7801* 


8421 


8788* 


9286* 


9618* 


10001* 


10428* 


10723* 


11127* 


11902 


FRSTME 


001612 


5946* 


6206* 


11912 






















F.DSC 


041272 


11392 


11399 


11405 


11409 


11414 


11420 


11446 


11454 


11497 


11513 


11525 


11531 


11639* 


Fl 


040070 


11392* 


11668 
























F10 


040462 


11495* 


11668 
























F11 


040512 


11507* 


11669 
























F12 


040526 


11513* 


11669 
























F13 


040554 


11525* 


11669 
























FU 


040566 


11531* 


11669 
























F2 


040104 


11398* 


11668 
























F3 


040120 


11405* 


11668 
























F4 


040130 


11409* 


11668 
























F5 


040142 


11414* 


11668 
























F6 


040154 


11420* 


11668 
























F7 


040244 


11446* 


11668 
























F8 


040262 


11454* 


11668 
























F9 


040456 


11493* 


11668 
























GETMAP 


063022 


12338 


12420 


12641 


12762 


13016 


13784 


13924* 














GIVEMA 


063274 


12639 


12675 


12760 


12796 


13010 


13045 


13985* 














GNS = 


****** y 


5512 


61 08 


6109 


6148 


6157 


6158 


6160 


6220 


6221 


6222 


6225 


6227 


6484 






6506 


6508 


6510 


6587 


6589 


6652 


12007 


12013 


12286 


13336 


13761 


13762 


1V63 






14135 


























GSTST 


012170 


6934* 


























HALTl 


032166 


10402* 


























H1ADRS= 


1 777^,2 


5373* 


13894 


14112 






















HIMASK 


041226 


11469 


11470 


11471 


11616* 




















HITMIS= 


1 77752 


5373* 


























HT 


000011 


5373* 


13439 
























INCBl 


012746 


7107 


7108 


7110* 






















INCB2 


014070 


7436 


7437 


7438 


7441* 




















INCB3 


014456 


7563 


7565* 
























INC86 


015200 


7717 


7719* 
























INCB6A 


015350 


7768 


7769 


7771* 






















INC87 


016240 


7944 


7945 


7947* 























CEQKC-E POP n/70 CPU EXERCISER MACrll 30A(1052) 



CEQICCE.P11 12-«Afi-80 


11 :27 




CROSS REFERENCE 


INCO 


011574 


6800 


6801 


6802 


6803 


INCl 


012522 


7030 


7031 


7032 


7034* 


INC5 


0K276 


7509 


75 






INCA 


01 5404 


7266 


7267 


7269* 




INC6 


014756 


7656 


7657 


7658 


7660* 


IMC7 


016044 


7892 


7894* 


6153* 




INST8L 


003360 


6131 


6138 




lOMON 


044236 


11883 


11948* 


12148 




lOTTST 


023546 


9134# 








IOTV£C= 


000020 


S17ZM 


6271 • 


B4 

9134 


9147* 


I owe 


001644 


5946* 


11925* 


1 1958* 


12042 


JMP1 


02*:!746 


8954 


8955 


8956 


one Om 

8958* 




025016 


8974 


8978* 






J MP A 


025054 


8990 


8994* 






JMP5 


023120 


9008 


9012* 






JMP6 


025140 


9020# 








Jf*P7 


0231 76 


903U 








J SRI 


023216 


9033* 








JSR3 


023302 


9043 


9057* 






JSRA 


023370 


9069 


9082* 






JSH6 


025446 


9091 


9105* 






JSR7 


023500 


9109 


9119* 






KBl 1 Cn 


00 1 334 


5946# 


6382* 


^y 77* 
6433* 


l^t OA 

64 yo 


KBilE 


001552 


5946* 


6078 


Z. AOO 

6089 


6096 






10347 


11113 






KB McW 


001 553 


5946* 








KDrAHO= 


1 7^360 


5373* 


10586 






KDPAR 1 = 


1 fiitiC 


5373* 








KDPAR^= 


1 72364 


5373* 








KDPAR 5= 


1 72500 


5373* 








KDPAR*»= 


1 72370 


5373* 








<DPAK5= 


1 (cbTc 


5373* 








KDPAR 6= 


1 fCifk 


5373* 








KDPAR7= 


1 72376 


5373* 








KDPDRO= 


1 fcicyj 


5373* 


10578 






KDPDR 1= 


1 /'2322 


5373* 








KDPOR?= 


1 72324 


5373* 








KDPDR3= 


1 725db 


5373* 








KDPDRA= 


1 72i5Q 


5373* 








KDPDR 5= 


1 72332 


5373* 








KDPDRo= 


1 72334 


5373* 








KDPDR r= 


1 fCJJO 


5373* 








KtR5TK= 


001200 


5373* 


6166 


6244 


y572 


w f n A 

KIPARO= 


1 72340 


5373* 


10583 


1 1831 * 


1 2209* 


KIPAR 1= 


1 fdy^c 


5373* 


11832* 


1 T^i Aa 

12210* 




1^ r n A B^. 

KIPAH<?= 




5373* 


11833* 


12211* 




w r B A B T«> 

KIPAR 5= 


1 7ily ^ 
1 rc5*tO 


5373* 


11834* 


12212* 




K IPARh= 


1 72350 


5373* 


10599* 


11835* 


i i o vz 

11 836 






13885* 








K1PAR5= 


172352 


5373* 


11836* 


11837* 


12103 


K1PAR6= 


172354 


5373* 


14114 


14117* 


14129* 


KlPAfi7= 


172356 


5373* 


11838* 


11852 


11866 


KIP0R0= 


172300 


5373* 


6408* 


6409 


6411* 


KIP0R1= 


172302 


5373* 


11823* 






K1P0R2= 


172304 


5373* 


11824* 






KIPDR3= 


172306 


5373* 


11825* 







J 3 

12-MAR-80 11:30 PAGE 48-8 
TABLE — USER Syi>«0LS 



6805* 



SEQ 0241 



9197* 9198* 9244* 9245* 10379* 10399* 



6383* 6388* 6427 6430* 6434 



6488 



6496 



9388 9484 



12220 
12217 



12255 
13760 



13844 14153 14182 



12103* 12189 12191* 12193 12203* 12209 12210 12211 12212 
12189 12193 



13760 
10575 



11822* 

















K 3 






ffOtcC-E 


POP n/70 


CPU EXERCISER MACrll 


50A(1052) 


12-f1Afi 


-Rn 1 1 

OU 1 ' 


■ PAGF 4R-Q 




SEQ 0242 


CE0KCE.P11 12-WAR-80 11:27 




CROSS REFERENCE 








< IP0R4= 


1 72510 


5573# 


10600* 


1 1 Q J A ft 
1 ! OCO* 












If IP0R5= 


1 7251 2 


5575# 


11827* 














K I P0R6= 


1 725K 


5573* 


11828* 


1 y 1 1 o A 
14118* 












t(IP0P7- 


172516 


5573* 


11829* 














W1 = 


A ^ 

000000 


5430* 




i y i A7 M 

14193* 












KTABRT 


06425A 


6683 


10398 












If TABT 


053222 


10597* 
















•CTFX 


053A62 


10598 


10652* 














KTOPT = 


100000 


















KTPAR 


0330*»2 


i AC / i M 
















KTPOR 


052716 


i AC A^ 






13448 










LDKT 


06^10A 


1 TAAC 

1 5005 


13084 


1 11 y 7 






LDRP5 


OA 7256 


1 OTC 1 

12352 


12358* 


1 Oiil A 

1^610 






1 pggX 1 2898 






LDRPA 


050200 


12491 


12498* 


12829 


1 oocc 








LDRS 


f\C f\C f\J 

05050*> 


1 ocy ^ 

12546 


12555* 


1 OOOfi 


12949 


1 C70c 


1 3978 1 2993 






LD2PNT 


001702 


cn/ M 

5946* 


6456 


6439 












LD2PT1 


(X) 1 '^OA 


coy ^« 
















LD5PNT 


00 1 /^06 


CQy 
















LF = 


00001^ 


53/^ 3* 


13439 




1 1 

1 1 f 03 










LKOPT = 


001000 


cy 

5422* 


6296 


1 1 71 1 


1 1 7ft7* 


13160* 






Lies = 


177546 


53oo* 


6294 


1 1 77Q* 

11/^ cV* 


11730 






LKSRV 


054362 


11751 


11765 


1 T1 y ^ M 
13146* 


1 1 7C1 A 

11731* 


1 1 765* 


1 1 766* 






LKVEC - 


000100 


5387# 


11715* 


1 1 71 A. 

1 1 716* 






LOADRS= 


1 rffH\j 




13893 


1 y 1 1 A 












LOCATc 


03^3c4 


1 1 50C 

1 1 ctD 


11299* 














LOCC = 


07o04U 


>4DO* 


11304* 














LOCCHR 


03^534 


1 1 Tn3^ 
1130«* 














LOCCl = 


A*7iL1 / A 

U/^O i4U 


5*»oO* 


11300 




MO 1 0* 










LOnASK 


A/ i OTA 

C4 1 «:30 


1 14r3 


11475 


1 M.77 




11546 11569 1164S* 


11650 11672 




LONG. 1 


Ay i TAZ. 

041 306 


11/ TA 

1 1430 


11434 


1 1 Z.7A. 

1 1430 


1 1 CArt 
1 I3*»U 






LONG. 2 


A/ 1 T1 O 

041312 


11/ TT 

1 1433 


11434 


11/. 
1 l<»30 


1 1 C/,t 


11S44 


11546 11570 11646/r 


11651 11672 




L0NG1 


Ay Ai 7y 
0401 74 


11/ TA^ 

1 1430* 


11672 














LONGIP 


Ay 1 TO/ 

041324 


11^ CAJi 

11650* 
















L0NG2 


Ay A^Ay 

040604 


1 1 cy A^ 
1 1340* 


11672 














L0NC2P 


Ay 1 Tox. 
041326 


1 1 X.C1 M 

1 1631* 
















LUNG3 


Ay A^l o 

04061c 


lie/ Xm 
1 1 343* 


11672 














L0NG4 


Ay AOAO 


11/ TXm 

1 1433* 


11672 














LOOP 


A1 /%AAA 


003/ 


6661* 


1 

1 ccc'* 


Ice/** 


ICcOO 








L JOrl 


AA7/ / A 

007441) 


0030 


6644 


OOmO 


DCto 


MS7* 








1 C TliCli 


nAi ill / 
W1614 


CO/ » 


6204* 




1 101 A 




13151* 13153* 13154 


13156* 13449 




L 1 ICKS 


AA< 7AA 

001 700 


CQ/ M 


12067 


1 oniu. 

I cUO*» 


1 XI Afi* 


1X14Q 




L2lX; = 


07oO£0 


C/ TfiA 

34 3o* 


6455 














L2D1 = 


07oO£l 


34*»0* 
















L2P2 = 


A7xnoo 
07oO£<: 


cy y 7« 
















L2D3 = 




34«»0* 
















L2D«t = 


A7AAOy 
0760c4 


C/ / Q« 
















1 OISC — 

L<:DD = 




cy CAM 
3430* 
















L2Do = 


07oUc6 


C/ CI ^ 

343 1* 
















L2D7 = 


076027 


5452/r 


11246 


11418 












L300 = 


076060 


5470# 
















L301 = 


076061 


5439* 


6458 














L302 = 


076062 


54 7U 
















L303 = 


076063 


5472* 
















l3W = 


076064 


5473* 
















L305 = 


076065 


5474* 
















L306 = 


076066 


5475* 

















CEQKC-E POP 11/70 CPU EXERCISER KACYll 



CEQKCE.P11 12-«AR-80 


11 :27 




L507 = 076067 


5476* 


11183 






11518 


11523 


nAINT = 


77750 


5573* 


6389* 


^lAPEND ( 


)62552 


13805 


13815* 


IIAPHO = 


70202 


5373# 


10710* 


flAPHOOs 


70202 


5373* 


6393 


nAPHOi= ' 


70206 


5373# 




I1APH02= ■ 


70212 


5373* 






70216 


5373* 




nAPH04= ' 


70222 


5373* 




MAJ>H05= ■ 


70226 


5373* 




^1APH06= ' 


70232 


5373* 




nAPH07= 1 


70236 


5373* 




nAPHi = 1 


70206 


5373* 




(WH10= " 


70242 


5373* 




nAPHii= 1 


70246 


5373* 




MAPH12= 1 


70252 


5373* 




NAPH13= 1 


70256 


5373* 




«APHU= 1 


70262 


5373* 




«APH15= 1 


70266 


5373* 




nAPHl6= 1 


70272 


5373* 




NAPH17= 1 


70276 


5373* 




MAPH2 = 1 


70212 


5373* 


10706* 


MAPH20= 1 


70302 


5373* 




MAPH21= 1 


70306 


5373* 




NAPH22= 1 


70312 


5373* 




MAPH23= 1 


70316 


5373* 




(iAPH2A= 1 


70320 


5373* 




^WPH25= 1 


70326 


5373* 




MAPH26= 1 


70332 


5373* 




MAPH27= 1 


70336 


5373* 




riAPH3 = 1 


70216 


5373* 




MAPH30= 1 


70342 


5373* 




«APH31= 1 


70346 


5373* 




«APH32= 1 


70352 


5373* 




NAPH33= 1 


70356 


5373* 




I1APH3A= 1 


70362 


5373* 




MAPH35= 1 


70366 


5373* 




MAPH36= 1 


70372 


5373* 




MAPH37= 1 


70376 


5373* 




IIAPm = 1 


70222 


5373* 




MAPH5 = 1 


70226 


5373* 




MAPH6 = 1 


70212 


5373* 




MAPH7 = 1 


70236 


5373* 




MAPLO = 1 


70200 


5373* 


10655 


«APLOO= 1 


70200 


5373* 




MAPL01= 1 


70204 


5373* 




«APL02= 1 


70210 


5373* 




«APL03= 1 


70214 


5373* 




MAPLO«= 1 


70220 


5373* 




MAPL05= 1 


70224 


5373* 




MAPL06= 1 


70230 


5373* 




MAPL07= 1 


70234 


5373* 




MAPLI = 1 


70204 


5373* 


10707* 


MAPL10= 1 


70240 


5373* 




MAPL11= 1 


70244 


5373* 





L 3 

30A(1052) 12-MAR-80 11:30 PAGE 48-10 
CROSS REFERENCE TABLE — USER SYMBOLS 



11221 11231 11236 11252 
6392 12264* 12276* 



11266 11271 11333 11402 11407 11412 



SEQ 0243 
11508 



10696 10709* 13809 13960 









n 3 




CEQKC-E POP 11/70 


CPU EXERCISER MACrll 


30A(1052) 1?-fW<-80 11:30 PAGE 48-11 




CEQKCE.PII 12-*WP-80 11:27 




CROSS REFERENCE TABLE — USER SYMBOLS 


ScO 0244 












n^rX. 15-1 ^Uc5*» 












KX7XM 


















MADI IAjb ^7f\J7f\ 


JJf J» 








MADI 1 7— 1 7rt07/ 










MADI 7 — 1 7n7m 




10705* 






MADI 'if\- 1 7/^7/^ 










MADt 51- 1 7rt 










MADI 00- 1 7nTm 










MADi ^t- 17n71A 










MADI 5Z.- 1 7n^?n 










MADi 5^- 1 7nT?/, 


jjf 








MADI 1 7nx7n 










MADt 57- 1 7nXT^ 




















MADI Xf\- 1 7f\XI.(\ 


KX7XM 








MADI 71 - 1 7nT^A 


^\7XM 








MAPI 75- 1 707^0 


^77Xir 

Jjf jH 








MAPI 77- 1 7n7<>^ 










MAPI 7A- 17n7An 










MAM 7^- 17n7/\^ 










MAP* TA- 1 7077n 










MAPI 77- 17n77<t 


Jjf 








MAPI <^ - 170??n 


Jjf jff 








MAPt S - 170??^ 










MAPt A : 1 7n?7n 


Jjf jtf 








MAPI 7 - 17077^ 


Jjf jff 








MAPTRI 001 7A^ 




6257* 


^OCQ.. 170CC ITOCQ* 11007* 

6cJO* f5yjj 15yjo* 1 3Vo^* 




MAPTCT n'^'^sin 


1 \JVJJ^ 








MAPTun 077A7n 




10698 


1 f\7f\Xit 

10/03* 






OR 7^ 


9878 


9882* 




MAD^I n?77S/\ 


OA 70 


9872* 






MATT - n7An^'» 


j*tO l» 


11249 






MATrU 07777^ 


1 1 5A1 


11245* 






MATfT - 07A1A*; 


JHTJff 










1 \JjHjff 








MBTAC - lATtHA 
^1 1 Mi — 1 OV 1 1 0 


f^LCVfM 

jH\Jf H 








MITRA - 1 fX\^ (\L 
r^DIOn — 1 Ov 1 V/M 


jHyjcff 


5946 






Ml TRAP- ^fX\^7L 


JH 1 1 ff 


5946 






r^DILil— lOvlW 




5946 






i^SIUdc— lOvl Iv 


jHvHff 


5946 








jH 1 CfV 


5946 






1^911^ — IQVICv 










rD 1 1/ 1 — l^/ICO 


J"f 1 WW 


5946 






lu 1 cn — 1 uv 1 i 




5946 








1 700'! 


13112* 






rOir^l— lOvlcH 


jHKjyff 








mim2= 160106 


5403# 


5946 






mTN2 002406 


5946# 


6341 






PBTN3 002410 


5946# 


6345 






PeTM4 002412 


5946# 


6349 






«TapT= 002000 


542U 


6339 


6365 11782 




«TPSW= 000776 


5414# 


5946 






MBTSET 043226 


^^772 


11774 


1 1 782* 




FBTSRV 054050 


11793 


i7nfl7j» 

1 J\JOJ^ 







CEQKC-E 


POP 11/70 


CPU EXERCISER MACYll 




CEQKCE.P11 ^2•^W^'80 V :27 




CROSS 




1 uv 1 1 c 




5946 




MRTTRl 






6337 








1 ^001 • 


13123 


1315/^* 


WDTUCr - 






5946 




MtTUT = 




JH\J \l> 


5946 




f U 1 1 




1 1 7<iC\M 


















07<'»^1 




6462 






■\TnLL 

1 r r r "T^f 


S37'^ 


13760* 


1 joVt: 






1^10? 
1 J \ \Jc 


13104 


13111* 








6202 


OcUA* 


MFPT s 


000007 




6385 


111 7C 

1 1 133 


MFPTTR 


005652 


6384 


6440* 






053720 




13043 


13053* 


IfDN 


001601 




6246* 








12118 


12145 


1 11 AO 




177572 




14196 






1 775 7A 


5373* 






|ifV)? = 


177576 


5373# 


14197 




im3 = 


172516 


5373* 


10653 


1 1 77C 

1 1 




000250 


5373* 


6683* 




novBi 


017346 


8236 


8237 


QITfi 

o^3o 


MOVC = 


076030 


5453* 


11187 


1 1 lie 
1 lc35 


novel = 


076130 


5485* 


11206 


1 1 no 


*t)VE 


037106 


11178 


11182* 




novER 


037404 


11257 


11261* 




novRc = 


076031 


5454* 


11270 




MOVRCI= 


076131 


5486* 


11262 




novT 


037454 


11276 


11280* 




MDVTC = 


076032 


5455* 








076132 


5487* 


11281 


1 1 1QiL 


novo 


016416 


7990 


7991 




novOA 


016446 


8005 


8007* 




novi 


017216 


8198 


8200* 




M0V7 


021470 


8716 


8718* 






031 754 


10361* 








064532 


12275 


12276 


1/ ICIM 


MRK1 jl 


027320 


9859* 




MSG I NX 


064572 


12003 


13304 


1333^ 


MSG1 


064616 


14780* 






MSG 10 


064745 


14274 


14287* 




MSG1 1 


064753 


14275 


14288* 




MSG 12 


064761 


13340 


14289* 




MSG 13 


065074 


13347 


14290* 




MSG1A 


065204 


13431 


14291* 




MSG 15 


065242 


14278 


14292* 




MSG 16 


065263 


13365 


14293* 




MSG17 


065372 


13371 


14294* 




MSG? 


064630 


14281* 






MSG20 


065446 


12281 


14295* 




MSG21 


065546 


14272 


14273 


1 / 


MSG22 


065566 


13387 


14297* 




MSG23 


065576 


13392 


14298* 




MSG2A 


065605 


14279 


14299* 




MSG25 


065627 


6639 


14300* 




MSG3 


064642 


13197 


14282* 





N 3 

2) 12-MAR-80 11:30 PAGE 48-12 
REFERENCE TABLE — USER SYMBOLS 



SEQ 0245 



6361* 
14268 



6362* 6363 11790* 11791* 11792* 11793* 11794* 11795* 13086 



13898* 14109 14123* 14124 14130 14131* 



10369 
12205 



12233* 
10365* 
8239 
11311 



10511 10546 
12242* 13837 



10597 11788 11869* 11900 
13881 14115 14148 14174 



12014 12059 12091 



12334 
10398* 
8242* 



12416 
10605 



12636 12672 12757 12793 13801 
10606 10609* 10610* 10646* 10647* 



14270* 



14277 14296* 
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CROSS 


HSG30 


070651 


6656 


15508 


14390* 


MSG51 


071163 


6500 


14594* 




«SG3? 


071 1 75 


6494 


14595* 






071227 


6487 


14596* 




HSG55 


071267 


6492 


14597* 




MSG 36 


071302 


6498 


14598* 




^ V "9 


071313 


6505 


14599* 




MSC38 


071343 


6505 


14400* 






070516 


13509 


14588* 




MSGS 


064731 


14270 


14285* 




MSG6 


064737 


14271 


14286* 






041176 


11347 


11604* 




MT ICKS 


001676 


5946* 


6254* 


13157* 


MULP = 


076074 


5481* 






MULPI = 


0761 7h 


5506* 


11486 


11490 


MULO 


050562 


10102* 








001656 


5946* 


6241* 


15038 




001660 


5946* 


6242* 


13041 


NcGBI 


01 3016 


7131 


7152 


7134* 


N^GB4 


014020 


7413 


7414 


7416* 


NEGBd 


Ai C tf\J 

01 5304 


7750 


7751 


7753* 


NtCio7 


AI I TIO 


7969 


7970 


7972* 


NcuQ 


011614 


6810 


6811 


6812 


NEu1 


Ai ^ 

01c646 


7080 


7081 


7083* 




Ai TJ 

013426 


7278 


7280* 






Ai y "ic/ 
014^34 


7497 


7498 


7500* 


New 


Ai / 


7634 


7635 


7636 




AI C7C0 

01 3' 3r 


7862 


7863 


7865* 


NtXcC 


AA1 XAA 

001600 


5946* 


6687 


6697 


NcXPAR 


AA1 Z.i ^ 

001616 


5946* 


6247* 


6250* 


NINTAB 


041<f06 


11608* 






NCJFxM 


A/ / "^T^ 

044232 


11915 


11937 


11939* 


NDTRAr 


0060^4 


6474 


6477* 




NDTtPc 


AA1 C/ 

UOl 546 


5946* 


6279* 


13459 


NOZERO 


Ay ACA/ 

040504 


11498 


11504* 




NULLS 


AA1 ^ "5/ 

0016<:4 


5946* 


11693 


14086 


4.a Man A r 

NLfr'AC 


A/ AOIO 

040<:3^ 


11437 


11441* 




NLfWJ C 


Ay AAy ^ 
04 004 if 


11376 


11381* 




NUoASH 


AA1 ^y o 
U0164<: 


5946* 


11922* 


11954* 


NUBASL 


AA1 ^y A 

U0164U 


5946* 


11921* 


11953* 


NXLOC 


AT7CTA 
03^D3U 


11300* 


11305 




ftlW C ^ A&l 


AT^i 

03^^136 


11198* 


11203 




Jr 




11321* 


11326 




kiw Aki 

NX SPAN 


A775/ 

U3f <:46 


11221* 


11228 




□AcnR 


\JCC*tfO 


8894* 






□BJ . lA 


ru 1 5CA 


11630* 


11670 




inn 1 i r\ 

□BJ .ID 


Ay 1 oy ^ 
041246 


11248 


11254 


11629* 


no 1 1 


AT^Ty y 
03/^ 34^ 


11248* 


11660 




\Jr r 1 




11152 


11656* 




OKSIZ 


004354 


6218 


6233* 




aoeAS 


001636 


5946* 


11920* 


11949* 


aopsw 


045562 


11816* 


12223 




ONE 


041516 


11415 


11511 


11526 


0NE1 


040144 


11415* 


11673 




0NE2 


040556 


11526* 


11675 




0NE5 


040522 


11511* 


11673 





SEQ 0246 



13459 



13105 
13101 



6814* 



7638* 

7801 
11835 



8788 
11845 



9286 
11859 



9618 
11950 



10001 10428 10723 11127 12225 
12203 12208* 12238* 12241* 



14047* 14065 



12056 
12017 



12065* 

12055 12064* 



12097 



12054 12063* 12095 



11647* 
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P11 IZ-flAR-SO 
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CROSS REFERENCE 


TABLE - 


- USER SYMBOLS 












SEO 0247 


OPT. CP 


001550 


5946« 


6483* 


6640 


9396 


10724 


1113? 


1 1688 


11711 


4 4 9 

11763 


4 4 ^94 


11782 






OVFLW 


024514 


9288^ 


























PACDAT 


040274 


11455 


11459* 
























PACKED 


040440 


11483 


11486* 


1 1 cm 






















PARTBL 


033166 


10541 


10583* 
























PA1500 


001574 


5946« 


13036* 


13041 


13061 


13097* 


1 3oyy* 


171 A1 

13101 


13119 


4 V 4 A . 

13<rl0* 


4 V^4 9 

13213 


13285 


13297* 


13403 






13803* 


13810* 


13o 1 J* 


1 70C1 A 

13831* 




















PA2116 


001576 


5946« 


1 3037* 


13038 


i 7A^1 

1306*: 


13098* 


i 71 AAa 

13100* 


1 71 A7 

13103 


13120 


4 9^44 . 

13211* 


1 3298* 


13804* 


13811* 


13814* 






1 3850* 


























P0RT8L 


033150 


10506 


10575* 
























PERET 


063732 


14124# 


























PHYMAP 


062450 


13035 


13402 


\bfyfm 


i n71 7* 

1031 f * 




















PIRO = 


1 77772 


5373* 


10297 


lU3 16 




















PI MOVE = 


000240 


5373# 


10299* 


1U3UU* 


1 A7no* 
1030c* 


10303* 


1030r* 


1 n77C* 

10333* 


10336* 












PIRQO 


031436 


10293# 


























PKH = 


000000 


5432# 


























PLKCS8= 


172542 


5383# 


























PL>CCSR= 


172540 


5382# 


























PLKVEC= 


000104 


5384# 


























PROT 


003644 


61 77M 


6203* 




6c*»o 


12239 


















PRO - 


000000 


SZ7ZM 


























PR1 = 


000040 


5373* 


























PR? = 


000100 


5373* 


9963 


0071 






















PR3 = 


000140 


5373* 


























PR4 = 


000200 


5373* 


6276 




t130 


9154 


yyoo 


OOO/. 

yyy*i 


11817 












PR5 = 


000240 


5373* 


9143 


yvo 1 


lc051 




















PR6 = 


000300 


5373* 


























PR7 r 


000340 


5373* 


6666 


00^ C 


OOf f 


6679 


OOO 1 




9142 


A4 

9192 


9198 


9243 


9248 


9249 






9279 


9281 






9916 


yy 10 


003^. 

yycH 


9944 


9977 


9982 


9989 


4 A "^PP 

10255 


10300 






10301 


10338 




1 1 71 /. 
1 1 r IS 


11716 


1 1 7Art 

1 1 r*»o 


1 1 f oo 


11794 


13779 


13928 








PS = 


1 7777t 


5373* 


6271* 


13roU 






















PSM = 


010000 


5427* 


9169 
























PSW = 


1 7777b 


5373* 


61 26* 


O 1 *»r ■ 


OOj3* 


6664 


OOo3* 


oy3*t 


6948* 


6953* 


A4 

9193* 


9204 


9248* 


9254 






9282* 


9288 


TtOT* 


TCV 1 * 


9319* 


073A* 


07a7 
y3o3 


9474 


9475* 


9478 


9514 


9515* 


9574* 






9615* 


9907 


yyio* 


yy^H* 


9961* 


yyof 


yyr r^* 


9982 


9988* 


9994 


9998* 


10009 


10013 






10017* 


10019 




1 <W/ 1 

IOOmI 


10187 


1 rtl Q1 

101 yi 


1 n3i 1 

10^1 1 


10215 


10299 


10304* 


10337* 


10361 


10397* 






10415* 


10419 




IO*»t J* 


10456 


IO«»Oj 


1 A/ O/t 


10610 


10620 


11704 


11708* 


4 4 "» ^ , 

11735* 


1 1 740* 






11757* 


11815 


1 1 SI 7* 


\cccc* 


12253* 


1 3CQA 


1 3a 3B 


12669 


12709 


12749 


12790 


12831 


12870 






12900 


12930 




icyy5 


13926 


13yr3* 


1 jyy*» 


14005* 


4 y 4 IP 4 

14151 


4 ^ 4 P ^ 

14152* 


14187* 






PSWCHK 


025^6^ 


9472* 


























PSWTAB 


064516 


12273 


14244* 
























PLM = 


030000 


5433* 


9168 


Q1 7A 


yyo 1 


9977 


QOB3 

yyoc 


QQBB 

yyoo 


9994 












PW#?VEC= 


000024 


5373* 


6271* 
























QV 


001602 


5946* 


6172* 


A1 S7* 
0 1 Of * 


oiyy 


6643 


lOf 03 


1 3nno 
1 couy 


12277 


4 4 

13941 










ROCHR = 


104412 


13758 


4 4 M 

13761* 
























ROOEC = 


104416 


6159 


13761* 
























ROLIN = 


104414 


13759 


13761* 
























REG = 


004000 


5428* 


9950 




yyo 1 


9982 


yyy*» 
















REGINX 


064546 


13352 


13367 


13421 


14260* 




















RELEO 


011152 


6687 


6695* 
























RELE1 


015436 


6697 


7799* 
























RELE2 


021 744 


7801 


8786* 
























RELE3 


024376 


8788 


9284* 
























RELE4 


026226 


9286 


9616* 
























RELE5 


030054 


9618 


9999* 
























RELE6 




lUUU 1 


10426* 

























CEQUC-E POP 11/70 CPU EXERCI:ER NACni 30A(1052) 12-^-80 11:30 



D 4 
PAGE 



48-15 



Cf QKCE . 


P11 12~#tAR-80 


11-27 
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TABLE - 
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RELE7 


033732 


10428 


10704 


10711* 










RELE8 


056500 


10723 


11037 


11039 


11110* 








RELE9 


042572 


11127 


11143 


11550 


11683* 








RELNIO 


044174 


11919 


11928* 


11930 


12021 








RELOC 


044042 


6695 


7799 


8786 


9284 


9616 


9999 10426 


10711 11110 


RELOCP 


045754 


11957 


12024 


12186* 


12194 








relo 


010156 


6687« 














RELOO 


011166 


6695« 














RELl 


011214 


6697« 














REL11 


015452 


77990 














REL2 


015500 


7801* 














RE L 22 


021760 


8786« 














REL3 


022006 


S7BfiM 














REL33 


024412 


9284# 














REL4 


024440 


9286* 














REL4A 


026242 


961 6# 














REL5 


026270 


961 8# 














REL55 


030070 


9999# 














REL6 


030116 


10001# 














REL66 


032326 


104264^ 














REL7 


032354 


1042&r 














RE L 77 


033746 


1071U 














REL8 


034002 


10723* 














REL88 


036514 


10726 


11110* 












REL9 


036554 


11127* 














REL99 


042606 


11683* 














RESERR 


064350 


6482 


6669 


8944 


9470 


10414 


14209* 




RESFT1 


032264 


10418* 














RE SKI 


064202 


13020 


13048 


13075 


13089 


13135 


13158 13495 


14063 14174* 


RESPSW 


063330 


14001* 


14007 












RESREG= 


104422 


6436 


6465 


6480 


12295 


12348 


12372 12426 


12446 12490 






13076 


13090 


13136 


13159 


13258 


13496 13535 


13604 13657 






14064 














RES TOR 


006032 


6435 


6480* 












RESTPS 


063340 


14005* 














RESTRP 


025146 


9388* 














RESVEC= 


000010 


5373* 


6111* 


61 12* 


6285* 


6286* 


6384* 6453* 


6482* 8903* 






10405* 


10414* 


12051* 


12052* 


12166* 






RETPC 


044234 


11911* 


11940* 












RETPSW 


063322 


13996* 


14006 












RETRY 


043750 


11870* 


12204 












RKBA 


002242 


5946* 


12431* 


12730* 


^2772* 








RKCS 


002236 


5946* 


6527* 


6536* 


12155* 


12435* 


12700 12704* 


12706 12720 






12752 


12773* 


12779 


12785* 


12787 


13388 




RKDA 


002244 


5946* 


6526* 


12427* 


12728* 


12770* 






RKDRV 


047310 


5946 


12368* 












RKDS 


002232 


5946* 


6530 


12428 


14261 








RKER 


002234 


5946* 


6528 












RKERR 


051520 


12703 


12712* 




12783 








RKFUN 


002172 


5946* 


12434* 


12684* 


12685 


12690* 


12692 12784* 




RKHAM 


002140 


5946* 














RKHOA 


002156 


5946* 


12414* 


y2'*27 


12728 


12770 






RKHSTA 


002010 


5946* 


12369* 


Ml7(i 


12375* 


12698 


12712* 12719* 


^2722* 12735 


RKHUC 


002030 


5946* 


12430 


n729 


12771 








RKLOOP 


051546 


12699 


12719* 


12736 


12778 








RKNEWH 


002100 


5946* 


12764 


}2766* 


12769 
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12515 12545 
13761* 13815 



13021 13049 
13852 13972 



8944* 9400* 9401* 9470* 



12731* 12737 12744* 12746 



^2777 12798* 
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CROSS REFERENCE 


RKNEUL 


002076 


5946* 


icrOi 


12772 


12425* 


RKOLD 


002046 


5946* 


1 

1 £*• 1 y 


12422 


RKPSW 


002250 


5946* 


1 ?Z.77* 

1 C*» JJ" 






RKREAO 


052076 


12695 


1 5777* 

let ' ' * 






RKRPT 


051 362 


12373 


1 ?^fl1# 
1 cOOj* 






RKSRV 


05K12 


12432 


1 ^k!Qf\M 
1 cOtUw 






RKTRV 


002203 


5946* 


1 O/ 1 c » 
1 C *» 1 J " 


12702 


12708* 


RKUNIT 


0021 2A 


5946* 


1 9Z.1 1 






RKVEC 


002246 


5946* 


1 9^79* 
1 cMjc.^ 






RKWC 


002240 


5946* 


1 '>L'\C\m 

1 C*» JV" 


12729* 


12771* 


RKURCK 


051646 


12693 


1 C f JJW 






RKWTRY 


047624 


12427# 


1 cOOo 


12710 




RKl 


051572 


12686 


1 ?7ni 


12725* 




RKIO 


001666 


5946* 


1 C'*C 1 " 


12424* 


12435 


RK11 


001670 


5946* 


1 ?T7A* 

1 CJf 


12393 


12714 


RK2 


051614 


12728* 


1 Cf Jv 






RK3 


052044 


12689 




12791 




RNTBIN 


001654 


5946* 




12047* 


12048 


Raei 


012760 


7113 


71 1^ 

f I m 


7116* 




RaB2 


013712 


7370 


7T71 

f jf 1 


7172 


7374* 


RaB3 


014532 


7588 


f JOT 


7591* 




R0LB6 


01 5320 


7756 


77S7 

f f J f 


7759* 




Ra86A 


015414 


7786 


7797 

f f Or 


7789* 




R0LB7 


016340 


7976 


7<i77 


7979M 




Rao 


011646 


6826 


fA77 


6829* 




Rai 


012442 


7002 


7007 


7004 


7006* 


RaiA 


012454 


7009 


7010 

f\j\\j 


7012* 




R0L3 


014324 


7521 


f jcc 


752'^i* 




ROLA 


013502 


7303 


f JW** 


7306* 




Ra6 


014632 


7615 


7A1 A 


7617 


7619* 




016062 


7898 


f Ott 


7901* 




RORBI 


013046 


7145 


f * HO 


7148* 




PORBIA 


013136 


7178 


7170 


7181* 




R0R84 


013674 


7362 




7364 


7366* 


ROReS 


014474 


7569 


7*;70 


7571 


7573* 


R0R86 


015252 


7737 


7778 


77i*0M 




R0R87 


016224 


7938 


7070 


7941* 




RORO 


011532 


6782 


Or OJ 


6784 


6785 


R0R1 


012372 


6980 


OTO 1 


6983* 




R0R1A 


012504 


7022 


70?7 


7024 


7026* 


R0R2 


013370 


7259 


r cOU 


7262M 




R0R5 


014176 


7470 


7^71 


7W5M 




R0R6 


014722 


7M2 


7^7 

f Ot J 


7644 


7646* 


R0R7 


015734 


7855 


r O JO 


7858* 




RPCC 


002302 


5946* 








RP3BA 


002220 


5946* 


157A1 • 


12653* 




RP3CS 


002214 


5946* 


OjOv" 


6561 


12351* 






12654* 


1 cOOU 


12665* 


12666 


RP30A 


002222 


5946* 


1577?* 


12358* 


12650* 


RP3£>C 


002224 


5946* 


1 2359* 


12651* 




RP30RV 


046672 


5946 


12291* 






RP30S 


002210 


5946* 


6567 


12349 


14260 


RP3ER 


002212 


5946* 


12631 






RP3eRR 


050674 


12585 


12593* 


12622 


12663 


RP3FUN 


002170 


5946* 


12355* 


12567* 


12568 


RP3HAN 


002136 


5946* 


12052 


12166 
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12702 12708* 12725* 12741 12748* 12756* 12781 12789* 
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12061 12297 12374 12448 12517 



6787* 



13391 



12601 12611* 12617 12624* 12625 



12623* 12664* 
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SEQ 0250 


RP5H0A 


002152 


CQJ 




12650 














RP3H0C 


0021 5A 


CQ/ 
5V40* 




12359 


12651 












RP3MST 


002006 


coy 


ocoU 


12025 


12030 


1 5n7A 


12150* 12165* 


12168 


12170 12197 


12292* 12293 12580 










12603* 


12615 


1 D^CB 
1 CO>0 


12677* 








RP3Hyc 


002026 


CO/ iLtf 


l£U4i" 


12360 


12652 












RPkOO 


050722 


1 




12616 


12659 












RP3NUH 


002074 


coy iLtf 




12643 


12645* 












RP3NyL 


002072 


coy 




12640 


12653 












RP5aD 


002042 


coy t^M 


1 oncy * 


12057* 


12337 


1 ■D7y.n 


12343* 12361 


12608 






RP3PSW 


002230 


CO/.i^ 


1 oxu * 
















RP3«EA 


051250 


1 "itrn 

1 Cil 1 


1 7A^fi« 
















RP3RPT 


050544 


1 770^ 
1 CCTO 


















RP3SRV 


050574 


1 OTCI 

1 c j5j 


1 C jr^ 
















RP3TRy 


002202 




1 5777* 


12584 


12589* 


1 cOUO" 


12621 12627* 


12635* 


12662 12668* 




RP3UNI 


002122 


CQ/,4^ 


1 on^n* 
1 cU5U" 


12344 


12347* 


1 57^1 


12609 12649 








RP3VEC 


002226 


co/.^ 


1 57^7* 

ICJJJ* 
















RP3WC 


002216 




1 97An* 


12652* 














RP3UCK 


051012 


1 5^7^ 

1 CJIJ 


1 cO 1 
















RP3WTR 


047210 


1 97Z.Oi» 
1 C J*»W 




12571 


12591 












RP31 


050746 


1 




12606# 














RP310 


001662 


C Q / (.M 


1 5770* 


12342* 


12346* 


1 37^A 
1 cjj^ 


12607* 12608* 


12609* 


12611 12647* 


12648* 12649* 12654 


RP311 


001664 




1 3507* 
IccVy ■ 


12312 


12595 


1 3A10 
1 CO 1 T 










RP12 


050776 


1 cO 1 


1 7A?0 
icOev 
















RP33 


051210 


1 ?^7? 

1 cji c 




12670 














RPA8A 


002256 






12885* 














RPA8AE 


002260 




1 c jUj" 


12884* 














RP^CSI 


002252 


CQ/ 




6581* 


12495* 




12856* 12886* 


14264 






RPACSi' 


002264 




030v" 


6582 


6596* 


1 C 1 0 1 " 


12498* 12828* 


12867* 


12873 12897* 




RP';CS3 


002266 




















RP4DA 


002262 




1 CJV 1 ■ 
















RPADC 


002274 




1 

1 c JvU* 
















RPAORV 


047704 




1 '^LL^M 

1 c**'*C~ 
















RP^DS 


002270 






12824 


12836 


1 PflA7 
1 cO*» f 


12853 12862 


12881 


12892 




RP4ERR 


052404 


1 cocf 


1 5B7Qi» 

1 CO JW 


12865 


12895 












RPAER1 


002272 




















RPAER2 


002276 




















RPAER3 


002300 


CQ/ iL« 


















RPAFUN 


002176 






12743* 


12811* 


1 CO 1 c 


12816* 12817 


12866* 


12896* 




RPAHAN 


002146 


CQ/ iL* 


















RPAHDA 


002162 




1 9/.Bfl* 
1 c*»oO" 


12501 














RPAHDC 


002164 




1 3AB7* 


12500 














RPAHST 


002016 


CQ/ iLK 


1 5Z,Z,7* 

1 CMM J" 


12444 


12449* 


1 PBPP 
1 cocc 


12833 12839* 


12846* 


12849* 12860 


12890 12903* 


RPAHUC 


002036 




icPUc 
















RP4L00 


052432 


1 Cocj 


1 PflZAJf 


12861 


12891 












RPANUH 


002114 




1 PfiflZ 
















RPANUL 


002112 


CQ/ iLK 


Icooj 
















RPAOf 


002304 


CQ/ iLK 


1 PAOO* 
















RP^aD 


002062 




1 Cj\jj 


12504 














RPAPSW 


002310 


CQ/ iLK 


















RP4REA 


052656 


12819 


1289ar 
















RP4RPT 


052240 


12447 


12810# 
















RP4SRV 


052264 


12492 


12816# 
















RPATRY 


002205 


5946# 


12489* 


12826 


12830* 


12852* 


12864 12869* 


12880* 


12894 12899* 






WC I JC 


59464' 


12498 
















RPAVEC 


002306 


5946# 


12492* 
















RP4WC 


002254 


5946# 


12502* 
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TABLE - 
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052510 


12818 


''2860* 














050K6 


12491* 




12832 












052460 


12813 


12825 


12852* 










RP41 1 


001672 


5946* 




12466 


12841 


12875 








052A66 


12853* 


1 CO J** 


12871 










RP43 


052620 


12814 


12881* 


12882 


12901 










002316 


5946* 


12559* 


12980* 










R*^AAF 


002320 


5946* 


12558* 


12979* 












002312 


5946* 


6609* 


12552* 


12950* 


1 2981 * 


14265 






002 32A 


5946* 


6608* 


6610 


6618* 


« CA^ 

12159* 


12555* 


12927* 




002326 


cAy y M 

5946* 














R<^r)A 


002 v2 


CAy y M 

5946* 


12556* 












RSORV 


050254 


rAy y 

5946 


12511* 














002330 


CAy y M 

5946* 


6612 


12550 


12923 


1 ^oy i 

12941 


12947 


12956 


R^FR 


002332 


CAy y M 

5946* 














RSERR 


053070 


12926 


12933* 


12959 


12990 








RSFLM 


002200 


CAy y M 

5946* 


12549* 


12910* 


12911 


12915* 


12916 


12960* 


RSHANA 


002150 


CAy Z M 

5946* 














RSHDA 


002166 


CAy z M 

5946* 


12543* 


12556 










RSHSTA 


002020 


C A/ Z M 

5946* 


12512* 


12513 


12921 


12933* 


12940* 


12943* 


RSHUC 


002040 


CAy z M 

5946* 


12557 












RSLOOP 


0531 16 


12922 


12940* 


12955 


12986 








RSNEWH 


002120 


coy z M 


12979 












RSNEUL 


0021 16 


CAy ^ M 


12980 












RSOLD 


002066 


coy ^« 


12558 


12559 










RSPSU 


002356 


coy ^ M 


12548* 












RSREAD 






1 2985* 












RSRPT 


0527S0 




12909* 












RSSRV 


052774 


^ 'ic y T> 


1 291 5* 












RSTRY 


002206 


coy ^ A* 


12544* 


12925 


12929* 


1 ^oy 
lcV46* 


12958 


12963* 




AAII T/ 

002134 


coy z « 


12555 












RSVEC 


002354 


coy z M 


12547* 












PSWC 


AA^T 1 y 

002314 


coy ^ M 


12557* 












RSUCK 


AC T 1 ^/ 

0531 ft* 


1^91 f 


12954* 












RSUTRy 


ACAy y / 

050444 


i ^c y z M 

12546* 


12914 


12931 










RS1 1 


AA4 ^ yy 

001674 


CAy z M 

5946* 


12517* 


12532 


12935 


12970 






RS41 


AC Ti y ' 

05314«« 


1 ^Al 

12912 


12924 


12946* 












AC T 1 C T 

0531 52 


1 ^oy 7« 


12943 


12965 










RSA3 


ACT TA / 

053304 


t ^A4 7 

12913 


12976* 


12977 


12996 








RTI1 


Ay y c^ 

046456 


12278 


12283* 












RTT1 


0271*22 


OOA7i* 

990r# 














RTTIEX 


027624 


ooy c « 














RTT2A 


027646 


AAy y 

9946 


9948* 












RTT2EX 


ATAAy J. 

03CX)46 


AA1 A 

9910 


9957 


9972 


9974 


OODT 

9983 


9985 


9995 


RT1 


Axy A7Z. 

064076 


1/1 AC 

14105 


14140* 












RUNTBL 


AA1 

001732 


CO/ Z M 

5946* 


12049* 


12125 


12313 


1 1 Z ^ 

12316* 


12394 


12397* 


RVJNTRA 


AA1 "yCA 

001 750 


coy z. 

5946* 


12181 


12330* 


12408* 


1 ^y oz ^ 

12486* 


12540* 


12596* 


SAV = 


000224 


551V* 


5523 












SAVPSU 


02764* 


990^* 


9908 


9914 


9939 


AOy 7« 

9947* 


9948 


9998 


SAVREG= 




O^O 1 


6452 


12291 


12368 




12511 


13004 






13629 


13761* 


13797 


13835 


13930 


14053 




SAVRNH 


041234 


11147* 


11151 


11621* 










SAVRNL 


041232 


11146* 


11150 


11620* 










secBi 


012772 


7119 


7120 


7122* 










sec83 


OK552 


7599 


7601* 












secBA 


014006 


7407 


7408 


7410* 











SfO 0251 



13535 13554 
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SBCB6 


015154 


7707 


f fVo 


7710* 










S8CB7 


016152 


7916 


ryi f 


7918 


7920* 








seco 


011676 


6840 


6<»4 1 


6843* 










SBC1 


012536 


7037 




7039 


7041* 








secu 


012554 


7045 




7047 


7049* 








SBC 5 


0U336 


7528 














sec6 


0U736 


7649 




7652* 










SBC 7 


015640 


7825 


loco 


7828* 












022204 


8823# 




8855 


8859 


BBAA 
0000 


8870 


8874* 


SBIN7 


021416 


8699# 


0' 


8715 


8724 


Of J\J 


8737- 


8738 


SCAN 


037144 


11192 


\ 1 ItO* 












SCANC = 


076042 


5458# 














SCANC]= 


076142 


5490# 


111 OS 

1 1 1 TO 












SOATA 


020732 


86034r 




8610 


8611* 


HA1 ?* 


8617* 


8618* 






8646 




8648* 


8649 


00 Jc" 


8653 


8656 


SDATAB 


021374 


8668* 


oOOt" 


8670 


8672 


00 rO 


8679 


8683 


SOPARO= 


172260 


5373# 


inCBB 












S0PAft1= 


1 72262 


5373# 














SDPAR2= 


^722tt, 


5373# 














S0PAR3= 


m2(^ 


5373# 














SDPAR4= 


^72270 


5373# 














SDPAR5= 


^72272 


5373# 














SDPAR6= 


U2271, 


5373# 














SDPAR7= 


y7227t 


5373# 














SDPORO= 


}72220 


5373# 














SOPOR 1= 


^ 72222 


5373# 














S0P0R2= 


1 7222^, 


5373# 














S0P0R3= 


}72226 


5373# 














SOPORA= 


172230 


5373* 














S0P0R5= 


}72212 


5373# 














SDP0R6= 


^722y, 


5373# 














SDP0R7= 


172236 


5373# 














SECT? 


034466 


10797 


1 nsnTi^ 












SECT20 


035600 


10955 


lAQCflir 












SECT3 


035032 


10858 














SECT30 


036144 


11016 


\ 1 UcUw 












SETOP 


006034 


6471 














SETUP 


040646 


11173 


1 1 1B? 


11196 


11218 


1 1 c*« J 


11261 


11280 


SET. ID 


041302 


11197* 


1 1 


11202* 


11219* 


1 1 

1 ICC'* 


11227* 


11643* 


SET1 


037162 


11200* 


1 1 AAH 












SET2 


037254 


11224# 


1 1 AAH 
1 1 OOU 












SIGN 


041227 


11474 


1 O 


11478 


11617* 








SIPARO= 


172240 


5373# 


1 Ujf J 


10585 


11859* 


1 1 BAn 

1 1 OOU 


11862 


11864 


SIPAR1= 


^722^2 


5373# 


1 1 BAT)* 


11861* 










SIPAR2= 


1 72244 


5373# 


1 1BA7* 


11863* 










SIPAR3= 


172246 


5373# 


1 1BAA* 
1 loO*»" 


11865* 










SIPAR4= 


172250 


5373* 


inA/iT* 












SIPAR5= 


172252 


5373* 














SIPAR6= 


1 72254 


5373* 


1 U J f J " 












SI PAR 7= 


172256 


5373* 


11 BAA* 












SIPDRO= 


172200 


5373# 


10577 


11854* 










SIP0R1= 


172202 


5373# 


11855* 












S]P0R2= 


172204 


5373* 


11856* 












S]P0R3= 


172206 


5373* 


11857* 












S]P0R4= 


172210 


5373* 


10604* 












S]PDR5= 


172212 


5373* 















SEQ 0252 



8877* 8880 8884* 8887* 
8745 8749 8753 



8619 8623 8628 8634* 
8684 8692* 



8890 



8635 8641* 
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CROSS REFERENCE TABLE - 



o 1 rvno— 




SX7^ 
J J' 3* 




c I prtD7- 
j I r^n f - 


I ' c c 1 0 


^77Tif 


1 iflsfl* 




v*« 1 c 1 o 


1 1 ?# 

' 1 O 1 c" 








AS??* 


OO J J 


C 1 7FUI - 


1 77762 


•i^7^ 


Occ*» 




\ f f f Ov 




API 7 

oc 1 ' 


CK tp 


nT7^\i^ 


1 1 ^1 A 

1 1 J 1 o 


1 ^\PC^M 




n7Afy.i 










1 1 


1 1 52S« 


^if pr I - 




S4R<M 


1 1 


jn — 










(Vsin1<s 


1 %73« 


1 3A74 




0? '1 1? 


977ft 


9787* 






9793 






9778* 


9841 




057140 


9789 


9790 

T * TV 




0P71 SP 


9804# 


TO 1 C 






9804 


TOw J 






981 9# 

TO 1 






027226 


9828# 




SQB6 


027252 








027260 


984 2# 






027262 


9785 


9844* 

Tw~~" 




027076 


9783# 


9854 


SPAN 


037234 


11214 


11218* 


SPAN'C = 


076043 


5459# 


11225 


^PAMC I = 


076143 


5491 # 




^parfO 


002012 


5946# 




<;parfi 


002014 


5946# 




SPCHK 


025736 


9532# 




spi t<;t 


031 260 


10252<f 




SRC 1A 


041240 


11205* 


11230* 

lib ^W 


SRC ID 


041236 


11175 
11253 

lib 

11625# 


11184 
11263 

1 1 b W ^ 


SRC1 


037070 


1 1 1 754' 


11656 


SRC 10 


037342 


112474f 


11656 

1 1 u Jw 


SRC1 1 


03736/i 
037412 


11253# 

lie ^^Wt 


11657 

1 1 f 


SRC1? 


11263<lf 

1 1 CU^Wt 


11657 

1 1 U J f 


SRC 13 


037434 


1 1 2724f 


11657 

1 1 U J * 


SRCK 


037462 


1 1 2824f 

1 1 CWC^ 


11657 

1 1 U J ' 




037506 


1 1292i» 


11657 

1 1 W J f 




037532 


1 1 ^w 1 


11657 

1 1 f 


SRC1 7 


037576 


11313* 

1 1 ^ « 


11657 


<;RC18 


037622 


1 1 322* 


11657 


<;Rri9 


037650 


1 1 ■/■/WW 


11657 

1 1 W^ ' 


SRC 2 


037114 


111844f 

III 


11656 


SRC20 


037660 


11334* 


11657 


SRC 3 


037126 


11189* 


11656 


SRC 4 


037160 


11199* 


11656 


SRC 5 


037206 


11207* 


11656 


SRC6 


037216 


11211* 


11656 


SRC 7 


037250 


11222* 


11656 


SRC8 


037302 


11232* 


11656 


SRC9 


037314 


11237* 


11656 


SRO = 


^ 77572 


5373* 


10625 
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SEQ 0253 



6226 



9994 
13680 



9791 
9806 



13692 13696* 13698* 

9792 9794 9795 9796 
9807 9810 9813 9814 



9797 
9817* 



9800* 



11250* 

11189 

11272 



11307* 

11199 

11282 



11328* 
11204* 
11292 



11557* 

11207 

11301 



11566 
11211 
11306* 



11626* 

11222 

11313 



11670 

11229* 

11322 



11232 
11327* 



11237 
11330 



11247 
11334 



11251* 
11556* 



10648* 11867* 12232* 13760* 
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SRI 


177574 


5373* 


10631 


10634 










SR2 = 


177576 


537Sr 


10628 




13787* 








SR3 


172516 


5373* 


1 1868* 


13760* 








STACK = 


001200 


5373* 


6271 




13757 14137 








START 


003612 


5512 


6150 


6166* 








STARTl 


0026 K 


5514 


6055* 


6056 










START2 


002624 


5515 


6074* 


6104 










START3 


003400 


5517 


6155* 


6162 










STKUIT- 


1 7777(, 


5373* 


10430 






11802* ^2227 






sim 


043526 


11776 


11783 


11785 


4 4 ^A^ 4 4 9 An 

1 1 787 1 1 789 






SUBFLG 


036476 


11071* 


11100 


11107* 


11109* 








SUBN 


076051 


5463* 


11406 












SUBNI = 


076151 


5495* 


11397 












SUBP = 


076071 


5478* 








12263* 12271 


4 V^VA 

13230 




SUBPAS 


001630 


5946* 


6263* 


4 4 *f Ay 

11786 


12258* 12259 




SUBPI = 


0761 71 


5503* 


11494 


11504 










5U80 


016434 


7998 


7999 


AAA 4 ^ 

8001* 










SUB1 


017064 


8146 


8147 


8149* 










SUB1A 


01 71 72 


8185 


8186 


8188* 










SUBIB 


017206 


8192 


8193 


8195* 










SUB2 


01 7752 


8369 


8370 


8372* 










SUB2A 


020072 


A / 4 

8412 


8413 


A i 4 P M 

8415* 










SUB3 


020424 


8513 


8514 


AP4 M 

8516* 










SUB3A 


020446 


8521 


8522 












S(JB6 


021112 


8636 


8638* 












SUB7 


021 540 


A*9T4 

8731 


8732 


8733 


8735* 








SUPSTK= 


AAA 

000700 


5373* 


6661 


8942 


9194 9325 


AW4 ^ 

9331 9366 


A9A4 

9381 


4A4A9 4A^ A A 4A/^A 4A/ AA 4 A/ n7 

10103 10400 10469 10489 10493 




4 A^ ^ A 

10660 


14226 












SUABO 


011714 


6847 


6848 


y Ay n 

6849 


6851* 








SWAB! 


A4 9 4 

013176 


7197 


7198 


7'^AA AA 

7200* 










SUAB2 


013416 


7273 


7275* 












SUAB4 


014052 


7430 


7432* 












SUAB6 


015400 


*9^A 4 

7781 


7783* 












SWAB7 


015766 


~869 


7871* 












SWITCH 


067330 


13507 


14361* 












syR = 


4 ^A 

1 77570 


5373* 


6055 












SWO - 


AAAAA4 

000001 


5373* 














SWOO = 


AAAAA4 

000001 


5373* 














SU01 = 


AAA A A 

000002 


5373* 














SW02 


A AA AA J 

000004 


5575/t 














sy03 = 


AAAA4 A 

000010 


5373* 














SW04 


AAAA ^A 

000020 


5373* 














SW05 = 


AAAA J A 

000040 


5373* 














bW06 = 


AAA 1 AA 

000100 


C T T9 AA 

5373* 














S(J07 - 


AAA "^AA 

000200 


5373* 














SW08 - 


AAA/ 

000400 


f T AA 

5373* 














SW09 - 


A A 4 AAA 

001000 


5373* 














SUi = 


AAAAA*^ 

000002 


5373* 














swio = 


002000 


5373* 














SW11 = 


004000 


5373* 














SWT 2 = 


010000 


5373* 


11773 












SW13 = 


020000 


5373* 














SWU = 


040000 


5373* 


13163 












SW15 = 


100000 


5373* 














SW2 = 


000004 


5373* 














SW3 = 


000010 


5373* 


11784 
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SW<. 


000020 


5373# 


1 CCTO 


12376 


12450 


1 7^111 




SW5 


000040 


5373# 


1 1 OA7 

1 1 yoj 










SW6 


000100 


5373# 


1 1 BAA 


11898 








SU7 


000200 


5373* 












SW8 = 


000400 


5373* 


11Q1S 
1 1 7 1 0 


11955 








swsnsG 


007454 


6650 












SW9 


001000 


5373* 


1 c 1 1 V 










SXRA 


026720 


9728# 


yf jf " 










SXRB 


026722 


9729# 












SXTO 


026366 


9622 




9624 


9625 


OAPRiT 
TOcOw 




5XT1 


026452 


9655# 












SXT2 


026736 


9735# 












SXT3 


026752 


974 1# 












SXTA 


026520 


9673 












SXT5 


026762 


9746* 












5X^6 


026662 


9710 


071 1 


9712 


9713 


071 S# 

yf 1 




SXT6A 


026712 


9721 


yf 










SXT7 


027026 


9763* 












SYSSI2 


001712 


5946* 




6573* 


6601* 


OOc 1 " 


6626* 6634* 






13512 


1 7^57 

1 JJCJ 










SYST]0= 


177764 


5373* 












TB]TVE= 


000014 


5373* 


ycHy 


9281* 


9477 


OAon* 


9493* 9508* 






10338* 


1 ??70* 










TEST1 


012632 


7072 




7074 


7076# 






TEST2 


013344 


7247 




7250* 








TES16 


015430 


7792 


7707 

r f 7 J 


7795* 








TIMEBU 


057060 


6264 


ocoy 


6270* 


13453* 


1745R* 

1 JO" 


13463* 13469* 


TIMER 


052222 


12705 


1P74*> 


12786 


12800* 






TKBFR 


001524 


5946» 


1(^010 


14061 








TKBFRP 


001522 


5946* 




14062* 








TKISR 


063354 


6275 


\ "tvc f n 










TKVEC = 


000060 


5373* 




6276* 








TPISR 


063566 


6277 


1 17SS 


14081* 








TPVEC = 


000064 


5373* 




6278* 


11713* 


1 If 1 H " 


11755* 11756* 


TRANS 


040776 


11285 


ii?on 

1 1 C7\J 


11584* 


11644 


11A40 

1 1 0*t T 




TRANS 1 


037470 


11285* 


11^0 

1 1 OOv 










TRANS2 


037502 


11290* 


1 1 QOV 










TRANS3 


041322 


11649* 


1 1 oow 










TRANSA 


041304 


11644* 


11A71 

1 1 Or 1 










TRAPVE= 


000034 


5373* 


Ol/r 


6156* 


6219* 


oc ' 1 


9252* 9254* 


TRAP1 


024310 


9251 












TRAP1C 


024350 


9265 


077IUr 










TRPRTN 


006016 


6453 


AA7Sir 










TRTVEC= 


000014 


5373* 












TST81 


013210 


7203 


7?n^ 


7206* 








TSTB2 


014030 


7419 


7^7lir 

f He 1 " 










TSTB2A 


014040 


7424 


7^ 7 Air 










TST86 


015126 


7695 


7A0A 


7697 


7699* 






TSTO 


011452 


6755 


Or 


6757 


6758 






TST1 


010140 


6686* 












TST10 


013564 


7334* 












Tsni 


014110 


7451* 












TST12 


014340 


7531* 












TST13 


014566 


7608* 












TSTK 


015054 


7688* 












TST15 


015462 


7800* 













SCO 0255 
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. rl 1 1 c~nW"'OU 


1 1 . 57 


1 o 1 1 o 


0 1 ouo*» 


7009* 


TCT1 7 

1 O I 1 f 


U 1 0 jOO 




1 Jl C 


'Sill 7A 
J 1 1 1 r O 




1 ^ 1 cv 


U 1 Of JC 




TCT31 


ni 75A/. 


S999ir 
Occc* 


1 O 1 CC 


ni 7A?? 
U 1 r Occ 




1 O 1 CJ 




Ohc jw 


TCTPA 






1 i 1 CJ 






1 O 1 CO 


\JC\)f 1 C 


OOU 1 w 


T ^T?7 
1 J 1 c f 


rtpl Pl/L 

Uc 1 c lO 


OO JOw 


1 o 1 J 


m 1 779 


Of HU^ 


1 J 1 j*J 


n9i Ann 






nPI A5A 


Or J7ff 




n?1 770 


Of Of ^ 


1 0 1 J J 






1 9 1 J** 


099 7nn 


OtH J^ 




n?7?ftn 


0079* 

7V JC« 


t«:t Vi 


\JCjJJ\J 


01 77if 


1 O 1 Jf 




0140 




ni 1 71 <> 






npAi 7/L 


7cH r w 


1 O 1 H 1 




7CO J" 




n?si ^0 


7 JO f 




npsAAA 


0471* 


I ^ 1 


n?*>A7n 

\JCJ\JI \J 














0A1 7* 


t<;t^7 


n?7nAA 


Q77'KJt 

It f 




nipxpn 




T<;Tsn 


\JC 1 JyJC 




1 O 1 J 1 


\JC. 1 HV/H 




1 O 1 JC 


\)C f DCH 








1 nonhif 


I O 1 J** 


070Sii 




} ^ f 7 J 


0^0709 

\Jj\J 1 \JC 




1 0 1 JO 


071 1 




I o f J 1 


071 ?AP 


1 J 1 ^ 


t<;ta 


01 PAAO 




1 O r O^J 


071^90 

UJ 1 He v 




T<\TA1 

1 ^ 1 O 1 


071 






071 77A 


1 (T^AOif 




07?1 SO 

Ujc 1 Jv 


1 nz.ni* 

1 vH W 1 rf 








1 O 1 \JJ 






t<;taa 


079700 


1 \JJ\JHff 


T<\TA7 

1 ^ 1 O r 


07709^ 

W JJV/CH 




t<;t7 


01797^, 


77'^fJt 


t<;t70 

1 O 1 r V 


W J JC VH 


1 \jj f -J 


TST71 






TST72 


033756 


1072U 


TST73 


035160 


10880 


TST7A 


036536 


11126* 


TST75 


0367U 


11K5# 


rST76 


0A2610 


11685# 


TST77 


0A3116 


11762* 
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9195* 



10596* 



10883* 



J 



CEQKC-E POP 
CEQKCE.P11 



11/70 CPU EXERCISER 
12-W-80 11:27 



TTOPT - 000400 
TTYCHK 042626 
TYPOS = 104410 
TYPE = 104400 



TYPOC = 104402 



TYPON = 

TYPOS = 

TYPSIZ 

TYPTIM 

T.END 

T1 

T2 

T3 

T4 

UBEAOR 

UBEBA = 

UBECC - 

UBECLR= 

UBECR1= 

UB£CR2= 

UBEDe 

UBEERR 

UBEGO = 

UBEIHI 

UBEOPT= 

UBESAV 

UBESET 

UBESRV 

UBET8L 

UBEVEC= 

UBE2 

UBE3 

UBn6 



104406 
104404 
057072 
056632 
005570 
005422 
005464 
005516 
005550 
001776 
170004 
170002 
170010 
170006 
170016 
170000 
053724 
170014 
062340 
000200 
001772 
043166 
053434 
002340 
000510 
053552 
053774 
015434 



UBREAK= 177770 



UBRERR 
UBRK2 
UBRTBL 
UB7 

UOPARO^^ 
U0PAR1= 
UDPAfi2= 
U0PAR3= 
U0PAR4= 
U0PAfi5= 
UDPAR6= 
UDPAR7= 
UOPOR0= 



002770 
003012 
003346 
021426 
177660 
177662 
177664 
177666 
177670 
177672 
177674 
177676 
177620 



5423# 
11686* 
6509 
6108 
6487 
6639 
13217 
13289 
13407 
13520 
6161 
13433 
13761* 
6224 
6651 
12286 
6415 
6389* 
6396 
6401 
6410 
5946* 
5392* 
5391* 
5394* 
5395* 
5396* 
5390* 
13031 
5395* 
11777 
5424* 
5946* 
11764 
13004* 
5946* 
5397* 
13008 
13055 
7689 
7761* 
5434* 
6120* 
6083 
6101 
6115 
8691 
5373* 
5373* 
5373* 
5373* 
5373* 
5373* 
5373* 
5373* 
5373* 



11688 






















13761* 






















6148 


6157 


6158 


6160 


6220 


6221 


6222 


6223 


6225 


6227 


6484 


6494 


6498 


6500 


6503 


6505 


6506 


6508 


6510 


6511 


6587 


6589 


6652 


6656 


12005 


12007 


12013 


12286 


13164 


13195 


13197 


13198 


13200 


13223 


13225 


13229 


13233 


13235 


13248 


13250 


13253 


13255 


13259 


13279 


13316 


13326 


13334 


13336 


13340 


13347 


13365 


13371 


13376 


13387 


13392 


13426 


13428 


13429 


13431 


13434 


13439 


13493 


13494 


13507 


13508 


13509 


13530 


13533 


13534 


13757 


13758 


13759 


13761* 


14135 








6588 


6641 


13199 


13221 


13224 


13228 


13232 


13234 


13276 


13375 


13425 



6228 
13447* 

6407* 



13761* 
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6300 

12286 

6109 

6492 

6642 
13219 
13306 
13409 
13527 

6507 
13761* 

6226 
13507* 
13196 
6418* 
6441 
6399* 
6404 
6413* 
13013* 
5946 
5946 
5946 
5946 
5946 
6303 
13054* 

13047 

6308 
13011* 
11771* 
13778 

6327 

5946 
13026* 
13060 

7691* 

7767* 

6081* 

6122* 

6087 

6107* 

6137 

8704* 
10587 



SEO 0257 



13014* 


13015 


13017 


13018 


6305* 


6306 






6311 


6316 


6321 




13769* 








13012* 


13769* 


13770* 




13006 


13022* 


13050* 


13068 


13066* 
7694 
7773* 
6082 
6135* 
6094 


7702 

7780* 

6085* 

6141* 

6102* 


7706* 
7785* 
6086 
6146* 


7713* 
7791 
6092* 
6461* 


6151* 









13072 13771* 13772* 13783 13785 13786 



13776 14269 



7715* 
7798* 
6093 
6470* 



7721* 

6099* 
10343 



7729* 7736* 7742* 7749* 7755* 
6100 6103 6107* 6116* 6118* 



10579 
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U0P0R1= 
U0P0R2= 
U0P0R5= 
U0P0R4= 
U0P0R5= 
U0P0R6= 
U0P0R7S 
UlPARO= 
UIPAR1= 
UIPAR2= 
UIPAR3= 
UIPAR4= 
UIPAR5= 
UIPAR6= 
UIPAR7= 
U1PORO= 
UIP0R1= 
UIP0R2= 
UIP0R3= 
UIP0R4= 
UIPDR5= 
UIPDR6= 
UIP0R7= 

\JilJNO 
USESTIC= 
Ukf16 
UII17 

UU7 
VADR 

X 

XORO 
X0R1 
XOR24 
XOR35 
X0R6 
X0R6A 
X0R6B 
X0R7 
XXDP 
XXDPC 
SACO 



SAC1 



177622 
177624 
177626 
177630 
177632 
177634 
177636 
177640 
177642 
177644 
177646 
177650 
177652 
177654 
177656 
177600 
177602 
177604 
177606 
177610 
177612 
177614 
177616 
140000 
001652 
000600 
014606 
015560 
015564 
001572 

064100 
026420 
026506 
026542 
027012 
026630 
026634 
026636 
027042 
003640 
003641 
001462 



001464 



SAC2 001466 
$AC3 001470 



5373* 
5373* 
5373# 
5373^ 
5373* 
5373* 
5373* 
5373* 
5373* 
5373* 
5373* 
5373* 
5373* 
5373* 
5373* 
5373* 
5373* 
5373* 
5373* 
5373* 
5373* 
5373* 
5373* 
5431* 
5946* 
5373* 
7610* 
7804* 
7802 
5946* 
14194* 
14138 
9636 
9661 
9683* 
9752 
9688 
9686* 
9695* 
9768* 
6174* 
6175* 
5946* 
10813* 
10902 
10989* 
5946* 
10796 
10857 
10922* 
10993 
11072 
5946* 
10844 
10954 
5946* 



10371 

11846* 

11848* 

11850* 

10601* 

10371* 

11852* 

10576 

11841* 

11842* 

11843* 

10602* 

10372* 
11844* 
9161 
12041* 

7614* 
7903 
7807* 
11934* 
14195* 
14141* 
9637 
9662 

9753 
9691 
9687* 
9696* 

6201 
6196* 
10732* 
10817* 
10911* 
10991 
10731* 
10804* 
10864* 
10936 
10999 
11076 
10748* 
10846* 
10966* 
10757* 



10584 
11847* 
11849* 
11851* 



11840* 



9305 
12045 

7621* 
7906* 

12115* 
14210* 

9638 
9663 

9757* 
9693 
9692* 
9697* 



11845* 11846 11848 11850 



9950 
12050 

7626* 
7911* 

12201* 
14211* 

9641* 
9664 



9700* 
9694* 
9698 



9956 
7633* 



13201 
14224* 



9982 10266 10280 10361 10463 10472 



7641* 7648* 7655* 7662* 7664* 7670* 7676* 



13202* 13208* 
14225* 14308 



13210 13212* 13836 13895* 14107* 
14312 14316 14324 14328 14333 



9666 9669* 



9698 
9705* 



9704* 9709* 9720* 9722* 



6645 














10771* 


10735* 


10742* 


10744 


10753* 


10754 


10763* 


10767* 


10823* 


10825 


10831* 


10833 


10838* 


10851* 


10865* 


10872* 


10912 


10921* 


10925* 


10929* 


10933* 

11047 


10948* 


10963* 


10971* 


10996* 


11009* 


11023* 


11030* 


11058 


11072 


11077 


10735 


10738 


10744* 


10748 


10754* 


10757 


10764* 


10778 


10808 


10811* 


10820 


10825* 


10828 


10833* 


10835 


10841 


10869 


10875* 


10877* 


10878 


10889* 


10893 


10896 


10902* 


10944 


10950* 


10953* 


10954 


10962* 


10966 


10969* 


10978 


11005 


11011* 


11014* 


11015 


11022* 


11027 


11033* 


11035* 


11089 


11090* 












10808* 


107:5 


10783 


10785* 


10786* 


10787* 


10788* 


10796 


10847* 


10848* 


10849* 


10857 


10906* 


10933 


10941 


10943* 


10975 


10986* 


10996 


11002 


11004* 


11005* 


11006* 


11007* 


10771 


10783 


10735 


10835* 


10844 


10846 


10915* 


10929 



10775* 

10890* 

10975* 

11088 

10786 

10847 

10906 

10983* 

11036 

10817 
10944* 
11015 
10941 



10790* 

10893* 

10981* 

11090 

10792* 

10853* 

10912* 

10986 

11047* 

10828* 
10945* 



7682* 
14108* 



108Q5* 

10900* 

10983 

13746 

10795* 

10856* 

10915 

10991* 

11058* 

10838 
10946* 



10943 10993* 
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11002 


1 1004 








00147? 










SACS 


001474 


59464^ 








tAPTHE 


001 POO 


5522 


5923* 






SAPTSW 


001236 


594 2# 


6183 






SfiDADR 


001274 


594 6# 










001500 


5946# 


13062* 


13120* 


13932* 




001402 


594 6# 


13164 






S6Uf F 


001460 


5946# 


13635* 


13660 




tCHARC 


056626 










ten TAG 


001250 


594 64r 


6271 






tcm = 


000012 


5946^ 








tCM2 = 
SCFu = 


000024 


5946^ 








000012 


5946« 








tcn^ = 


000012 


5946^ 








SCORE 


062126 


13760* 








SCPUOP 


001242 


594 4# 








SCRLF 


001407 


5946# 


6223 


6511 


6642 






13428 


13429 


13439 


13494 


SCROUT 


062156 


137604^ 








S06LK 


057660 


13534* 








S0B20 


057670 


13214 


13286 


13404 


13535* 


tOEVCT 


001224 


5936* 


13152* 






tOQAGN 


046662 


12286* 








SO TBI 


057650 


13534* 








SENDAD 


046652 


5524 


6185 


6484 


12286* 


SENDCT 


046516 


6271 


12286* 






SENULL 




12286* 








%EN<J 


001234 


5940* 


6178 


13164 




iENVM 


001235 


5941* 


6181 






SEOP 


046460 


12267 


12286* 






StOPCT 


046510 


6271* 


12286* 






SERFLG 


001254 


5946* 


12107 


12151* 


13163* 


SfRHAX 


001267 


5946* 


6271* 


13163* 




iERPSU 


001632 


5946* 








tERRQR 


054710 


6076 


6271 


9197 


9242 


SERRPC 


001270 


5946* 


13164* 


13199 


13202 


SERRTB 


002414 


5946* 


12104 


13011 


13013 


tERRTY 


055132 


13164 


131 94# 






SERTTL 


001264 


5946* 


12286* 


13164* 




SESCAP 


001400 


5946* 


6271* 


13163* 


13164 


SFACTO 


001606 


5946* 


11908* 


12018 


12095 


(FATAL 


001216 


5933* 


13164* 






IFiLLC 


001322 


5946* 


13439 






IFiLLS 


001321 


5946* 


13439 






SFLBUF 


001414 


5946* 


13559 


13607 




SFLD20 


060410 


13629* 


13763 






$FL20 


060122 


13554* 


13762 






SGOADR 


001272 


5946* 








SGDDAT 


001276 


5946* 


13061* 


13119* 


13931* 


$GETA2 


046642 


12286* 








SHD = 


000000 


5348 








SHIMjn 


001622 


5946* 


6167* 


11147 


11151* 


SICWT 


001256 


5946* 


13163* 






ULLUP 


061334 


13757* 








HTE«B 


001266 


5946* 


13164* 


13203 


13205 



13164 13195 13198 
13758 13759 14031 



13235 13250 
14039 14049 



13255 13259 13409 



11151* 12304 12383 12456 12524 13663* 13682 13686 13934 
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tKTNEX 


062120 


13760* 


























$KTCX)T 


062110 


13760* 


























iKTII 


061 750 


6212* 


1 3760** 






13759 


















tLF 


00U10 


5946* 


13164 


"3439 


13758 


















SLONUn 


001620 


5946* 


6168* 


11146 


1 1 1 50* 


1 1 166 


12305 


12457 


1 3663* 


13687 


13935 








SLPADR 


001260 


5946* 


6271* 


6687* 


6697* 


7801* 


8788* 


9286* 


9618* 


10001* 


10428* 


10723* 


11127* 


13163* 


tLPERR 


001262 


5946* 


6104* 


6271* 


6687* 


6697* 


7801* 


8788* 


9286* 


9618* 


10001* 


10423* 


10723* 


11127* 






11148* 


11948* 


12087 


12141* 


13054 


13055* 


13066* 


13112 


13113* 


13122* 


13163* 


13164 


14125 






14126* 


14128* 


14141 


14198 


14199* 


14201* 


14203 


14212 


14213* 


14215* 


14216 


14228 


14229* 






14231* 


14234 
























ILSTAD 


062264 


1 3760** 


























ILSTBK 


062266 


6214* 


6216 


6228 


6235 


13760** 


















tnAlL 


0012U 


5924 


5931* 
























V1AINT 


001710 


5946* 


12265* 


12275* 


13224 






















001202 


5924* 


























t<1BLTH 


001212 


5928* 


























SnSGAO 


001230 


5938* 


























SMSGLG 


001232 


5939* 


























S^ISGTY 


0012U 


5932* 


13164* 
























SMTflOU 


062232 


13760* 




























054 706 


13163* 


























SNULL 


001320 


5946* 


13439 
























SNUTST- 


000001 


6686* 


6696* 


6740* 


6852* 


6970* 


7089* 


7236* 


7334* 


7451* 


7531* 


7608* 


7688* 


7800* 






7902* 


7987* 


8106* 


8222* 


8339* 


8423* 


8490* 


8549* 


8601* 


8658* 


8698* 


8759* 


8787* 






8821* 


8945* 


9032* 


9133* 


9195* 


9247* 


9285* 


9387* 


9471* 


9517* 


9579* 


9617* 


9773* 






9858* 


9906* 


9945* 


10000* 


10101* 


10150* 


10232* 


10251* 


10292* 


10342* 


10360* 


10401* 


10417* 






10427* 


10504* 


10540* 


10596* 


10652* 


10721* 


10883* 


ir26* 


11145* 


11685* 


1 1 762* 






tOCNT 


057AA0 


13533** 


























SOCTVL 


060010 


13535* 


























SOMOOE 


0574A2 


13533** 


























tOVER 


054664 


13163* 


























SPAS 


001222 


5935* 


























SPASS 


001250 


5946* 


6245* 


6647 


1 2286* 


13163 


13234 
















SPASTM 


001206 


5926* 


























SPOUER 


061342 


13757* 


























SPURAD 


061330 


13757* 


























SPURON 


061206 


6271 


13757* 
























SPURMG 


061324 


13757* 


























SfMRUP 


06125a 


13757* 


























tOUES 


001406 


5946# 


13164 


13758 


13759 




















SRAND 


060562 


11165 


12303 


12382 


12455 


12523 


13663* 


13677 


13933 












SRDCHR 


061352 


13758* 


13761 
























SRDDEC 


061524 


13759* 


13761 
























SRDLiN 


061406 


13758* 


13761 
























tR0OCr= 


****** (J 


13761 


























SRDSZ = 


000010 


13758* 


























SREGAO 


001324 


5946* 


























SAEGO 


001326 


5946* 


10731 


10742 


10764 


10804 


10811 


10831 


10864 


10872 


10873 


10875 


10889 


10900 






10922 


10962 


10969 


10989 


11022 


11030 


1 1031 


11033 


13726 










SREG1 


001330 


5946* 


10732 


10753 


10763 


10805 


10813 


10823 


10865 


10890 


10911 


10921 


10%3 


10971 






10981 


11023 
























SREG10 


001346 


5946* 


























SREG11 


001350 


5946* 


























SREG^ 


001332 


5946* 


10738* 


10790 


10820* 


10851 


10869* 


10896* 


10948 


10978* 


11009 


11027* 


14340 


14355 


$REG3 


001334 


5946* 


10778* 


10792 


10841* 


10853 


10873* 


10936* 


10950 


10999* 


11011 


11031* 


14549 


14355 


SREG4 


001336 


5946* 


14125* 


14128 


14198* 


14201 


14212* 


14215 


14228* 


14251 
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V^EGS 


001340 


594 64r 


11693* 


12271* 


12281* 


14031* 


14039* 


14049* 


14081* 


14082 


14086* 








iREG6 
WEG7 


001 342 


594 6« 


























001 344 


594 6« 


























IRE SRE 


060064 


13536# 


13761 
























tRTRN 


001570 


5946« 


6671 


9942 


12270 




















tSAVPA 


001556 


594 6« 


14162 


14177 






















ISA VPS 


001566 


5946« 


14151* 


14187 






















tSAVRE 


060026 


13536* 


13761 
























tSAVR6 


061540 


13757#« 


























tSCOPf 


054456 


6271 


9147 


9153 


9244 


10399 


13163* 
















tSETUP- 


000037 


625 1# 


6271 


6484 


12286 


13164 


















tSIZE 


061702 


6213 


13760* 
























tSIZFX 


062162 


13760* 


























ISTUP = 


M7777 


6251* 


























ISVLAD 


054642 


13163* 


























tSVPC = 


000224 


5524* 


























SSWR = 


167377 


4391* 


5348 


5360 


5946 


6271 


6686 


6696 


6740 


6852 


6970 


7089 


7236 


7334 






7451 


7531 


7608 


7688 


7800 


7902 


7987 


8106 


8222 


8339 


8423 


8490 


8549 






8601 


8658 


8698 


8759 


8787 


8821 


8945 


9032 


9133 


9195 


9247 


9285 


9387 






9471 


9517 


9579 


9617 


9773 


9858 


9906 


9945 


10000 


10101 


10150 


10232 


10251 






10292 


10342 


10360 


10401 


10417 


10427 


10504 


10540 


10596 


10652 


10721 


10883 


11126 






11145 


11685 


11762 


12286 


13163 


13164 
















tSWRMK- 


OOOOCO 


13163 


























SSWRP 


001244 


5945* 
12298 


6183* 
12376 


6649 
12450 


11773 
12518 


11784 
13163 


11806 
13164 


11898 


11918 


11955 


11963 


11967 


12110 


12175 


STESTN 


001220 


5934* 


13164* 
























STIWES 


001376 


5946* 


6271* 


6686* 


6696* 
12286* 


6853* 


6971* 


7800* 


8787* 


9285* 


9617* 


10000* 


10427* 


10721* 






10722* 


10884* 


11126* 


13163* 


















STKB 


001312 


5946* 


13758 


14027 






















STKS 


001310 


5946* 


6271 


6274* 


13758 




















STMPO 


001352 


5946* 


6102* 


6523* 


6526 


6537* 


6557* 


6560 


6564* 


6577* 


6580 


6588 


6597* 


6605* 






6608 


6619* 


10316* 


10729 


10743 


10802 


10810 


10830 


10862 


10870 


10887 


10901 


10960 






10968 


10988 


11020 


11028 


11138* 


11566* 


11569* 


11572* 


11575* 


11933* 


11961* 


11965 


11970* 






11987 


12027 


12032 


12114* 


12200* 


13675 


13690 


13722 


13896* 


14106* 


14193* 


14209* 


14222* 






14233 


14308 


14312 


14316 


14324 


14328 


14333 


14338 












$TI>V>1 


001354 


5946* 
12136* 


6103* 
12139* 


11139* 
14338 


11567* 


11570* 


11573* 


11576* 


11978* 


11980 


11983 


11985* 


12035 


12037* 


$TI«f>10 


001372 


5946* 


13026* 


13053* 


13057 


13085* 


13111* 


13115 














$T«P11 


001374 


5946* 


13054* 


13066 


13112* 


13122 


















STI1P2 


001356 


5946* 
14227* 


10730 
14308 


10751 
14316 


10760 
14324 


10803 
14333 


10812 


10822 


10863 


11959* 


12135* 


13892* 


14124* 


14196* 


JTMP3 


001360 


5946* 


12133* 


13893* 


14111* 


14197* 


14316 


14324 


14333 












srnpA 


001362 


5946* 
13894* 


10737* 
14112* 


10789 
14349 


10819* 


10850 


10868* 


10888 


10909 


10918 


10961 


10970 


10980 


11021 


$T«P5 


001364 


5946* 


























STnP6 


001366 


5946* 


10777* 


10840* 


10871* 


14349 


















$T«P7 


001370 


5946* 


























$TN = 


000100 


4390* 


5348 


6686* 


6696* 


6740* 


6852* 


6970* 


7089* 


72^0 


7334* 


7451* 


7531* 


7608* 






7688* 


7800* 


7902* 


7987* 


8106* 


8222* 


8339* 


8423* 


8490* 


8549* 


8601* 


8658* 


8696* 






8759* 


8787* 


8821* 


8945* 


9032* 


9133* 


9149 


9195* 


9247* 


9285* 


9387* 


9471* 


9517* 






9579* 


9617* 


9773* 


9858* 


9906* 


9945* 


10000* 


10101* 


10150* 


10232* 


10251* 


10292* 


10342* 






10360* 


10401* 


10417* 


10427* 


10504* 


10540* 


10573 


10596* 


10652* 


10721* 


10880 


10883* 


11126* 






11145* 


11685* 


11762* 






















$TPB 


001316 


5946* 


13439* 


14072* 






















STPfLG 


001 323 


5946* 


13439 




















12282* 


15439 


$TPS 


001314 


5946* 


6298 


11691 


11694* 


11706 


11709* 


11746* 


11758* 


12256 


^2272* 


12279 
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3CU 










U050* 


14068* 


1^070 


14085* 


















UDcc ' U 




/\1 SA 


6219 


6271 


0?A0 


9263 


9267 


0?7? 

TCf c 


0?R0 

7COU 


1 Jf O 1 • 










\MAjyj 


1 77ai if 




13763# 






















C TOD An 






























CTCTM 

» 1 3 1 n 


Uv 1 c v*» 




























> 1 3 1 


fV\^ 5^5 




OOOO" 


6696* 


6740* 


ARSPft 

oo JC " 


6970* 


7089* 


7?7Aft 

' c jO" 


777Aft 


7AS1 ft 

f H J 1 " 


7S71 ft 
f J J 1 " 


7/!>Oftft 
f OWO" 


1 OOO" 






7flnnft 

' OVA/" 


700? ft 


7987* 


8106* 


R???ft 


8339* 


8423* 


R^OOft 

OH TV^" 


RS^Oft 

O JH 


RA01 ft 

OOv 1 


RASRft 

OO JO" 


RAORft 

00~0" 


R7S0ft 

Of JT 






R7ft7ft 


RR71 ft 


8945* 


9032* 


91 33ft 

7 1 J J 


9195* 


9247* 


9?8Sft 


0^R7ft 

T JO f 


9^71 ft 


9S1 7* 


OS 70ft 


9f^^ 7* 






0777ft 


ORSRft 

TO JO" 


9906* 


9945* 


10000ft 


10101* 


10150* 


10?7?ft 


10PS1 ft 

1 vc J 1 " 


10?0?ft 

1 vc~c " 


107^?ft 

1 U jHc 


lOViOft 


10^01 ft 

1 vH V 1 " 






in^i 7ft 


in^?7ft 


10504* 


10540* 


10S9^* 


10652* 


10721* 


1 ORR^ft 


111 p^ft 

1 1 1 CO" 


1 1 1^Sft 

1 1 1 H J " 


1 lARSft 

1 IOOJ" 


1 1 7A?ft 

1 1 f Oc 


1 1R0?ft 

1 1 Ovc 








1 CcOO" 


13163* 


13164* 


1 %??f\ 


















» ' 1 Tin 


1 ^ 1 H 




























IT VPQia= 


ft Ik Ik * ft Ik ^ 




























IT vpnc 




1 7'>7^« 


1 J O 1 
























tT VPF 




1 7A70ir 


1 J f O 1 
























tT vp^r 




1 'Ui^Oir 


























crypcw 




^XLXQM 


























CT vpnr 




1 7^^^ 
1 JJJJ^ 


1 Jf O 1 
























tT VPPM 
9 1 Jr\jrt 




1 JJJJ^ 


1 ^' O 1 
























tT vpn^ 

9 1 T rAjd 




1 


1 J f u 1 
























ilMI T 
9^jrti 1 


VA/ 1 CCIJ 


^9^7* 


























ti MI TM 


V/v 1 c 1 w 


























































9A I o 1 n 
































fWlftOfl 


1 C C Q\J^ 




























V/V i H f %J 






























V/V 1 JW 




























99 1 


nooon? 

vWvwc 






13763 






















»V" ILL 




1 ^S^l#ft 


























• 




SSI 


SSI li» 


5519 


5521# 


SS?3Jf 


5524/(r 


5920M 


S9^^ 


f\^ s?* 

O 1 Jc* 


^1 S7# 

O 1 J f " 


O I Ovff 


Occl^ 


Occ 1 ^ 










6271 


6508# 


A^fi7M 

OJOf f9 


6589* 


6599 


OO JOw 


AAR7 


OOTf 


A707 

Or vr 


A71 S 

Of 1 J 


Of c J 






Of jw 


Of -JO 


6749 


6759 


Of OT 


6777 


6786 


A79S 

Of 7 J 


ARO^ 
OOvH 


AR1 T 

OO 1 J 


DOcc 


OOcO 


AR7S 

OO J J 






OOHc 


ARSn 
oo jU 


6871 


6881 


AR01 
ooy 1 


6898 


6905 


AOI^ 


A070 

O TjU 


AO 7? 

OTf c 


A0R7 

OTOC 


AORO 

O TOT 


AOOR 

OttO 








7011 


7018 


7025 


70^3 


7040 


7048 


70S 3 


70^1 

f UV 1 


70^7 


707S 

r vf J 


70R? 

r vOc 


7087 

r vOr 






7000 


7103 


7109 


7115 


71 ?1 

f 1 c 1 


7^27 


7133 


7140 

f 1 HV 


7147 

r 1 H r 


71 S4 
f 1 JM 


71 

r 1 Oc 


71^0 
r 1 OT 


71 73 

r 1 f J 






71 RO 


71 RS 


7192 


7199 


r c vJ 


7209 


7214 


7??1 


r CC J 


7?31 

r C.J 1 


7P34 

r c J*4 


7237 

r c Jr 


7?40 

r cHT 






f CJ*^ 


t cO 1 


7268 


7l7k 


7P70 

f Cf 7 


7285 


7291 


7?0R 

f CTO 


7305 


7300 


731 S 

r J 1 J 


7310 


r JC J 






r DC 7 


r 


7335 


73^,9 


f jjj 


7357 


7365 


7373 


7^R1 

r jO 1 


"'3R0 
1 JOT 


7^07 

r JTr 


7403 










7i?0 
f Hcv 


7425 


7431 


f HJ7 


7446 


7449 


74 S? 

f H Jc 


746S 


7L77 

f f c 


74 7R 


748S 


7403 






7^00 


7S0S 


7510 


7516 


7S?7 


7529 


7532 


7SS0 




7SS0 

f J J 7 


7S^ 


7S7? 


7S7R 

f Jl o 








7S90 


7594 


7600 


f OVAJ 


7618 


7624 


7620 

f oc T 


7^=1^7 


7MS 


7AS1 

r y^J \ 


76S0 


7hb7 






7A7^ 

f Of J 


f %Jf 7 


7683 


7686 


7A0R 

f OTO 


7703 


7709 


771 R 

r r 1 O 


777^ 

f r C J 


77^? 

f f JC 


77^0 

f r JT 


774 S 


1 1 JC 






77SR 

f f JO 


77fU. 
1 f o*t 


7770 


7777 


77R? 

f r Oc 


7788 


7794 


7797 


r Ov/ 1 


7R?0 

r OCv 


7R?7 

r Oc r 


7R3S 


784? 








7RS7 


7864 


7870 


7R77 

f Of f 


7881 


7888 




7900 


7010 


70?7 

r Tc r 


7033 

r T J J 


7040 






70^A 

f ~HO 


70S? 


7958 


7965 


7071 

f Tf 1 


7978 


7985 




AOOO 
owv 


A006 


R01S 

ov 1 J 




8043 






R0S1 

Ov^ 1 


ROAI 

OUO 1 


8069 


8077 


RORO 

OUOv 


8090 


8095 


O 1 VH 


O 1 Vr 


O 1 CC 


Rl^l 

O 1 J 1 


R130 

O 1 JT 


8148 

O 1 HO 






O 1 


R1 A? 

O 1 Oc 


8168 


8176 


R1R7 

O 1 Or 


8194 


8199 


Oc vu 


Oc ' " 


Occv 


Occ J 


R?41 

OCH 1 


8P4S 

OCH J 






Oc JC 


OcO-J 


8268 


8274 


RP70 

Ocf T 


8285 


8288 




o^^c 




O JOH 


R371 

O Jr 1 


8383 

O JO J 








0/OD 


8406 


8414 


RA10 

OH 1 ~ 


8424 


8458 




O** r w 


O** ' o 


R4R3 

OHO J 


8488 


8S1S 








RS7R 

O JCO 


8531 


8537 


RSA? 

OJHC 


8547 


8577 




o^oo 


ASQ^ 

0-/T J 


RS99 

O 


8602 


861 S 

Ov 1 J 






RA?0 

OOcv 


OOcH 


8631 


8637 


OOHH 


8650 


8654 


Our J 


8677 

our r 


ooov 


A^S 


8^0 

0U07 


8717 






8720 


8721 


8727 


8734 


8742 


8746 


8750 


8754 


8784 


8788 


8793 


8799 


8804 






8808 


88U 


8819 


8856 


8861 


8867 


8871 


8881 


8891 


8896 


8932 


8934* 


8950 






8952 


8957 


8962 


8970 


8972 


8977 


8993 


8997 


9011 


9019 


9030 


9113 


9140 






9156 


9181 


9188 


9201 


9232 


9233 


9240 


9251 


9259 


9262 


9266 


9271 


9286 






9293 


9368 


9481 


9498 


9540 


9547 


9555 


9561 


9572 


9588 


%03 


9612 


9618 
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.PARSR 063616 



9627 


9640 


9651 


9654 


9668 


9682 


9699 


9745 


9756 


9762 


9767 


9780 


9799 


9816 


9876 


9880 


9912 


9965 


9980 


9991 


10001 


10U2 


10171 


10195 


10220 


10249 


10264 


10278 


10454 


10481 


10608 


10616 


10644 


10723 


11127 


12286* 


12429 


12576 


12588 


12626 


12667 


12694 


13439 


13534* 


13535* 


13757 


13758* 


13759 


14071 


6680 


11882 


12251 


13888 


14105* 


14132 





9702 
9820 
10023 
10364 
11619* 
12707 
14135* 



9714 
9822 
10046 
10378 
11646* 
12747 
14315* 



9723 
9825 
10066 
10403 
11681* 
12788 
14327* 



9727 
9850 
10090 
10410 
12007* 
13163 
14342* 



9734 
9856 
10111 
10423 
12206 
13164 
14354* 



SEO 

9740 
9871 
10123 
10428 
12257 
13438* 
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CC9V1EN 


1 3'35* 


5373* 




ENOCOn 


1347# 


5373* 




ERROR 


5373# 


5425 


6105 




11259 


11278 


11297 




12K9 


12202 


13059 


ESCAPE 


U49# 


5373* 




FLTST1 


10712* 


10721 


10883 


HLT 


5425* 


6708 


6716 




6829 


6836 


6843 




7006 


7012 


7019 




7116 


7122 


7128 




7210 


7215 


7222 




7306 


7310 


7316 




7404 


7410 


7416 




7506 


7511 


7517 




7607 


7619 


7625 




7710 


7719 


7726 




7826 


7836 


7843 




7941 


7947 


7953 




8052 


8062 


8070 




8177 


8188 


8195 




8353 


8360 


8365 




8489 


8516 


8524 




8626 


8632 


8638 




8743 


8747 


8751 




8892 


8907 


8909 




8935 


8958 


8978 




9189 


9196* 


9208 




9504 


9527 


9541 




9700 


9715 


9724 




9836 


9842 


9851 




10067 


10091 


10124 




10407 


10424 


10440 


MSGA 


8695# 


8698 




MSGB 


8756# 


8759 




MSGC 


9129* 


9133 




nSGO 


9769* 


9773 




nsGE 


9883* 


9906 




MSGF 


10096* 


10101 




nsciG 


10144* 


10150 




nsGH 


10227* 


10232 




MSGI 


10286* 


10292 




HSGJ 


10339* 


10542 




nSGK 


10500* 


10504 




MSGL 


10537* 


10540 




MSGM 


10591* 


10596 




nSGN 


10649* 


10652 




MSGC 


11759* 


11762 




MSGP 


11117* 


11126 




MULT 


3869* 


5373* 




MY TAGS 


5635* 


5946 

5176* 

7902 




NEWTST 


1387* 


5373* 




7800 


7987 




8945 


9032 


9133 




10000 


10101 


10150 




10721 


10883 


11126 
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9246 


10798 


10859 


10881 


11318 


11340 


11378 


11424 


13063 


13117 


13121 


13897 


6724 


6731 


6739 


6750 


6851 


6872 


6882 


6892 


7026 


7034 


7041 


7049 


7134 


7141 


7148 


7155 


7226 


7232 


7235 


7250 


7320 


7326 


7330 


7333 


7^*21 


7426 


7432 


7441 


7524 


7530 


7551 


7554 


7630 


7638 


7646 


7652 


7733 


7740 


7746 


7753 


7850 


7858 


7865 


7871 


7959 


7966 


7972 


7979 


8078 


8081 


8091 


8096 


8200 


8207 


8215 


8221 


8372 


8384 


8394 


8401 


8529 


8532 


8538 


8543 


8645 


8651 


8655 


8674 


8755 


8794 


8800 


8805 


8911 


8913 


8915 


8917 


8994 


9012 


9020 


9031 


9234 


9241 


9246* 


9261 


9548 


9556 


9562 


9573 


9735 


9741 


9746 


9757 


9857 


9873 


9877 


9881 


10143 


10172 


10196 


10221 


10470 


10490 


10533 


10569 


6686 


6696 


6740 


6852 


8106 


8222 


8339 


8423 


9195 


9247 


9285 


9387 


10232 


10251 


10292 


10342 


11145 


11685 


11762 





G 5 
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MACRO NAMES 



10956 


11017 


11038 


11140 


11439 


11457 


11484 


11534 


14127 


14200 


14214 


14230 


6760 


6770 


6778 


6787 


6899 


6906 


6915 


6931 


7054 


7062 


7068 


7076 


7163 


7170 


7174 


7181 


7255 


7262 


7269 


7275 


7350 


7354 


7358 


7366 


7447 


7450 


7466 


7473 


7560 


7565 


7573 


7579 


7660 


7668 


7674 


7680 


7759 


7765 


7771 


7778 


7878 


7882 


7889 


7894 


7986 


7993 


8001 


8007 


8105 


8123 


8132 


8140 


8242 


8253 


8264 


8269 


8407 


8415 


8420 


8459 


8548 


8578 


8581 


8587 


8678 


8681 


8686 


8690 


8809 


8815 


8820 


8857 


8919 


8921 


8923 


8925 


9054 


9079 


9090 


9102 


9264 


9268 


9273 


9332 


9589 


9604 


9613 


9628 


9763 


9768 


9781 


9800 


9929 


9934 


9970 


9973 


10250 


10265 


10279 


10311 


10617 


10642 


10700 


11743 


6970 


7089 


7236 


7334 


8490 


8549 


8601 


8658 


9471 


9517 


9579 


9617 


10360 


10401 


10417 


10427 



SkO 0264 



1180 


11194 


11216 


11243 


1549 


11936 


12086 


12144 


6796 


6805 


6814 


6823 


6965 


6983 


6990 


6999 


7083 


7088 


7104 


7110 


7186 


7193 


7200 


7206 


7280 


7284 


7292 


7299 


7374 


7382 


7390 


7398 


7479 


7486 


7494 


7500 


7584 


7591 


7595 


7601 


7684 


7687 


7699 


7704 


7783 


7789 


7795 


7821 


7901 


7920 


7928 


7934 


8016 


8024 


8039 


8044 


8149 


8156 


8163 


8169 


8275 


8280 


8286 


8338 


8467 


8471 


8477 


8484 


8594 


8600 


8616 


8621 


8718 


8722 


8728 


8735 


8862 


8868 


8872 


8882 


8927 


8929 


8931 


8933 


9110 


9114 


9128 


9148 


9369 


9409 


9482 


9499 


9641 


9655 


9669 


9683 


9817 


9821 


9826 


9832 


9984 


9996 


10024 


10047 


\Jj 1 0 








7451 


7531 


7608 


7688 


8698 


8759 


8787 


8821 


9773 


9858 


9906 


9945 


0504 


10540 


10596 


10652 



H 5 

CEOICC-E POP 11/70 CPU EXERCISER MACYll 30A(1052) '2-MAR-80 11:50 PAGE 49-1 



CEQKCE. 


P11 


2-«AR-80 11:27 




CROSS 


REFERENCE 


TABLE 


~ MACRO NAMES 












SEO 


POP 


1854« 


5373* 


13554 


13536 


15663 


13757 


15759 


















PUSH 


1846# 


5373* 


15534 


13536 


13663 


13757 


13759 






10723 












RELOCA 


60260 


6687 


6697 


7801 


8788 


9286 


9618 


10001 


1 A/ 

IU4^8 


11127 










RELOCB 


604 5« 


6695 


7799 


8786 


9284 


9616 


9999 


10426 


10711 


11110 


11683 


7531 




7688 


7799 


SCOP€ 


5373# 


6686 


6695 


6696 


6740 


6852 


6970 


7AOO 




7554 


7451 


7608 


7800 


7902 


7987 


8106 


8222 


8339 


8425 


OhVO 




8601 


8658 


8698 


8759 


8786 


8787 




8821 


8945 


9032 


9133 


9195 


9247 


9284 


9285 


9387 


9471 


9517 


9579 


9616 


9617 


9775 




9858 


9906 


9945 


9999 


10000 


10101 


10150 


10232 


10251 


10292 


10342 


10360 


10401 


10417 


10426 




10427 


10504 


10540 


10596 


10652 


10711 


10721 


10885 


4 4 4 1 A 

11110 


11126 


11145 


11683 








SETTP.A 


1376U 


13762 


13763 


























SETUP 


1169# 


5373* 


6271 












i ADOA 

10880 














SKIP 


1483# 


5373* 


6638 


6646 


6648 


6650 


9149 


1 AC 

10573 














SLASH 


1287# 


5373* 




























SPACE 


5373# 




















6553 


6555 




6603 


6686 


STARS 


1256« 


5373* 


5524 


5946 


6059 


6073 


6164 


6512 


6521 


6541 


6575 


6696 


6740 


6852 


6970 


7089 


7236 


7334 




7C T1 

r551 


7608 


7688 


7800 


7902 


7987 


8106 




8222 


8339 


8423 


8490 


8549 


8601 


8658 


8698 


8759 


8787 


8821 


8945 


9032 


9133 


9195 




9247 


9285 


9387 


9471 


9517 


9579 


9617 


9773 


AOC O 

9858 


9906 


9945 


10000 


10101 


10150 


10232 




10251 


10292 


10342 


10360 


10401 


10417 


10427 


1 ACA/ 

10504 


1 AC y A 

10540 


10596 


10652 


10721 


10799 


10861 


10883 




10957 


1 1019 


1 1 A/ i 

1 104 1 


11046 


11053 


11057 


11064 


1 1 A7A 

1 lO^U 


111 OA 

11 1 c6 


11145 


11685 


11762 


11769 


11780 


11796 




11801 


1 1884 


1 i 007 


11941 


11947 


12243 


12248 






12290 


12364 


12367 


12438 


12441 


12507 




12510 


12562 


12565 


12679 


12682 


12806 


12809 


1 cVU5 


1 OQAfi 


13000 


13003 


13079 


13082 


13139 


13145 




13163 


1 3164 


13103 


13192 


13272 


13281 


13293 




1 '(7 AO 
15307 


13519 


13329 


13342 


13350 


13363 


13378 




13419 


1 T/ TQ 


i 7y y A 
1344U 


13446 


13500 


13506 


13535 


1 3534 


1 

15535 


15536 


13537 


13553 


13610 


13628 


13663 




13664 


IJOfC 




13716 


13757 


13758 


13759 


1 5r OU 


l5rOI 


13764 


13768 


13789 


13796 


13818 


13834 




13859 


i Y07A 


i TOA1 

15901 


13923 


13980 


13984 


13991 


1 TOOT 

1 5W5 


1 700a 

i57y8 


14000 


14009 


14022 


14076 


14080 


14089 




14104 


1 y i y 
14142 


^ y i y 7 


U170 


14173 


14190 


14192 


1 y onx 


14<f08 


14219 


14221 


14359 








[RMTRP 


1376U 






























TrpeiN 


1790yr 


53/^3* 




























TYPOEC 


1760* 




65Ut 


12286 
























TYPNAM 


1536# 


y TQ7« 


35 r 5* 


648A 
























rypNLM 


m7» 


C 177 M 

5373* 




























TrPOCS 


1680« 


5373* 


^ ^^y 

6224 


6226 


6228 






















TYPOCT 


1643# 


5373* 


6507 


6588 


13199 


13224 


15234 












6227 


6506 


6508 


TYPTXT 


1597* 


5373* 


^ 4 AA 

6108 


6109 


6148 


6157 


6158 


^ 1 ^ A 

6160 


^ 01A 

6220 


6221 


6222 


6225 




6510 


6587 


^ con 

6589 


6652 


12007 


12013 


12286 


1 7T7iL. 

1 5336 


1 y 1 7C 
141 55 














sscnRE 


5946* 






























SSCMTM 


5946* 






























SSESCA 




53^3* 


















7334 




7531 


7608 


7688 


tSNEWT 


1416# 


5200* 


35^5* 


6686 


6696 


6740 


6852 


41.07A 


7AaQ 

/ 007 


7236 


7451 


7800 


ry{jc 


70Q7 

ryof 


8106 


8222 


8339 


8423 


fi/ on 
84 W 


8547 


8601 


8658 


8698 


8759 


8787 


8821 




8945 


9032 


91 35 


9195 


9247 


9285 


9387 


O/ 71 


QC1 7 

95 1 f 


9579 


9617 


9773 


9858 


9906 


9945 




10000 


10101 


i A1 CA 

10150 


10232 


10251 


10292 


10342 


1 AT^A 

IU36U 


1 Ay rti 
10401 


10417 


10427 


10504 


10540 


10596 


10652 




10721 


i A007 

10883 


1 1 li:6 


11145 


11685 


11762 




















tSSET 


1376U 


1 77^ O 

\5roc 


1 77Z.7 

1 5/^65 


























$$SKIP 


1496* 


53/^3* 


01 y o 


10573 


10880 






















•EQUAT 


16&r 


4386* 




























•HEAOE 


43# 


4386* 


CI/ Q 

5548 


























.KTII 


31U 






























.SETUP 


1115# 


4387* 


6251 


























.SWRHI 


854r 


4386* 


5360 


























•SWRLO 


43864^ 


5360* 


5361 


5362 


5363 






















.SACTl 


4332* 




5524 


























.SAPTB 


4389# 






























.SCATC 


9U# 


4386* 


5512 


























.SCMTA 


971 # 


4386* 


5031* 


5946 

























CCQKC-E POP 11/70 CPU 



CEOKCE. 


PIT 12-mR-80 


11:27 


.10620 








.10820 


/ 1 a/ M 


CJ/ Cm 


13535 


.toiv 


7Q71 M 

yif I m 






.«0P 


1 Q1 Xm 
1 7 1 >» 




12286 


.t£RftO 




*»5oo* 


13164 


.«RftT 








.»«ULT 










>0 1 5* 




13757 


.SRANO 






13663 


.SftDDE 




/ YOB* 


13759 


.SROOC 








.SAEAD 


7QflXir 


*• jOOw 


13758 


.SSAVE 






13536 


.tse2o 


H 1 JH0 






.sse2o 








.SSCOP 


c 1 J 1 * 




13163 


.ISIZE 


1729M 


43884r 


13760 


.tSUPR 








•STRAP 




4387* 


13761 


•ITYPB 








.STYPO 




LXtOM 

HJOf ^ 


13534 


.ITYPE 


2598# 


55570 


13439 


.»TVPO 


2711* 


438&r 


13533 


.1770 




4408* 


5373 


. ABS. 


071367 


000 




ERRORS 


DETECTED 


: 0 





30A(1052) 12-MAH-80 1 
CROSS REFERENCE TA8LE 



CEQKCE.BIN,CEQKCE.LST/CRF=CEQKrE.S«L.CE0KCE.P11 
RUN-TIME: 77 113 13 SECONDS 
RUN-TIME RATIO; 1070/205=5.2 
CORE USED: 33K (65 PAGES) 
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MACRO NAMES SEO 0266 



